文章目录
数组局部变量，模块级变量，全局变量msgbox背景颜色，enable属性，图片模块vb的common dialog控件键盘和鼠标事件text操作数组
Sub jk()Dim a(10) As Integer '一维数组，容量为11，因为是0-10Dim b(1 To 10) As Integer '容量为10，指明了下标是1-10b(1) = 100b(2) = 200Dim c(2, 3) As Integer '第一维度为0-2，第二维度为0-3，所以容量为3x4=12Dim d(1 To 2, 1 To 3) As IntegerEnd 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, MyStringMessage = ("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 defaultTitle = "Purpose "Response = MsgBox(Message, Style, Title)If Response = vbYes Then ' User chose Yes.MyString = "Yes"End IfEnd 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 SubPrivate Sub Command2_Click()CommonDialog1.ShowFontLabel1.FontName = CommonDialog1.FontNameLabel1.FontSize = CommonDialog1.FontSizeLabel1.FontBold = CommonDialog1.FontBold '修改字体End SubPrivate Sub Command3_Click()CommonDialog1.ShowColorLabel1.ForeColor = CommonDialog1.Color '修改颜色End SubPrivate Sub modify_Click()Label1.Caption = "hello"End Sub
键盘和鼠标事件
更改鼠标风格：
text操作
Sub jk()Open "D:\11.txt" For Output As #1 '文件如果不存在，会自动创建'Print #1, "哈喽"'write 连续写入时，会自动加上逗号，隔开。而print不会，所以推荐用writeWrite #1, "小蚂蚁", "小蚂蚁2" 'write连续写入Close #1End SubSub WRITE1()Dim I As Integer, S As StringI = 100: S = "LITTLE ANT" '中间是冒号:Open "D:\12.txt" For Output As #1 '写入数据Write #1, I, SClose #1End SubSub READ1()Dim I As Integer, S As StringOpen "D:\12.txt" For Input As #1 '读取数据Input #1, I, SDebug.Print IDebug.Print SClose #1End SubSub rename1()Name "D:\12.txt" As "D:\22.txt" '重命名End SubSub killtxt()kill "D:\11.txt" '删除文件End Sub
Catia二次开发：数组 局部变量等 msgbox 背景颜色 enable属性 图片模块 vb的common dialog控件 键盘鼠标事件 text操作
