![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
vb.net
n_Tree
这个作者很懒,什么都没留下…
展开
-
vb.net 创建文件路径
'tempFilePath 为文件路径,检查路径是否存在,不存在则创建If Not System.IO.Directory.Exists(tempFilePath) Then System.IO.Directory.CreateDirectory(tempFilePath)End If原创 2021-06-23 10:50:59 · 718 阅读 · 0 评论 -
vb.net 打开Excel
Dim xlapp As Excel.Application 'Excel对象Dim xlbook As Excel.Workbook '工作簿Dim xlsheet As Excel.Worksheet '工作表Dim xlrange As Excel.RangePrivate Sub Command1_Click()Set xlapp = CreateObject("excel.application") '第一层Set xlbook = xlapp.Workbooks.Open("d:.原创 2021-06-23 10:47:33 · 1140 阅读 · 0 评论 -
vb.net 队列添加成员
Sub Main() Dim queue As Collections.Queue = New Queue Dim c As Integer = 0 Dim m As New Random Dim d As Double = 0 Dim list1 As New List(Of String) For i As Integer = 0 To 20 System.Threading...原创 2021-06-23 10:26:19 · 219 阅读 · 0 评论 -
vb.net 监控鼠标是否有移动
Dim x As Integer = 0 Dim y As Integer = 0 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load x = Control.MousePosition.X y = Control.MousePosition.Y End Sub Private Sub Timer1_Tick(sender As ...原创 2021-06-23 10:03:43 · 496 阅读 · 0 评论 -
vb.net 两个不同结构的Datatable合并
Private Function DataTable_UniteDataTable(ByVal dt1 As DataTable, ByVal dt2 As DataTable) Dim dt3 As New DataTable dt3 = dt1.Clone() For i As Int16 = 0 To dt2.Columns.Count - 1 Step 1 dt3.Columns.Add(dt2.Columns(i).Co.原创 2021-06-23 09:54:20 · 304 阅读 · 0 评论 -
vb.net 读写txt文本内容到 DataTable
'写配件文件Private Sub saveIni(ByVal filePath As String, ByVal str As String)Dim sw As StreamWriter = New StreamWriter(filePath, True) 'true是指以追加的方式打开指定文件sw.WriteLine(str)sw.Flush()sw.Close()sw = NothingEnd Sub'读配件文件Private Function readIni(ByVal fil.原创 2021-06-23 09:43:38 · 778 阅读 · 0 评论