vb.net气泡 vba 气泡提示( 二 )

56.hWnd = Me.hWnd
57.uID = 0
58.uCallbackMessage = WM_MOUSEMOVE
59.uFlags = H2 Or H10 Or H1 Or H4
60.hIcon = Me.Icon
61.szTip = "小眼软件"vbNullChar
62End With
63Shell_NotifyIcon NIM_ADD, TuoPan
64DoEvents
65'气泡弹窗
66TuoPan.szInfoTitle = "小眼软件"Chr(0)'标题
67TuoPan.szInfo = "右击这里可以弹出菜单?。。?Chr(0)'内容
68TuoPan.dwInfoFlags = NIIF_GUID'气泡图标
69Shell_NotifyIcon NIM_MODIFY, TuoPan
70
71'让菜单窗体监听系统消息
72PreWinProc = GetWindowLong(MenuForm.hWnd, GWL_WNDPROC)
73SetWindowLong MenuForm.hWnd, GWL_WNDPROC, AddressOf WndProc
74End Sub
75Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
76Dim lMsg As Single
77lMsg = X / Screen.TwipsPerPixelX
78If lMsg = WM_RBUTTONUP Then
79Dim MenuLT As POINTAPI
80GetCursorPos MenuLT
81MenuForm.Move MenuLT.X * 15 - MenuForm.Width, MenuLT.Y * 15 - MenuForm.Height
82MenuForm.Show , Me
83End If
84End Sub
85Private Sub Form_Unload(Cancel As Integer)
86Shell_NotifyIcon NIM_DELETE, TuoPan'删除托盘图标
87SetWindowLong Me.hWnd, GWL_WNDPROC, PreWinProc'卸载监听
88End
89End Sub
原文地址：
msgbox ““
VB.NET 实现气泡提示效果Dim toolTip1 As New ToolTip()
toolTip1.AutoPopDelay = 5000 '显示停留5秒
toolTip1.InitialDelay = 1000'1秒后显示
toolTip1.ReshowDelay = 500 '从一个控件移到另一个控件0.5秒后显示
toolTip1.ShowAlways = True '在窗口不活动时也显示
ToolTip1.SetToolTip(TextBox1, "提示内容")
详见vb.net气泡：
VB.net的窗体，能否通过配置控件属性来设置鼠标指针移动到控件上出现的气泡提示?首先，你要找一个手型的图标文件(就是扩展名为ico的文件)，然后用VB创建一个窗体，在窗体的属性MouseIcon里面添加你准备的ico文件，然后把属性MousePoint的属性值改成99-ccCustom，就可以了
求vb代码实现程序在系统托盘显示图标和气泡!!!!Option Explicit Const MAX_TOOLTIP As Integer = 64 Const NIF_ICON = H2 '删除图标 Const NIF_MESSAGE = H1 Const NIF_TIP = H4 Const NIM_ADD = H0 '添加图标到任务栏提示区 Const NIM_DELETE = H2 Const WM_MOUSEMOVE = H200 Const WM_LBUTTONDOWN = H201 Const WM_LBUTTONUP = H202 Const WM_LBUTTONDBLCLK = H203 Const WM_RBUTTONDOWN = H204 Const WM_RBUTTONUP = H205 Const WM_RBUTTONDBLCLK = H206 Const SW_RESTORE = 9 Const SW_HIDE = 0 Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uId As Long uFlags As Long ucallbackMessage As Long hIcon As Long szTip As String * MAX_TOOLTIP End Type 就是vb.net气泡了
vb.net气泡的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba 气泡提示、vb.net气泡的信息别忘了在本站进行查找喔。