菜 單 標 記

本例將講解如何在菜單項的左邊顯示“√”標記。

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