田草博客

My.Application.Info.DirectoryPath

tiancao1001 — 2026-03-29 20:43:20

在.net 10中：
dim appPath as string = Application.StartupPath
需要引用 System.Windows.Forms 或 PresentationFramework。
dim appPath as string = AppContext.BaseDirectory

警告 MSB3277 发现无法解析的“WindowsBase”的不同版本之间存在冲突。

tiancao1001 — 2026-03-28 22:30:22

直接引用对应的版本



     C:\Program Files\dotnet\shared\Microsoft.WindowsDesktop.App\10.0.5\WindowsBase.dll
    Private>false

if 和elseif 不要重复调用Function

tiancao1001 — 2025-11-12 19:42:20

Public Class Form1
    Dim N As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        N = 0
        For i = 0 To 3
            If GetT(i) = 0 Then

            ElseIf GetT(i) = 1 Then

            ElseIf GetT(i) = 3 Then

            End If
        Next
        MsgBox(N)
    End Sub

    Function GetT(ByVal i As Integer) As Integer
        N += 1
        Return i
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        N = 0
        For i = 0 To 3
            Dim T As Integer = GetT(i)
            If T = 0 Then

            ElseIf T = 1 Then

            ElseIf T = 3 Then

            End If
        Next
        MsgBox(N)
    End Sub
End Class

用 For Each 循环遍历 Dictionary

tiancao1001 — 2025-10-02 0:00:28

在 VB.NET 中，用 For Each 循环遍历 Dictionary 是最常见的方式（不能用 For i = 0 To Count - 1，因为 Dictionary 不是按索引访问的）。
✅ 遍历所有键值对（KeyValuePair）
vb.net
复制
Dim dict As New Dictionary(Of String, Integer)()
' 假设已添加一些数据
dict.Add("apple", 3)
dict.Add("banana", 5)

For Each kvp As KeyValuePair(Of String, Integer) In dict
    Console.WriteLine($"Key: {kvp.Key}, Value: {kvp.Value}")
Next
✅ 只遍历键（Keys）
vb.net
复制
For Each key As String In dict.Keys
    Console.WriteLine($"Key: {key}")
Next
✅ 只遍历值（Values）
vb.net
复制
For Each value As Integer In dict.Values
    Console.WriteLine($"Value: {value}")
Next

Tuple的定义：

tiancao1001 — 2025-05-29 20:58:22

Dim rectList As New List(Of Tuple(Of Polyline, Point2d))

也可以

Dim rectList As New List(Of (Polyline, Point2d))

修改或添加CAD的注释比例

tiancao1001 — 2025-04-12 23:36:19

https://adndevblog.typepad.com/autocad/2012/05/u ... add-a-scale-to-a-drawing.html

在CAD中动态编译Deepseek生成的C#代码

tiancao1001 — 2025-04-10 21:00:55

vb 下载文件

tiancao1001 — 2025-02-10 10:05:21

程序代码：


Imports System.IO
Imports System.Net

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DownloadFile()
    End Sub
    Sub DownloadFile()

        Dim destPath As String = "C:\image36.png"
        Dim url As String = ""
        Dim request As HttpWebRequest = HttpWebRequest.Create(url)
        request.Method = "GET"
        request.AutomaticDecompression = DecompressionMethods.GZip Or DecompressionMethods.Deflate
        Using response As HttpWebResponse = request.GetResponse()
            Using stream As Stream = response.GetResponseStream()
                Using fileStream As New FileStream(destPath, FileMode.Create)
                    stream.CopyTo(fileStream) '使用了 CopyTo 方法，这是在 .NET Framework 4.0 及更高版本中引入的 System.IO.Stream 类的方法。如果你使用的是较早版本的 .NET Framework，或者 CopyTo 方法未被识别，你可以手动实现流的复制功能。
                End Using
            End Using
        End Using
    End Sub
End Class

程序代码：


Imports System.IO
Imports System.Net

Public Class Form1
    Private WithEvents webClient As New System.Net.WebClient
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DownloadFile()
    End Sub

    Sub DownloadFile()
        Dim destPath As String = "C:\image3.png"
        Dim url As String = ""
        Dim imageData As Byte() = webClient.DownloadData(url)
        File.WriteAllBytes(destPath, imageData)
    End Sub
End Class

比较两个double值是否相等时，应该采用相减的方式

tiancao1001 — 2025-01-09 19:51:41

'两个double，即使显示的字符串完全相等，通过等号来判断，也不一定准确，与double的精度有关，

比较两个double值是否相等时，应该采用相减的方式

遍历闭合PL线的每一条边

tiancao1001 — 2025-01-08 22:58:47

Dim ncount As Integer = PL.NumberOfVertices
  Dim i As Integer = 0
  While i < ncount
      Dim p1 As Point3d = PL.GetPoint3dAt(i)
      Dim p2 As Point3d = PL.GetPoint3dAt((i + 1) Mod ncount)
      MsgBox(i & "  " & (i + 1) Mod ncount)

      i += 1
  End While

Mod ncount 用的好