VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 自定义Text的pop-up菜单
发表评论(0)作者:, 平台:, 阅读:11301, 日期: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