重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
装.net以上版本,用tooltip控件,把tooltip的isballoon属性=true就没有难度了
创新互联公司坚持“要么做到,要么别承诺”的工作理念,服务领域包括:网站设计、成都做网站、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的北海网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!
首先,你要找一个手型的图标文件(就是扩展名为ico的文件),然后用VB创建一个窗体,在窗体的属性MouseIcon里面添加你准备的ico文件,然后把属性MousePoint的属性值改成99-ccCustom,就可以了
Dim toolTip1 As New ToolTip()
toolTip1.AutoPopDelay = 5000 '显示停留5秒
toolTip1.InitialDelay = 1000 '1秒后显示
toolTip1.ReshowDelay = 500 '从一个控件移到另一个控件0.5秒后显示
toolTip1.ShowAlways = True '在窗口不活动时也显示
ToolTip1.SetToolTip(TextBox1, "提示内容")
详见:
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 就是了
这不是框,这是用
NotifyIcon 做的一个提示。就是一般常说的气泡提示。
它能使用程序最小化后在任务栏的右下角显示。
Label 控件用于显示用户不能编辑的文本或图像。含义:用于显示标签
TextBox 控件通常用于可编辑文本,不过也可使其成为只读控件,文本框用于获取用户输入或显示文本。
这就是区别,Label只能显示,而TextBox可以修改,输入数据