Question

在VB ，怎样编写与操作；设置菜单为弹出式，单击右键弹出列表为设置字体、前景色、后景色、退出的程序？？

Answer 1

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

If Button = 2 Then

PopupMenu gys, 2

End If

End Sub

Private Sub hong_Click()

Form1.BackColor = vbRed

End Sub

Private Sub lan_Click()

Form1.BackColor = vbBlack

End Sub

Private Sub lv_Click()

Form1.BackColor = vbGreen

End Sub

Answer 2

http://zhidao.baidu.com/question/6824002.html