data11.dat

来自「学习VB的经典资料 vb一点通 看后很快就会了 初学者的帮手」· DAT 代码 · 共 46 行

菜 单 标 记

本例将讲解如何在菜单项的左边显示“√”标记。

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