【新兴源码】【源码试炼48】【火牛火狐源码】vb.net 2010源码

时间:2024-11-13 13:27:17 来源:flink join源码 编辑:比特儿源码

1.如何用vb编写一个扫雷的程序?
2.VB.Net读取AutoCAD图纸

vb.net 2010源码

如何用vb编写一个扫雷的程序?

       扫雷源码,带音乐,自定义颜色、新兴源码网格大小,注释比较详细,源码试炼48变量全中文。火牛火狐源码是vb.net的,如果是vb6.0需要做一些修改。

       刚接触vb的话,需要耐心和翻资料才能看懂代码。

       PS:我学vb都6年了,刚学2年的时候,根本做不出扫雷= =。小麦助教 源码

VB.Net读取AutoCAD图纸

       å¦‚果可以的话请把分给我

       ã€€ã€€ä»¥ä¸‹æ˜¯cad版的,引用autocad type library 和autocad/objectdbx common 如果是或者版本更低的只要引用autocad type library,代码的话大同小异,思路是一样的

 

       ã€€ã€€

           Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

               On Error Resume Next

               Dim acadapp As Autodesk.AutoCAD.Interop.AcadApplication

               acadapp = GetObject(vbNullString, "autoCAD.application")

               Dim acaddoc As Autodesk.AutoCAD.Interop.AcadDocument

               acaddoc = acadapp.ActiveDocument

               Dim Ms As Autodesk.AutoCAD.Interop.Common.AcadModelSpace

               Ms = acaddoc.ModelSpace

               Dim acadObjectI As Autodesk.AutoCAD.Interop.Common.AcadObject

               Dim Linei As Autodesk.AutoCAD.Interop.Common.AcadLine

               Dim Circlei As Autodesk.AutoCAD.Interop.Common.AcadCircle

               Dim Polylinei As Autodesk.AutoCAD.Interop.Common.AcadPolyline

               Dim pt As Autodesk.AutoCAD.Interop.Common.AcadPoint

               For Each acadObjectI In Ms

                   Debug.Print(acadObjectI.ObjectName)

                   Select Case acadObjectI.ObjectName

                       Case "AcDbLine"

                           Linei = acadObjectI

                           Debug.Print("X =" & Linei.StartPoint(0).ToString)

                           Debug.Print("Y =" & Linei.StartPoint(1).ToString)

                       Case ""

                       Case ""

                   End Select

               Next

           End Sub

copyright © 2016 powered by 皮皮网   sitemap