徵求以前的VB6高手帮我看一下 以下是以前的人写的，想动刀 １．为表单加上一个 Icon。 ２．表单上放一个主功能表，把「显示」属性关掉。 ３．在主功能表之下新增四个功能项目。（f01、f02、f03、exit） ４．把下面程式码复制到表单。复制内容到剪贴板代码: '初始化-SystemIcon Private Sub Form_Load() If App.PrevInstance Then Unload Me App.TaskVisible = False InitSystemIcon Me.hWnd, Me.icon End Sub '以左键开启功能表 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim msg As Long msg = X / Screen.TwipsPerPixelX If msg = WM_LBUTTONUP Then PopupMenu myMenu, 0 End Sub Private Sub f01_Click() MsgBox "你按下了 " & f01.Caption & " 功能。" End Sub Private Sub f02_Click() MsgBox "你按下了 " & f02.Caption & " 功能。" End Sub Private Sub f03_Click() MsgBox "你按下了 " & f03.Caption & " 功能。" End Sub Private Sub f_exit_Click() End End Sub '下面的code是放在模组 Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIcon A" (ByVal dwMessage As NotifyIconMsg, pnid As NotifyIconData) As Boolean Public Const WM_LBUTTONDOWN = &H201 Public Const WM_LBUTTONUP = &H202 Public Const WM_LBUTTONDBLCLK = &H203 Public Const WM_RBUTTONDOWN = &H204 Public Const WM_RBUTTONUP = &H205 Public Const WM_RBUTTONDBLCLK = &H206 Public Const WM_MOUSEMOVE = &H200 Public Enum NotifyIconMsg NIM_ADD = &H0 NIM_MODIFY = &H1 NIM_DELETE = &H2 NIF_MESSAGE = &H1 NIF_ICON = &H2 NIF_TIP = &H4 End Enum Public Type NotifyIconData cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Public SystemIcon As NotifyIconData 'SystemICON 初始化处理 Sub InitSystemIcon(hWnd As Long, icon As Object) With SystemIcon .cbSize = Len(SystemIcon) .hWnd = hWnd .hIcon = icon .uID = vbNull .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE .uCallbackMessage = WM_MOUSEMOVE .szTip = "我的测试程式 by ku3" & Chr(0) End With Shell_NotifyIcon NIM_ADD, SystemIcon End Sub '更新 SystemICON 处理 Sub UpdateSystemIcon(hWnd As Long, icon As Object) SystemIcon.szTip = _ SystemIcon.hIcon = icon Shell_NotifyIcon NIM_MODIFY, SystemIcon End Sub 问题1.这个code执行後 右下角的icon图示 只能滑鼠左键PopupMenu 我想改成滑鼠右键然後就PopupMenu 问题2.当程式关闭後 右下角的icon图示不会消失 只有滑鼠移过去它才会消失... 要如何在程式关闭後 右下角的icon图示也跟着消失 补充：希望各位高手帮帮忙... 这里难处是对windows来说 右下角的icon只是一个小图示 所以我狂try也都失败 --

※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.82.195.185 (台湾) ※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1583411148.A.8A7.html