?? 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 + -