电脑WhatsApp怎么下载
我也想知道
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDBLCLK = &H206
Dim WithEvents SysIcon As CSystrayIcon
Private Sub Form_Load()
Set SysIcon = New CSystrayIcon
SysIcon.Initialize hWnd, Picture1.Picture, "Hello World"
SysIcon.ShowIcon
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msgCallBackMessage As Long
msgCallBackMessage = X / Screen.TwipsPerPixelX
Select Case msgCallBackMessage
Case WM_MOUSEMOVE
txtCallbackMessage.Text = "鼠标经过"
Case WM_LBUTTONDOWN
txtCallbackMessafari安卓版官方下载sage.Text = "单击左键"
Me.Show
Case WM_LBUTTONUP
txtCallbackMessage.Text = "左键拖动"
Case WM_LBUTTONDBLCLK
txtCallbackMessage.Text = "双击左键"
Case WM_RBUTTONDOWN
txtCallbackMessage.Text = "单击右键"
Me.Hide
Case WM_RBUTTONUP
txtCallbackMessage.Text = "右键拖动"
Case WM_RBUTTONDBLCLK
txtCallbackMessage.Text =whatapp网页版一键群发 "双击右键"
End Select
End Sub
Private Sub Form_QueryUnload(Cancel As Integewhatsapp已读显示什么r, UnloadMode As Integer)
'隐藏托盘图标
SysIcon.HideIcon
End Sub
Private Sub SysIcon_NIError(ByVal Errowhatsapp怎么加好友安卓rNumber As Long)
'异常错误,退出程序 ErrorNumber
Unload Me
End Sub
创建一个类模块(命名CSystrayIcon):
Option Explicit
Private Declare Function GetLastError Lib "kernel32" () Awhatapp网页版分身登录不上s Long
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Private Const NIM_ADD = &H0 'Add a new icon to the Systray
Private Const NIM_MODIFY = &H1 'whatapp网页版在线注册Modify an existing iwhatapp网页版登录电脑被封con
Private Const NIM_DELETE = &H2 'Delete an existing icon
Private Const NIF_MESSAGE = &H1 'Tell that the message has been updated
Private Const NIF_ICON = &H2 'Tell that the icon picture has been changed
Private Const NIF_TIP = &H4 'Tell that a new ToopTip for the icon is set
Private Const WM_MOUSEMOVE = &H200 'Used as the ID of the callback message
Private Const MAX_TIP_LENGTH As Long = 64 'This is the max length
'of a ToolTip. This value has been tested for Win95.
'For Win98 and NT, try changing this value. Tell me
'if it iwhatsapp如何还原记录s a differenwhatsapp一直转圈登录不了t value.
Private Type NOTIFYICONDATA
cbSize As Long 'The size of this type
hWnd As Long 'The hWnd that will receive the CallBack message
uId As Long 'The ID of the application. Zero represent this application
uFlags Aswhatsapp如何加好友 Long 'The flags. Look at the constants beginning by NIF_ for the flags and their definition
uCallbackMessage As Long 'This is the callback message
hIcon As Long
szTip As String * MAX_TIP_LENGTH
End Type
Private nidTrayIcon As NOTIFYICONDATA
Private bIconDisplayed As Boolean 'The status of the icon. True=Displayed
Private bUpdateOnChange As Boolean
Public Event NIError(ByVal ErrorNumber As Long)
Public Function Initialize(ByVal hWnd As Long, ByVal hIcon As Long, ByVal sTip As whatsapp登入不能输入手机号码String, Optional ByVal uCallbackMessage As Long = WM_MOUSEMOVE) As Long
With nidTrayIcon
.cbSize = Len(nidTrayIcon)
.hIcon = hIcon
.hWnd = hWnd
.szTip = Left(sTip, MAX_TIP_LENGTH - 1) & vbNullChar
.uCallbackMessage = uCallbackMessage
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uId = vbNull
End With
bIconDisplayed = False
bUpdateOnChange = True
End Function
Public Function ShowIcon() As Boolean
If Not bIcowhatapp网页版无法连接nDisplayed Then 'If the icon is not already displayed...
ShowIcon = Shell_NotifyIcon(NIM_ADD, nidTrayIcon)
If ShowIcon = False Then 'If there was an error
RaiseEvent NIError(GetLastError) 'Return the error number
Else
bIconDisplayed = True 'The icon is displayed
End If
End If
End Function
Public Function HideIcon() whatsapp 移动漫游As Boolean
If bIconDisplayed Then 'If the icon is displayed...
HideIcon = Shell_NotifyIcon(NIM_DELETE, nidTrayIcon)
If HideIcon = False Then
RaiseEvent NIError(GetLastError)
Else
bwhatapp网页版聊天记录不见IconDisplayed = False
End If
End If
End Function
Public Property Let IconHandle(ByVal hIcon As Long)
nidTrayIcon.hIcon = hIcon
If bUpdateOnChange Then
nwhatsapp怎么添加群聊idTrayIcon.uFlags = NIF_ICON
Update 'Make the icon change appear
nidTrayIcon.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
End If
End Property
Public Property Let TipText(ByVal sTip As Striwhatapp网页版网页官网登录ng)
nidTrayIcon.szTip = Left(sTip, MAX_TIP_LENGTH - 1) & vbNullChar
If bUpdateOnChange Then
nidTrayIcon.uFlags = NIF_TIP
Update
nidTrayIcon.uFlags = NIF_ICON Or NIF_MESSAGE中国手机注册whatapp网页版 Or NIF_TIP
End If
End Property
Public Property Let CallbackMessage(ByVal uCallbackMessage As Long)
nidTrayIcon.uCallbackMessage = uCallbackMessage
If bUpdateOnChange Then
nidTrayIcon.uFlags = NIF_MESSAGE
Update
nidTrayIcon.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
End If
End Property
Public Function Update() As Boolean
If bIconDisplayed Then &#安卓版whatsapp最新版本下载39;The icon must be showed to make change
Update = Shell_NotifyIcon(NIM_MODIFY, nidTrayIcon)
If Update = False Then 'If there was an error
RaiseEvent NIError(GetLastError) 'Return the error number
End If
End If
End Function
Public Property Get IconHandle() As Long
IconHandle = nidTrayIcon.hIcon
End Property
Public Property Get TipText() As String
TipText = Left(nidTrayIcon.szTip, Len(nidTrayIcon.szTip) - 1)
End Property
Public Property Get CallbackMessage() As Long
CallbackMessage = nidTrayIcon.uCallbackMessage
End Property
Public Property Let UpdateOnChange(bUpdate As Boolean)
bUpdateOnChange = bUpdate
End Property
Private Property Get UpdateOnChange() As Boolean
UpdateOnChange = bUpdateOnChange
End Propertwhatapp网页版网络营销y
Private Sub Class_Terminate()
'The destructor of the class. It remove whatsapp头像怎么弄the icon from the Systray
HideIcon
End Sub
Public Property Get Visible() As Boolean
'Return if the icon in the systray is visible
If bIconDisplayed Then
Visible = True
End If
End Property
Public Property Let Visible(ByVal bVisible As Boolean)
If bVisible Then
ShowIcon
Else
HideIcon
End If
End Property
WhatsApp中文网页版 - WhatsApp官网请注明：WhatsApp中文网页版 - WhatsApp官网 » 电脑whatsapp怎么下载 好不好让程序后台运行而且不要在任务栏显示图标
