Catia二次开发:数组,局部变量等,msgbox,背景颜色,enable属性,图片模块,vb的common dialog控件,键盘鼠标事件,text操作
文章目录
- 数组
- 局部变量,模块级变量,全局变量
- msgbox
- 背景颜色,enable属性,图片模块
- vb的common dialog控件
- 键盘和鼠标事件
- text操作
数组
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) = 200Dim c(2, 3) As Integer '第一维度为0-2,第二维度为0-3,所以容量为3x4=12
Dim 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.ShowFont
Label1.FontName = CommonDialog1.FontName
Label1.FontSize = CommonDialog1.FontSize
Label1.FontBold = CommonDialog1.FontBold '修改字体
End SubPrivate Sub Command3_Click()
CommonDialog1.ShowColor
Label1.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不会,所以推荐用write
Write #1, "小蚂蚁", "小蚂蚁2" 'write连续写入Close #1End SubSub 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 SubSub READ1()
Dim I As Integer, S As StringOpen "D:\12.txt" For Input As #1 '读取数据
Input #1, I, S
Debug.Print I
Debug.Print S
Close #1
End 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操作相关推荐
- CATIA二次开发CAA实现MFC树形控件的方法研究
CATIA使用CAA二次开发的时候,如果需要对树形数据对象实现管理,使用树形控件是非常好的选择.但是,CAA本身提供的控件较少,多数情况无法较好地满足项目要求,如果你的水平足够高,也可以使用CATNa ...
- catia三维轴承_浅谈基于CATIA二次开发的单排四点接触球轴承三维设计论文
浅谈基于CATIA二次开发的单排四点接触球轴承三维设计论文 一.概述 单排四点接触球转盘轴承是一种能够同时承受较大轴向负荷.径向负荷和倾覆力矩等综合载荷,集支承.旋转.传动.固定等多种功能于一身的特殊 ...
- Catia 二次开发 资料
Catia 二次开发 CATIA V5在开发之初就遵循面向对象的设计思想(OO),构建了完全基于组件的体系结构(PPR: Products,Process,Resource),有效地解决了维护.管理. ...
- 【二次开发】如何使用C#进行CATIA二次开发
1. 引言 由于项目需要,最近搜集整理了一些关于CATIA二次开发的资料,貌似国内对于CATIA二次开发需求不大,相关资料比较有限,因此刚开始遇到了不少问题,通过分析网上的一些示例,以及结合CATIA ...
- 想入门CATIA二次开发CAA的盆友看过来(谈谈开发经验,或许对你有帮助!)
前言 刚开始接触CATIA二次开发时候还是比较难熬的,因为没接触过CATIA.更重要的是没有C++基础.帮助文档 很难翻译成可以理解的中文.刚开始时候一头雾水,身边也没人做过开发,都是我一个人在默默的 ...
- catia二次开发_侧长条花纹定义
1. 前言 想多写点博文,就把以前完成的小作品贴出来,与大家共勉. 工具:VS2010 C# .Catia R21 参考:<CATIA二次开发技术基础>.API 最好是多写一点模板类,可以 ...
- CAA教程——CATIA二次开发环境搭建
CAA教程--CATIA二次开发环境搭建 前言 开发环境搭建所需资源 安装注意事项 安装完成后的一些操作 测试程序的运行效果 CATIA帮助文档的设置 VS里利用CATIA帮助文档的查询接口功能 编译 ...
- CATIA 二次开发 CAA笔记.新的开始
CATIA 二次开发 CAA笔记.新的开始 序 正题: 序 之前并没有什么编程的项目经验,说道本人的教育背景,本科化工机械,研究生考的车辆工程,然后在导师的建议下选择了协同方向, 自学了一点微不足道的 ...
- CATIA二次开发资源汇总
http://blog.olizax.com/post/46403531888/catia 按:本来是为了偷懒,利用python写了一点catia的脚本,结果被领导发现,让我拿出一个成熟点的东西出来, ...
- CATIA二次开发:定制化需求、降低错误率和提高工作效率的完美解决方案
CATIA二次开发:让您的设计更高效 如果您是一位CAD工程师,您一定知道CATIA软件.CATIA是目前工业设计领域中使用最广泛的三维CAD软件之一.但是,您可能不知道CATIA还可以通过二次开发来 ...
最新文章
- 5折交叉验证_交叉验证:评估模型表现
- Tomcat服务OTA发布J2ME应用(eclipse开发环境)
- 【分析】腾讯年终总结:微信用户一天到晚都在干啥
- 伟大的人为什么伟大呢?
- 亚马逊推荐python_使用python查找amazon类别
- 调用百度人脸识别API进行人脸对比 C语言
- HIS系统两种收费模式比较:前计费和后计费
- 剖析CWE视图的层次定义和解析方式
- scrapy 基本操作
- 2015安徽省赛 G.你来擒孟获
- 污染物在线自动监控(监测)系统数据传输标准 (HJ212-2017)-空气质量监测数据包构造...
- iconfont采坑
- linux下python网络编程框架-twisted安装手记,Linux下Python网络编程框架-Twisted安装手记 | 学步园...
- Python学习笔记-数据类型(元组 tuple)
- layui日周月年的日历切换,当选择周时设置每周一可选,其余日期置灰不可选
- linux下安装ffmpeg过程
- mysql查询同名同姓重名人数_查全国同名同姓,怎样查重名人数查询
- 初中生直升高中定下来了?预计2023年全面落实?教育部的回应来了
- 用matlab画标准雷电波,雷电波发生器的MATLAB仿真及参数选取sc.doc
- 用户名不在sudoers文件中,此事将被报告的解决方法