最近有朋友询问切换图层的代码 com切换图层 <CommandMethod("mycl")> Public Sub MySubLayerChange() Dim Thisdrawing As Autodesk.AutoCAD.Interop.AcadDocument = Application.DocumentManager.MdiActiveDocument.AcadDocument Dim curLayer As Autodesk.AutoCAD.Interop.Com
1# 自定义函数,添加到注册表 Public Sub StartRunRegHKLM() REM HKEY_LOCAL_MACHINE \ SOFTWARE \ WOW6432Node \ Microsoft \ Windows \ CurrentVersion \ Run Dim strName As String = Application.StartupPath + "\" + Application.ProductName + ".exe" Dim strN
1.每个程序有一个主线程,如果一个循环处于主线程中,程序在较长的循环,将出现“不响应”的情况. 线程在System.Threading中.线程创建可专用于一个功能块(方法.函数), 线程的开始用Start方法,线程的结束用Abort方法,线程的暂停使用Sleep方法 2.委托的思想,就是自己不能干或不想干的事,委托另一个有能力或有权限的人去干那件事. 实际上,我们一直要用委托思想,比如基本类型的变量名.Dim i As Integer 除了变量名可以用委托一样,方法(sub)也可以用委托,
https://blog.csdn.net/youyoulg/article/details/39120669 C# WinFrom捕获按键按下事件(一) https://blog.csdn.net/csai008hua/article/details/51769743 WinForm下的键盘事件(KeyPress.KeyDown)及如何处理不响应键盘事件 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBas
1.判断文件/目录是否存在 Try ' 先判断文件是否存在. If Not File.Exists(TextBox4.Text) Then File.CreateText(TextBox4.Text) '单纯创建文件一般不常用,正常情况下是创建文件然后进行读写操作 'System.IO.File.Create(TextBox4.Text) End If Catch ex As Exception MessageBox.Show(ex.Message) Exit Sub End Try Try '
