VB 知识点

1. 输入框 Inputbox

Dim url as String
url = InputBox("请输入一个网址")

 

2. 动态创建控件

Private Sub Form_Load()
   Form1.Controls.Add "VB.CommandButton", "cmdObj1", Frame1
   With Form1!cmdObj1
      .Visible = True
      .Width = 2000
      .Caption = "Dynamic Button"
   End With
End Sub
在窗体启动时,动态添加一个控件,它是一个按钮,名称叫cmdObj1

Dim Label() As Object    '标签控件对象数组

Set Label(i) = Controls.Add("VB.Label", "Label" & CStr(i))  '动态创建标签控件，CStr把i转换成字符串类型
Label(i).Height = 300
Label(i).Top = nTop
Label(i).Visible = True

 

3.CStr（）
把变量转换成字符串类型

 

4.双引号怎么转义
CStr(chr(34))

 

5.错误处理
on error goto T
on error resume next                 程序段开始处，加上这个语句，程序遇到错误还会向下执行．
...
If Err.Number <> 0 Then Err.Clear    程序段末尾处，如果有错误的话，就清除错误

 

6.VB要在两个菜单命令项之间加条分割线

在标题文本框中键入  -

 

7.VB最小化窗口

Me.WindowState = vbMinimized

 

8. 分割线

添加 label标签，BorderStyle 设为 1 - fixedSingle，高度设为40