文章目录
冒号连接语句,一行的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个位置,