{"id":1394,"date":"2024-07-16T08:00:00","date_gmt":"2024-07-16T00:00:00","guid":{"rendered":"http:\/\/www.wyrcad.com\/?p=1394"},"modified":"2024-07-23T09:56:47","modified_gmt":"2024-07-23T01:56:47","slug":"%e5%9c%a8%e7%b3%bb%e7%bb%9f%e6%89%98%e7%9b%98%e4%b8%ad%e6%98%be%e7%a4%ba","status":"publish","type":"post","link":"https:\/\/www.wyrcad.com\/?p=1394","title":{"rendered":"\u5728\u7cfb\u7edf\u6258\u76d8\u4e2d\u663e\u793a"},"content":{"rendered":"\n

‘\u5efa\u7acb\u9879\u76ee(Project)\uff0c\u521b\u5236\u5982\u56fe\u7ea7\u8054\u83dc\u5355\uff0c\u5206\u522b\u547d\u540d\u4e3amnuMain\u3001mnuWork\u3001mnuExit\u3002<\/p>\n\n\n\n

\"\"<\/figure>\n\n\n\n

Option Explicit
Private 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
Dim tnid As NOTIFYICONDATA
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const DOUBLE_CLICK_LEFT = &H203
Private Const BUTTON_LEFT_DOWN = &H201
Private Const BUTTON_LEFT_UP = &H202
Private Const DOUBLE_CLICK_RIGHT = &H206
Private Const BUTTON_RIGHT_DOWN = &H204
Private Const BUTTON_RIGHT_UP = &H205
Private Declare Function Shell_NotifyIcon Lib “shell32” Alias “Shell_NotifyIconA” (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean<\/p>\n\n\n\n

Private Sub Form_Load()
tnid.cbSize = Len(tnid)
tnid.hWnd = Me.hWnd
tnid.uID = 1&
tnid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
tnid.uCallbackMessage = NIM_MOUSEMOVE
tnid.hIcon = Me.Icon
tnid.szTip = “\u7cfb\u7edf\u6258\u76d8\u6837\u4f8b” & Chr$(0)
Shell_NotifyIcon NIM_ADD, tnid
Me.Hide
App.TaskVisible = False
End Sub<\/p>\n\n\n\n

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
‘\u4e3a\u76f8\u5e94\u4e8b\u4ef6\u6dfb\u52a0\u5bf9\u5e94\u4ee3\u7801
Dim MSG As Long
MSG = X \/ Screen.TwipsPerPixelX ‘512
Select Case MSG
Case DOUBLE_CLICK_LEFT ‘515<\/p>\n\n\n\n

Case BUTTON_LEFT_DOWN ‘513
OpenForm Me
Case BUTTON_LEFT_UP ‘514<\/p>\n\n\n\n

Case DOUBLE_CLICK_RIGHT ‘518<\/p>\n\n\n\n

Case BUTTON_RIGHT_DOWN ‘516<\/p>\n\n\n\n

Case BUTTON_RIGHT_UP ‘517
PopupMenu mnuMain, , , , mnuWork
End Select
End Sub<\/p>\n\n\n\n

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
EndApp
End Sub<\/p>\n\n\n\n

Private Sub Form_Resize()
If Me.WindowState = 1 Then
Me.Hide
App.TaskVisible = False
End If
End Sub<\/p>\n\n\n\n

Private Sub mnuExit_Click()
EndApp
End Sub<\/p>\n\n\n\n

Private Sub EndApp()
Unload Me
tnid.cbSize = Len(tnid)
tnid.hWnd = Me.hWnd
tnid.uID = 1&
Shell_NotifyIcon NIM_DELETE, tnid
End
End Sub<\/p>\n\n\n\n

Private Sub OpenForm(ByVal frmShow As Form)
frmShow.Show
App.TaskVisible = True
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"

‘\u5efa\u7acb\u9879\u76ee(Project)\uff0c\u521b\u5236\u5982\u56fe\u7ea7\u8054\u83dc\u5355\uff0c\u5206\u522b\u547d\u540d\u4e3amnuMain\u3001mnuWork\u3001mnuE … \u7ee7\u7eed\u9605\u8bfb\u201c\u5728\u7cfb\u7edf\u6258\u76d8\u4e2d\u663e\u793a\u201d<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12],"tags":[24,17],"class_list":["post-1394","post","type-post","status-publish","format-standard","hentry","category-bianchengyuandi","tag-vb","tag-biancheng"],"_links":{"self":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/1394","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1394"}],"version-history":[{"count":2,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/1394\/revisions"}],"predecessor-version":[{"id":1400,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=\/wp\/v2\/posts\/1394\/revisions\/1400"}],"wp:attachment":[{"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1394"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1394"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.wyrcad.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1394"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}