WhatsApp怎么安装翻译插件
whatapp网页版怎么用官方通道
'你说的都不行，估计是托盘图标模块与我的不同。
‘下面我把完整的模块贴出来，请复制下面代码，替换原来代码就可以。
'===窗体代码====
Private Sub Form_Load()
TrayAddIcon Form1, picture1(0).picture, "系统" '新建一个图标
End Sub
Private Sub Timer1_Timer()
a = Not a
If a = True Then
TrayIcon Picture1(0).Picture
Else
TrayIcon Picture1(1).Picture
End If
End Sub
'====模块代码modTray.bas==苹果的whatapp网页版注册==
Option Explicit
'使用高分辨率图标所用的API
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long
Private Const LR_LOADFROMFILE = &H10
Private Const LR_LOADMAP3DCOLORS = &H1000
Private Const IMAGE_ICON = 1
'系统托盘
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATAwhatsapp上怎么加好友) As Long
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const NIF_STATE = &H8
Private Const NIF_INFO = &H10
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIM_SETFOCUS = &H3
Private Const NIM_SETVERSION = &H4
Private Const NIM_VERSION = &H5
Private Const WM_USER As Long = &H400
Private Const NIN_BALLOONSHOW = (WM_USER + 2)
Private Const NIN_BALLOONwhatapp网页版加入群组HIDE = (WM_USER + 3)
Private Const NIN_BALLOOwhatsappbusiness最新下载NTIMEOUT = (WM_USER + 4)
Private Cwhatapp网页版不发送登录短信onst NIN_BALLOONUSERCLICK = (WM_USER +whatsapp已读回执有什么用 5)
Private Const NOTIFYICON_VERSION = 3
Private Const NIS_HIDDEN = &H1
Private Const NIS_SHAREDICON = &H2
Private Const WM_NOTIFY As Long = &H4E
Private Conswhatsapp已读消息图标t WM_COMMAND As Long = &H111
Private Const WM_CLOSE As Long = &what'sapp安卓版下载H10
Private Const WM_MOUSEMOVE As Long = &H200
Private Const WM_LBUTTONDOWN As Long = &H201
Private Const WM_LBUTTONUP As Long = &H202
Private Const WM_LBUTTONDBLCLK As Long = &H203
Private Const WM_MBUTTONDOWN As Long = &H207
Private Const WM_MBUTTONUP As Long = &H208
Private Const WM_MBUTTONDBLCLK As Long = &H209
Private Const WM_RBUTTONDOWN As Long = &H204
Private Const WM_RBUTTONUP As Long = &H205
Private Const WM_RBUTTONDBLCLK As Long = &H206
Public Enum bFlag
NIIF_NONE = &H0
NIIF_Iwhatapp网页版咋加好友NFO = &H1
NIIF_WARNING = &H2
NIIF_ERROR = &H3
NIIF_GUID = &H5
NIIF_ICON_MASK = &HF
NIIF_NOSOUND = &H10 '关闭提示音标志
End Enum
Private Type NOTIFYICONDATA
cbSize As Long
Hwnd As Long
uID As Long
uFlags whatsapp可以换绑手机号吗As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeoutAndVersion As Long
szInfoTitle Awhatapp网页版文件发不出去s String * 64
dwInfoFlags As Long
End Type
'鼠标事件,在调用窗口中的move()过程中返回以下按键值，可用来进行相关操作
Public Enum TrayClick
MouseMove = &H200
LeftUp = &H202
LeftDown = &H201
LeftDbClick = &H203
RightUp免费whatapp网页版翻译软件 = &H205
RightDown = &H204
RightDbClick = &H206
MiddleUp = &H208
MiddleDown = &H207
MiddleDbClick = &H209
BalloonClick = (WM_USER + 5)
End Enum
Public ni As NOTIFYICONDATA
' **************************************************************
'1 设置托盘一般提示
'注：MyIcon 图标既可以来源于文件，又可能来源于窗体内的某个图标
' **************************************************************
Public Sub TrayAddIcon(ByVal MyForm As Form, ByVal MyIcon, ByVal ToolTip As String, Optional ByVal bFlag As bFlag)
With ni
.cbSize = Len(ni)
.Hwnd = MyForm.Hwnd
.uID = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallbackMessage = WM_MOUSEMOVE
If TypeName(MyIcon) = "String" Then
.hIcon = LoadImage(App.hInstance, MyIcon, IMAGE_ICON, whatapp网页版安卓官网入口16, 16, LR_LOADFROMFILE Or LR_LOADMAP3DCOLORS)
Else
If InStr(1, "Picwhatsapp即时翻译ture,Image", TypeName(MyIcon), vbTextCompare) > 0 Then
.hIcon = MyIcon
End If
End If
.szTip = ToolTip & vbNullChar
End With
Call Shell_NotifyIcon(NIM_ADD, ni)
End Sub
' *****************************************whatsapp如何退出账号****
'2 托盘托盘气泡提示
' *********************************************
'一、有声气泡提示
'TrayBalloon Form1, Command1.Caption & vbNewLine & Format(Date, "日期：yyyy年mm月dd日"), "系统托盘", NIIF_INFO
'二、无声气泡提示
'TrayBalloon Form1, Command2.Caption, "系统托盘", NIIF_INFO Or NIIF_NOSOUND
Public Sub TrayBalloon(ByVal MyForm As Form, ByVal sBaloonText As String, sBallonTiwhatapp网页版退出了不能登录tle As String, Optional ByVal bFlag As bFlag)
With ni
.cbSize = Len(ni)
.Hwnd = MyForm.Hwnd
.uID = vbNull
.uFlags = NIF_INFO
.dwInfoFlags = bFlag
.szInfoTitle = sBallonTitle & vbNullChar
.szInfo = sBaloonText & vbNullChar
End With
Shell_NotifyIcon NIM_MODIFY, ni
End Sub
' *********************************************
'3 移除托盘图标
' *********************************************
Public Sub TrayRemoveIcon()
Shell_NotifyIcon NIM_DELETE, ni
End Sub
'3.1删除其他程序的托盘图标
Sub TrayRemoveIcon_Ex(Hwnd As Long)
Dim TrayIcon As NOTIFYICONDATA
TrayIcon.cbSize = Len(TrayIcon)
TrayIcon.Hwnd = Hwnd
TrayIcon.uID = vbNull
Call Shell_NotifyIcon(NIM_DELETE, TrayIcon)
End Sub
' *********************************************
'4 更改托盘的提示文本
' *********************************************
Public Sub TrayTip(ByVal MyForm As Form, ByVal sTipText As String)
With 巨易推whatapp网页版群发ni
.cbSize = Len(ni)
.Hwnd = MyForm.Hwnd
.uID = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.szTip = sTipText & vbNullChar
End With
Shell_NotifyIcon NIM_MODIFY, ni
End Sub
' ********whatapp网页版好友头像没有了*************************************
'5 更改托盘的图标
' *********************************************
Sub TrayIcon(MyIcon)
' Update the tray icon.
With ni
If TypeName(MyIcon) = "String" Then
.hIcon = LoadImage(whatapp网页版官方客服电话App.hInstance, MyIcon, IMAGE_ICON, 16, 16, LR_LOADFROMFILE Or LR_LOADMAP3DCOLORS)
Else
If TypeName(MyIcon) = "Picture" Then
.hIcon = MyIcon
End If
End If
.uFlags = NIF_ICON
End With
Shell_NotifyIcon NIM_MODIFY, ni
End Sub
'5 获取托盘图标的提示文本
Function TrayInfo(Wnd As Long) As String
' Update the tray icon.
With ni
.Hwnd = Wnd
.uFlags = NIF_INFO
End With
Shell_NotifyIcon NIM_MODIFY, ni
TrayInfo = ni.szTip
End Function
Private Declare Function waveOutGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Private Sub Command1_Click()
a = waveOutGetVolume(0, i)
tmp = "&h" & Right(Hex$(i), 4)
MsgBox Int((CLng(tmp) / 65535) * 100)
End Sub
Private Const WM_RBUTTONUP = &H205
两个值定义得太大了，为何不用十进制表示呢？
这样很容易判断大小的，你先看一下你窗体的大小，Screen.TwipsPerPixelX 的值是15，你用窗体的大小除一下15，大概估算一下lMsg的值，上面定义的两个常数不要超过这个值就行了
lMsg = X / Screen.TwipsPerPixelX
其中用到了X坐标，当然是说窗体的宽度了，
比如窗体的宽度为1500，lMsg的最大值就是100了，
你定义的两个常熟就不能大于100了，当大于100后，
，lMsg = WM_RBUTTONUP Or lMsg = WM_LBUTTONUP 不能满足，菜单就谈不出来了
你的窗体上是不是有其它的控件?
lMsg = X / Screen.TwipsPerPixelX
这句的意思是,窗体的ScaleMode 属性为1-Twip,
通过除以15就是相当于把SaleMode属性改主3-Pixel时对应的X坐标的值,
我试了一下,可以弹出的呀,
你是不是测试它能否弹出是,在窗体中鼠标的移动速度很快?
你可以先试着慢慢移动鼠标,然后看看能不能弹出?
有什么问题可以继续讨论
WhatsApp中文网页版 - WhatsApp官网请注明：WhatsApp中文网页版 - WhatsApp官网 » whatsapp怎么安装翻译插件 VB 托盘图标如何闪动的問題
