catia二次开发:冒号连接,一行的if不用endif,模态,load,unload,option explicit,多窗口,递归调用,sendkey, 枚举,代码加行,设置轴系,可选函参,占位符

冒号连接语句,一行的if不用endif

在这里插入图片描述

模态设置

也可以再窗体属性里设置
在这里插入图片描述

load,unload

unload后,会有下面的标识,并且图片种没有该部分的部件了。
在这里插入图片描述

option explicit

必须对变量进行声明

在这里插入图片描述

多窗口显示

在这里插入图片描述
在这里插入图片描述

递归调用 n!

在这里插入图片描述

模拟键盘输入sendkey

用于破解等。点击enter键用处更多。
在这里插入图片描述

在这里插入图片描述

在这里插入图片描述

枚举类型

在这里插入图片描述

代码加行

手动加1:
在这里插入图片描述

设置轴系为当前轴系

在这里插入图片描述
在这里插入图片描述

可选的函数参数

在这里插入图片描述


Private Sub listtext(x As String, Optional y As String = "specialvalue")
If y = "specialvalue" Then '简单数据类型IsMissing 不起作用,所以用一个默认值来判断
temp = Format(x, "@@@@@@@@@@")
Else
temp = Format(x, "@@@@@@@@@@") & Format(y, "@@@@@@@@@@")
End If
ListBox1.AddItem temp


End Sub

Private Sub CommandButton1_Click()
Dim a As String, b As String
a = InputBox("")
b = InputBox("")
Call listtext(a, b)
End Sub

Private Sub CommandButton2_Click()
Dim a As String
a = InputBox("")

Call listtext(a)
End Sub

Private Sub UserForm_Click()

End Sub

占位符

10个@,表示包括变量x,一共10个位置,
在这里插入图片描述

  • 0
    点赞
  • 3
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值