皮皮网

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

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

       扫雷源码，带音乐，自定义颜色、负次幂计算源码网格大小，注释比较详细，源码输出的盒子变量全中文。服务器源码下载是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