当前位置:首页 » VB程序题 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号