📄 code82a.txt
字号:
Dim Cancel as Boolean
Private Sub Form_Load()
lblQuery.Caption = "Click on cancel to exit."
Me.Show
Cancel = False
Do While Not Cancel
lblQuery.ForeColor = QBColor(Rnd * 10)
DoEvents
Loop
End
End Sub
Private Sub cmdCancel_Click()
Cancel = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -