VB程序题：把图 G.7中“菜单2”的命令设计成弹出菜单，即当在文本框中单击鼠标右键弹出一个包括“菜单2” 命令的弹出菜单。

VB程序题：把图 G.7中“菜单2”的命令设计成弹出菜单，即当在文本框中单击鼠标右键弹出一个包括“菜单2” 命令的弹出菜单。

G.7图

解题，相关的代码如下：

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Text1.Enabled = False '避免文本框控件自带的系统菜单弹出来。
        Text1.Enabled = True '避免文本框控件自带的系统菜单弹出来
        Text1.SetFocus'焦点定位于文本框
        PopupMenu menu2 '弹出自定义菜单
    End If
End Sub

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/105.html