在托盘上显示Balloon Tooltip(VB.NET)
来源:互联网 发布:c语言char int什么区别 编辑:程序博客网 时间:2024/05/02 22:38
使用VB编写在托盘上显示Balloon提示的功能就需要调用Win32Api了,但是VB6和VB.NET代码上还是有些不同的,红色部分即为二者区别
Imports System.Runtime.InteropServices
Public Class Form1
Inherits System.Windows.Forms.Form
#Region "Win32Api_NotifyIcon"
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias _
"Shell_NotifyIconA" (ByVal dwMessage As Int32, _
ByRef lpData As NOTIFYICONDATA) As Int32
<System.Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Private Structure NOTIFYICONDATA
Public cbSize As Int32
Public hwnd As IntPtr
Public uId As Int32
Public uFlags As Int32
Public uCallBackMessage As Int32
Public hIcon As IntPtr
<MarshalAs(UnmanagedType.ByValTStr, sizeconst:=128)> _
Public szTip As String
Public dwState As Int32
Public dwStateMask As Int32
<MarshalAs(UnmanagedType.ByValTStr, sizeconst:=256)> _
Public szInfo As String
Public uTimeoutOrVersion As Int32
<MarshalAs(UnmanagedType.ByValTStr, sizeconst:=64)> _
Public szInfoTitle As String
Public dwInfoFlags As Int32
End Structure
Private Const NOTIFYICON_VERSION = 3
Private Const NOTIFYICON_OLDVERSION = 0
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 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 NIS_HIDDEN = &H1
Private Const NIS_SHAREDICON = &H2
Private Const NIIF_NONE = &H0
Private Const NIIF_WARNING = &H2
Private Const NIIF_ERROR = &H3
Private Const NIIF_INFO = &H1
Private nfIconData As NOTIFYICONDATA
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nfIconData = New NOTIFYICONDATA()
With nfIconData
.cbSize = System.Runtime.InteropServices.Marshal.SizeOf(nfIconData)
.hwnd = Me.Handle
.uId = vbNull
.uFlags = NIF_INFO Or NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.hIcon = Me.Icon.Handle
.szTip = "123" '& Microsoft.VisualBasic.vbNullChar
.dwState = 0
.dwStateMask = 0
.szInfo = "Balloon Style Tool-tip" & Chr(13) & "哈哈" '& vbNullChar
.uTimeoutOrVersion = 15000
.szInfoTitle = "看到了么?" '& Microsoft.VisualBasic.vbNullChar
.dwInfoFlags = NIIF_INFO
End With
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
End Sub
Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub
End Class
- 在托盘上显示Balloon Tooltip(VB.NET)
- 在托盘上显示Balloon Tooltip(VB.NET)
- 在托盘上显示Balloon Tooltip
- 设置按钮的ToolTip显示(VB.NET)
- 在DataGrid上显示toolTip
- 在Chart.js上显示自定义tooltip
- java 托盘 显示 在桌面最上
- 托盘在XP下不能显示tooltip,在Vista和Windows7下正常
- 托盘在XP下不能显示tooltip,在Vista和Windows7下正常
- 托盘在XP下不能显示tooltip,在Vista和Windows7下正常
- [VB.NET]帮助文件为何总在最上显示!
- Wpf之在Treeview上用Tooltip显示图片
- C#中在按钮上放置ToolTip,点击按钮后tooltip不能显示的解决办法
- [VB.NET].NET精简框架下用VB.NET怎么实现在picturebox上显示不同图片???
- 使用系统托盘图标,显示 Balloon Tooltip 的 MASM32 演示代码
- 走近VB.Net(六) 菜单与托盘图标
- VB.NET 子窗体导出Excel进度显示在父窗体ToolStripProgressBar上
- [VB.NET]请问怎么把datagridview某行的内容显示在textbox上?
- 用VB处理定长文本的导入
- ADO记录集和水晶报表
- .NET中的DataReader简介
- 在VB.NET中寻找App
- 在.NET的Windows桌面应用中使用Amazon的Web Services
- 在托盘上显示Balloon Tooltip(VB.NET)
- 使用VB进行子类化
- 用VB6读写数据库中的图片
- 用Visual Basic设计更好的用户界面
- 使用C#语言操作ADO数据库
- perl文件上传程序,支持多文件!
- perl常用函数(适合初学者)!
- Perl的文件操作(1)(适合初学者)
- Perl的文件操作(2)(适合初学者)