1.如何用vb编写一个扫雷的程序?
2.VB.Net读åAutoCADå¾çº¸
如何用vb编写一个扫雷的程序?
扫雷源码,带音乐,自定义颜色、理财赌博源码网格大小,注释比较详细,东方动能柱指标源码变量全中文。全网VIP解析源码PHP是vb.net的,如果是vb6.0需要做一些修改。刚接触vb的话,需要耐心和翻资料才能看懂代码。
PS:我学vb都6年了,刚学2年的时候,根本做不出扫雷= =。苹果试玩赚钱app源码
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
2024-12-24 09:07838人浏览
2024-12-24 08:291163人浏览
2024-12-24 07:52970人浏览
2024-12-24 07:242143人浏览
2024-12-24 07:111758人浏览
2024-12-24 07:091253人浏览
中国消费者报广州讯陈晓莹记者李青山)7月21日下午,广东省市场监管局召开局党组扩大)会议,专题传达学习党的二十届三中全会精神,研究部署贯彻落实举措。会议强调,要聚焦“加快构建高水平社会主义市场经济体制