WhatsApp 国外手机号
窗体里添加个PictureBOX控件
窗whatsapp官方网站电版本体代码：Private Sub Command1_Click()
AddIcon Form1.Picture1, "这里写你鼠标停留时的显示的文字", Form1
End Sub
Private Sub Command2_Click()
DeleteIcon Pwhatapp网页版免费翻译icture1
End Sub
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case X
Case trayLBUTTONDOWN
Case trayLBUTTONUP
Case trayLBUTTONDBLCLK
Form1.Visible = True
Case trayRBUTTONDOWN
Form1.PopupMenu mnuFile, vbRightMenuAlign
Case whatsapp最新版本安装trayRBUTTONUP
Case trayRBUTTONDBLCLK
Case trayMOUSEMOVE
Case Else
End Select
End Sub
模块代码：Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIM_MODIFY = &H1
Public Const WM_MOUSEMOVE = &H200
Public Const trayLBUTTONDOWN = 7695
Public Const trayLBUTTONUP = 7710
Public Const trayLBUTTONDBLCLK = 7725
Public Const trayRBUTTONDOWN = 7740
Public Const trayRBUTTONUP = 7755
Public Const trayRBUTTONDBLCLK = 7770
Public Const trayMOUSEMOVE = 7680
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
Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Dim trayStructure As NOTIFYICONDATA
Public Function AddIcon(pic As Control, tip$, f As Form)
trayStructure.szTip = tip$ & Chr$(0)
trayStructure.uFlags = NIF_MESSAGE + NIF_ICON + NIF_TIP
trayStructure.uID = 100
trayStructure.cbSize = Len(trayStructure)
trayStructurwhatsapp添加好友怎么加e.hwnd = pic.hwnd
trayStructure.uCallbackMessage = WM_MOUSEMOVE
trayStructure.hIcon = f.Icon
rc = Shell_NotifyIcon(NIM_ADD, trayStructure)
End Function
Public Function DeleteIcon(pic As Control)
trayStructure.uID = 100
trayStructure.cbSize = Len(trayStructure)
trayStructure.hwnd = pic.hwnd
trayStructure.uCallbackMessage = WM_MOUSEMOVE
rc = Shell_NotifyIcon(NIM_DELETE, trayStructure)
End Function
Public Sub NewTip(pic As Control, tip$)
trayStructure.uFlags = NIF_TIP
trayStructure.uID = 100
trayStructure.cbSize = Len(trayStructure)
trayStructure.hwnd = pic.hwnd
trayStructure.uCallbackMessage = WM_MOUSEMOVE
trayStructure.szTiwhatsapp电脑下载不了p = tip$ & Chr$(0)
rc = Shell_NotifyIcon(NIM_MODIFY, trayStructure)
End Sub
然后你要在窗体上鼠标菜单编辑器编辑菜单！
具体的我也给你个示例：我给你张图图看吧一个个打打死人的。。
具体的名字代码里有涉及我也给你奉上：
标题 名称
&FilemnuFile
打开whatsapp程序安卓版下载软件界面 mnuOpen
版权 mnuAbout
退出 mnuExit
另外把&File的可见这个勾去掉因为你是软件里不可见下面图标可见！
代码就这样了！还不行的留个邮箱我发你就是了
另外下面出现的框框里的事件在窗体代码里的Picture1的MouseMove事件里写！
对了你是要程序关系，那就把AddIcon Form1.Picture1, "这里写你鼠标停留时的显示的文字", Form1写在FORM Unload事件里即可！
想关闭就直接End吧！
------------------------------
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
'---------- dwMessage可以是以下NIM_ADD、NIM_DELETE、NIM_MODIFY 标识符之一----------
Private Const NIM_ADD = &H0 '在任务栏中增加一个图标
Private Const NIM_DELETE = &H2 '删除任务栏中的一个图标
Private Const NIM_MODIFY = &H1 '修改任务栏中个图标信息
Private Const NIF_MESSAGE = &H1 'NOTIFYICONDATA结构中uFlags的控制信息
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_MOUSEMOVE = &H200 '当鼠标指针移至图标上
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONUP = &H205
Private Type NOTIFYICONDATA
cbSize As Long '该数据结构的大小
hwnd As Long '处理任务栏中图标的窗口句柄
uID As Long '定义的任务栏中图标的标识
uFlawhatsapp不见对方头像gs As Long '任务栏图标功能控制，可以是以下值的组合（一般全包括）
'NIF_MESSAGE 表示发送控制消息；
'NIF_ICON表示显示控制栏中的图标；
'NIF_TIP表示任务栏中的图标有动态提示。
uCallbackMessage As Lowhatapp网页版添加不进好友ng '任务栏图标通过它与用户程序交换消息，处理该消息的窗口由hWnd决定
hIcon As Long '任务栏中的图标的控制句柄
szTip As String * 64 '图标的提示信息
End Type
Dim t As NOTIFYICONDATA'---------以上是在系统托盘显示图标的代码
Dim sHour, sMinute '自动关机的时间小时和分钟
'---------以下是不显示标题栏等的代码
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Lo苹果whatsapp注册不了ng, ByVal dwNewLongwhatapp网页版苹果版怎么登录 As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CAPTION = &HC00000 ' WS_BORDER 或 WS_DLGFRAME
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H8whatapp网页版官网网站0000
Private Declare Functiwhatsapp 下载最新on SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, _
ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Enum ESetWindowPosStyles
SWP_SHOWWINDOW = &H40
SWP_HIDEWINDOW = &H80
SWP_FRAMECHANGED = &H20 ' The frame changed: send WM_NCCALCSIZE
SWP_NOACTIVATE = &H10
SWP_NOCOPYBITS = &H100
SWP_NOMOVE = &H2
SWP_NOOWNERZORDwhatapp网页版备份聊天记录ER = &H200 ' Don't do owner Z ordering
SWP_NOREDRAW = &H8
SWP_NOREPOSITION = SWP_NOOWNERZORDER
SWP_NOSIZE = &H1
SWP_NOZORDER = &H4
SWP_DRAWFRAME = SWP_FRAMECHANGED
HWND_NOTOPMOST = -2
End Enum
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Function ShowTitleBar(ByVal bState As Boolean)
Dim lStyle As Long
Dim tR As RECT
' 获取窗口的位置：
GetWindowRect Me.hwnd, tR
' 调整标题栏是否可见：
lStyle = GetWindowLong(Me.hwnd, GWL_STYLE)
If (bState) Then
Me.Caption = Me.Tag
If Me.ControlBox Then
lStyle = lStyle Or WS_SYSMENU
End If
If Me.MaxButton Then
lStyle = lStyle Or WS_MAXIMIZEBOX
End If
If Me.MinButton Then
lStyle = lStyle Or WS_MINIMIZEBOX
End If
If Me.Caption <> "" Then
lStyle = lStyle Or WS_CAPTION
End If
Else
Me.Tag = Me.Caption
Me.Caption = ""
lStyle = lStyle And Not WS_SYSMENU
lStyle = lStyle And Not WS_MAXIMIZEBOX
lStyle = lStyle And Not WS_MINIMIZEBOX
lStyle = lStyle And Not WS_CAPTION
End If
SetWindowLong Me.hwnd, GWL_STYLE, lStyle
' 重新设定窗口：
SetWindowPos Me.hwnd, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom - tR.Top, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED
Me.Refresh
' 你可能需要在Form_Resize中加一点代码，因为客户区的大小已经改变：
'Form_Resize
End Function'----------------以上是不显示标题栏工具栏等代码
Sub TaskSet(s As Integer)
Dim sTmp
t.cbSize = Len(t)
t.hwnd = Me.hwnd
t.uID = 0
t.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
t.uCallbackMessage = WM_MOUSEMOVE
t.hIcon = Me.Icon.Handle
sTmp = "标 题"
t.szTip = sTmpwhatapp网页版好友链接
Select Case s
Case 1
Shell_NotifyIcon NIM_ADD, t
Case 2
Shell_NotifyIcon NIM_DELETE, t
End Select
End Sub
-------------------------------------------------------
在load中写上
ShowTitleBar False'让窗口标题消失
TaskSet 1'不显示界面，在系统托盘显示
App.TaskVisible = False
me.icon是右下角图标
MSCOM，和硬件的接口，通信参数设置等对不对？
请说明详细情况。
WhatsApp中文网页版 - WhatsApp官网请注明：WhatsApp中文网页版 - WhatsApp官网 » whatsapp 国外手机号 VB中怎么实现程序关闭后出现在系统托盘中
