VB窗体最小化

2025-02-28 03:09:10

推荐回答（3个）

回答（1）：

要一个窗体，一个模块窗体内输入Private Sub Form_Load()
prevWndProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
Dim nid As NOTIFYICONDATA
nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd
nid.uID = 9999
nid.uFlags = NIF_ICON + NIF_TIP + NIF_MESSAGE
nid.hIcon = Me.Icon
nid.szTip = Form1.Caption + Chr(0)
nid.uCallbackMessage = WM_USER + 100
Shell_NotifyIcon NIM_ADD, nid
End SubPrivate Sub Form_Unload(Cancel As Integer)
Dim nid As NOTIFYICONDATA

nid.cbSize = Len(nid)
nid.hWnd = Me.hWnd
nid.uID = 9999

Shell_NotifyIcon NIM_DELETE, nidEnd Sub
Private Sub Timer3_Timer()
If Form1.WindowState = 1 Then
Me.Hide
End If
End Sub模块部分输入模块部分输入模块部分输入模块部分输入模块部分输入模块部分输入模块部分输入模块部分输入Option ExplicitPublic Const GWL_WNDPROC = (-4)
Public Const WM_USER = &H400
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONUP = &H202Public Const NIM_ADD = 0
Public Const NIM_MODIFY = 1
Public Const NIM_DELETE = 2Public Const NIF_MESSAGE = 1
Public Const NIF_ICON = 2
Public Const NIF_TIP = 4Type 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
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic prevWndProc As LongFunction WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_USER + 100 Then
If lParam = WM_LBUTTONDBLCLK Then
Form1.WindowState = vbNormal
Form1.Show End If: End If
WndProc = CallWindowProc(prevWndProc, hWnd, Msg, wParam, lParam)
End Function运行结果

回答（2）：

最小化到任务栏？楼上的答案还是可能实现的

回答（3）：

代码很麻烦，加我，我发给你代码

最新问答

VB窗体最小化

美术校考具体考哪些详细内容？

笔记本在家里的路由器上面插网线没反应，没有网

高中理科一般要考多少分才能取一本

什么水槽好，购买水槽要买什么品牌的？

编写一个函数，输入一个整型二维数组，输出其中最大值所在的行号和列号，以及最大值

介绍有哪些比较好用的数控仿真软件？

家里养藏獒安全吗？养过的说下？无聊的边去

翡翠满绿和阳绿的区别翡翠不透不关系到好坏

女朋友让我帮她交话费,我不想帮她交,该怎么拒绝?