发表评论(0)作者:, 平台:, 阅读:11633, 日期:2000-03-12
自定义Text的pop-up菜单
在 Windows 95, 右击 Textbox 将出现基本的编辑菜单。如果你想改变该菜单,
可将以下的代码放到 Textbox 的 MouseDown 事件中。
If Button = vbRightButton Then
Text1.Enabled = False
Text1.Enabled = True
Text1.SetFocus
PopUpMenu Menu1
End If
在 Windows 95, 右击 Textbox 将出现基本的编辑菜单。如果你想改变该菜单,
可将以下的代码放到 Textbox 的 MouseDown 事件中。
If Button = vbRightButton Then
Text1.Enabled = False
Text1.Enabled = True
Text1.SetFocus
PopUpMenu Menu1
End If