下拉式菜单vb编程

实验七

1.

Private Sub CT_Click()

Text1.FontBold = True

End Sub

Private Sub H12_Click()

Text1.FontSize = 12

End Sub

Private Sub H8_Click()

Text1.FontSize = 8

End Sub

Private Sub JS_Click()

End

End Sub

Private Sub QC_Click()

Text1.Text = ""

End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

PopupMenu w1

End If

End Sub

Private Sub XT_Click()

Text1.FontItalic = True

End Sub