数组
Sub jk()
Dim a(10) As Integer '一维数组,容量为11,因为是0-10
Dim b(1 To 10) As Integer '容量为10,指明了下标是1-10
b(1) = 100
b(2) = 200
Dim c(2, 3) As Integer '第一维度为0-2,第二维度为0-3,所以容量为3x4=12
Dim d(1 To 2, 1 To 3) As Integer
End Sub
局部变量,模块级变量,全局变量
全局变量要在module中定义,不能在窗体代码中定义
msgbox
调试时,也可以用Debug.Print obody.name来打印信息。
查找属性的讲解,鼠标点到属性上,F1,出来帮助信息
输入msgbox,鼠标点击放msgbox后面,F1,出来帮助信息。在这个界面也可以看到很多其他的类和函数的讲解
MsgBox(prompt[, buttons] [, title] [, helpfile, context]),有中括号的是可省略参数option,没中括号的是必须有的参数require
可省略的参数有默认,vbOKOnly 0 Display OK button only. 值是0,就是默认的。
这三组风格,是可以组合的。
对应的点击,msgbox是有返回值的,要用返回值,书写上,msgbox要加括号
response = MsgBox("hello", vbYesNoCancel + vbCritical + vbDefaultButton2, "你好")
Sub jk()
'MsgBox "hello", 3, "你好" 'vbYesNoCancel可以用数字3来代替,因为vbYesNoCancel是个常量,他的值就是3
'm = MsgBox("hello", vbYesNoCancel + vbCritical + vbDefaultButton2, "你好")
Dim Message, Style, Title, Response, MyString
Message = ("This macro will change" & (Chr(13)) & " the colour of all CATParts to default CATIA colour" & _
(Chr(13)) & _
"" & (Chr(13)) & _
" Do you want to continue ?") '刚复制的代码会标红,因为&和_之间要加一个空格
'代码换行,空格加下划线 _
'(Chr(13))显示的文字,会换行
'代码不换行,显示的文字换行,用"change" & (Chr(13)) & " the colour"这种格式
Style = vbYesNo + vbDefaultButton1 'Define buttons. Button1 means marked by default
Title = "Purpose "
Response = MsgBox(Message, Style, Title)
If Response = vbYes Then ' User chose Yes.
MyString = "Yes"
End If
End Sub
背景颜色,enable属性,图片模块
UserForm2.BackColor = RGB(0, 255, 255) '设置背景颜色,这里UserForm2表示UserForm2文件
窗体的enable变成false,那这个窗体的文本就无法进行交互了,甚至关闭按钮也不起作用。
按钮的enable属性变成false,就无法点击了。
CommandButton1.Enabled = False
图片模块:
picture选择图片
picturesizemode选成1,使其自适应尺寸到合适
图片的显示与否,是vision属性在控制
Image1.Visible = False
vb的common dialog控件
common dialog控件在catia的vba编辑器是无法创建的,
所以用一个Visual Basic 6.0企业版
点击运行
右键,部件,添加common dialog
添这个控件后,右键,属性。注意:运行时,是看不到common dialog这个控件的
运行,点击保存按钮
Private Sub Command1_Click()
CommonDialog1.ShowOpen '打开文件
Label1.Caption = CommonDialog1.FileName '文件名
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowFont
Label1.FontName = CommonDialog1.FontName
Label1.FontSize = CommonDialog1.FontSize
Label1.FontBold = CommonDialog1.FontBold '修改字体
End Sub
Private Sub Command3_Click()
CommonDialog1.ShowColor
Label1.ForeColor = CommonDialog1.Color '修改颜色
End Sub
Private Sub modify_Click()
Label1.Caption = "hello"
End Sub
键盘和鼠标事件
更改鼠标风格:
text操作
Sub jk()
Open "D:\11.txt" For Output As #1 '文件如果不存在,会自动创建
'Print #1, "哈喽"'write 连续写入时,会自动加上逗号,隔开。而print不会,所以推荐用write
Write #1, "小蚂蚁", "小蚂蚁2" 'write连续写入
Close #1
End Sub
Sub WRITE1()
Dim I As Integer, S As String
I = 100: S = "LITTLE ANT" '中间是冒号:
Open "D:\12.txt" For Output As #1 '写入数据
Write #1, I, S
Close #1
End Sub
Sub READ1()
Dim I As Integer, S As String
Open "D:\12.txt" For Input As #1 '读取数据
Input #1, I, S
Debug.Print I
Debug.Print S
Close #1
End Sub
Sub rename1()
Name "D:\12.txt" As "D:\22.txt" '重命名
End Sub
Sub killtxt()
kill "D:\11.txt" '删除文件
End Sub