?? data11.dat
字號:
菜 單 標 記
本例將講解如何在菜單項的左邊顯示“√”標記。
Private Sub MenColor_Click()
Diacolor.Action = 3
Text1.ForeColor = Diacolor.Color
End Sub
Private Sub MenExit_Click()
End
End Sub
Private Sub MenFont_Click()
If MenFont.Checked = False Then
Text1.FontBold = True
MenFont.Checked = True
MenMsize.Visible = True
Else
Text1.FontBold = False
MenFont.Checked = False
MenMsize.Visible = False
End If
End Sub
Private Sub MenSize_Click(Index As Integer)
Select Case Index
'選擇了四號字
Case 0
Text1.FontSize = 14
MenSize(0).Checked = True
MenSize(1).Checked = False
MenSize(2).Checked = False
Case 1
Text1.FontSize = 18
MenSize(1).Checked = True
MenSize(0).Checked = False
MenSize(2).Checked = False
Case 2
Text1.FontSize = 20
MenSize(2).Checked = True
MenSize(0).Checked = False
MenSize(1).Checked = False
End Select
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -