VB编程总结_vbpw-CSDN博客

本文链接：https://blog.csdn.net/u011041241/article/details/103906253

1.打包

打包时可使用自带的Package & Deployment 向导生成安装包文件，会将所用到的控件提取。也可使用VB-PowerWrap软件进行生成exe，VB-PowerWrap中创建的时候，压缩建议使用低，在使用高的时候，其中有些控件在别的电脑运行时出现缺失问题。

2.with

With MyLabel
.Height = 2000
.Width = 2000
.Caption = "This is MyLabel"
End With

意指，MyLabel.Height = 2000 MyLabel.Width = 2000

3. 多通道，每个通道格式一致

在有许多路相同的时候（多通道），建议使用数组的方式，

如创建一个textbox文本框Iset，对其进行复制粘贴，会让你创建一个数组，双击文本框，会进入Iset_Change(Index As Integer)，通过Index来区分不同的文本框，对于多路相同的软件较为方便，

如操作

Dim in_temp As String
in_temp = Iset(Index).Text，即可通过索引值，实现该数组下所有的文本操作。

4.一些函数

（1）IsNumeric(Iset(Index).Text) 判断是否为数字

（2）app.path 可以获得当前app的路径

（3）DataOutValue(3) = &HCD 十六进制发送,相当于发送0xCD

（4）Date 获取当前的日期

（5）Replace(data, "/", "_") 文本替换，data中“/”替换为“_”

如用日期创建TXT时，/不允许使用/,故替换为_(如果替换为空，则会出现202018，月份表示不明确)

（6）判断文件夹是否存在（字符串可直接通过+连接）

      If Dir(App.Path + "\BackUp", vbDirectory) = "" Then '判断文件夹是否存在
   MkDir (App.Path + "\BackUp") '创建文件夹
     End If

（7）pos= InStr(1, strBuff2, "V0") 在strBuff2中搜素字符串"V0"，并返回位置。

（8）Mid(strBuff2, pos, posEnd)取strBuff2中pos到posEnd，中间的字符串

（9）创建TXT（data为日期），并写入

            Dim FileNumber
            FileNumber = FreeFile
            Open App.Path + "\BackUp\" + data + ".txt" For Append As #FileNumber
            pos = InStr(1, strBuff2, "V0")
            posEnd = InStr(1, strBuff2, "tEND")
            If posEnd > pos Then
            posEnd = posEnd - pos
            tmp = Mid(strBuff2, pos, posEnd)
             Print #FileNumber, Now(), tmp
             End If
            Close #FileNumber

（10）FileLen("D:\BackUp\1.txt") 可获得文件大小。

5.使用ucHistogram1绘图，

（1）先绘制控件picture1，然后在picture1中绘制ucHistogram1，（需要添加用户控件ucHistogram.ctl）

（2）初始化时， Call Picture1_Resize，Picture1_Resize函数实现如下：

Private Sub Picture1_Resize()
   With ucHistogram1
       .Move 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
        .Refresh
    End With
End Sub

（3）再创建一个定时器

Private Sub Timer2_Timer()
Static position As Double

Dim data_temp As String
    If Initflag = True Then
          position = position + 1
          Call Write_Graph(position)
    End If
End Sub

（4）Write_Graph(position)函数实现

Private Function Write_Graph(position As Double)
Dim lPoint As Long
          If position >= 5000000 Then position = 0
          lPoint = Va.Caption * 10
          ucHistogram1.NextPoint lPoin
End Function