中科新闻网说降头的香港恐怖电影:VB托盘问题
来源：百度文库 编辑：中科新闻网 时间：2024/05/03 11:48:18
我想问的是,右击托盘能出现菜单..这个代码怎么编写?
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
Me.Show
Me.SetFocus
Case WM_RBUTTONUP
PopupMenu MenuTray
Case WM_MOUSEMOVE
Case WM_LBUTTONDOWN
Case WM_LBUTTONDBLCLK
Case WM_RBUTTONDOWN
Case WM_RBUTTONDBLCLK
Case Else
End Select
以上是我在mousemove里的代码,运行时提示"PopupMenu MenuTray"这一行有错误,我比较愚笨.请问该如何修改?
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_LBUTTONUP
MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
Me.Show
Me.SetFocus
Case WM_RBUTTONUP
PopupMenu MenuTray
Case WM_MOUSEMOVE
Case WM_LBUTTONDOWN
Case WM_LBUTTONDBLCLK
Case WM_RBUTTONDOWN
Case WM_RBUTTONDBLCLK
Case Else
End Select
以上是我在mousemove里的代码,运行时提示"PopupMenu MenuTray"这一行有错误,我比较愚笨.请问该如何修改?
使用API函数Shell_NotifyIcon。声明可以用vb自带的api声明程序复制,然后在from的mousemove中用定义消息
令这个message = X / Screen.TwipsPerPixelX
if message =WM_RBUTTONUP then '如果是右键消息,多消息选择可以用select....
PopupMenu MyMenu '就弹出菜单
以前自己写过一个托盘的vb类,应该能找得到!有左右键up,down消息,moveup,还有tip,可以更换图标,实现动态图标,使用简单..呵呵,需要的话可以和我联系