VB 知识点

1. 输入框 Inputbox

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

 

2. 动态创建控件

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

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

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

 

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

 

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

 

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

 

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

在标题文本框中键入  -

 

7.VB最小化窗口

Me.WindowState = vbMinimized

 

8. 分割线

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