1.如何用vb编写一个扫雷的程序?
2.VB.Net读åAutoCADå¾çº¸
如何用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