登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

miaozk2006

点滴积累与收藏:关于技术,关于生活

 
 
 

日志

 
 

vb 换行气泡提示类  

2011-11-03 15:16:30|  分类: 编程-VB |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |


Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long '创建窗口

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '发出消息

Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Const WM_USER = &H400

Private Const CW_USEDEFAULT = &H80000000

Private Type RECT

    Left As Long

    Top As Long

    Right As Long

    Bottom As Long

End Type

Private Const TTS_NOPREFIX = &H2

Private Const TTF_TRANSPARENT = &H100

Private Const TTF_CENTERTIP = &H2

Private Const TTM_ADDTOOLA = (WM_USER + 4)

Private Const TTM_ACTIVATE = WM_USER + 1

Private Const TTM_UPDATETIPTEXTA = (WM_USER + 12)

Private Const TTM_SETMAXTIPWIDTH = (WM_USER + 24)

Private Const TTM_SETTITLE = (WM_USER + 32)

Private Const TTS_BALLOON = &H40

Private Const TTF_SUBCLASS = &H10

Private Const TOOLTIPS_CLASSA = "tooltips_class32"

Private Type TOOLINFO

    lSize As Long

    lFlags As Long

    lHwnd As Long

    lId As Long

    lpRect As RECT

    hInstance As Long

    lpStr As String

    lParam As Long

End Type

Private TTTitle As String

Private TTParentControl As Object

Private TTStyle As TTStyleEnum

Public Enum TTStyleEnum

    TTStandard

    TTBalloon

End Enum

Private hToolTipHwnd As Long

Private TI As TOOLINFO

Public Function Create() As Boolean '创建气泡函数

    Dim lpRect As RECT

    DestroyWindow hToolTipHwnd

    '建立tooltip窗口

    hToolTipHwnd = CreateWindowEx(0, TOOLTIPS_CLASSA, vbNullString, TTS_BALLOON, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, TTParentControl.hwnd, 0, App.hInstance, 0)

    GetClientRect TTParentControl.hwnd, lpRect

    '设置tooltip

    With TI

        .lFlags = TTF_SUBCLASS

        .lHwnd = TTParentControl.hwnd

        .lId = 0

        .hInstance = App.hInstance

        .lpRect = lpRect

    End With

    SendMessage hToolTipHwnd, TTM_ADDTOOLA, 0, TI

    '给tooltip加上标题

    SendMessage hToolTipHwnd, TTM_SETTITLE, 0, ByVal TTTitle

End Function

Public Property Set ParentControl(ByVal vData As Object) '确定tooltip对象(要求有hwnd的控件)

    Set TTParentControl = vData

End Property

Public Property Let ToolTipTitle(ByVal vData As String) '设置tooltip的标题

    TTTitle = vData

    SendMessage hToolTipHwnd, TTM_SETTITLE, 0, ByVal TTTitle

End Property

Public Property Let ToolTipText(ByVal vData As String) '设置tooltip的文本(支持多行)

    TI.lpStr = vData

    SendMessage hToolTipHwnd, TTM_UPDATETIPTEXTA, 0, TI

End Property

 'clsTooptip

'使用范例:

'Dim tooltip As New Class1

'Set tooltip.ParentControl = Text1 '气泡应用于哪个控件(要有Hwnd)

'tooltip.ToolTipTitle = "气泡标题" '气泡标题(不允许换行/字体粗体)

'tooltip.ToolTipText = "气泡内容" & vbCrLf & "123" '气泡内容(允许换行)

'tooltip.Create '创建气泡

 

摘自:网络整理

相关参考


VB一个可以改变箭头方向的气泡提示


相关参考


VB查找替代字符串的函数

VB换行气泡提示类

VB/VBA通用路径选择对话框

ASCII码表0-255完整版 附详细注释

VBKeyAscii

VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

VB如何实现Undo(撤消)功能

VB计算文本文件的行数

VB获取快捷方式原文件路径

微软 Small Basic 简体中文版 已经发布了

VB操作Excel 非常详细 [网摘]

VB如何判断文件正被占用/已被打开

VB添加listbox 的水平卷动轴

VB打开资源管理器并指定文件

VB根据窗体自动调整窗体内控件大小 注:实用,可以直接引用

VB中的指针技术

Visual Basic编程常见问题及解答(1

Visual Basic编程常见问题及解答(2

Visual Basic编程常见问题及解答(3

VisualBasic变量、常数和数据类型及过程概述

VB6的后期绑定和前期绑定

VB用户控件制作讲解与实例

VB制作OCX控件的步骤

VBFSO的调用的两种方法

VB操作EXCEL

VB判断文件及目录的存在性

VB网站(最新、经典源代码、技术文章、基础知识)

VB得到指定文件夹下的文件列表

VB产生随机任意大小文件挤满硬盘

VB文件的读写操作

VB创建超链接 打开指定网站的几种方法

VB 源码 删除重复行程序 函数

VB 计算自己程序段所用时间

VB 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编

几行VB代码拿下注册表

VB 在浏览器中打开指定网址

VB窗口置顶

vb ListBox 之中点击右键弹出菜单 


VB小技巧:字符变量中双引号的输入

VB将自定义资源中的文件释放出来

VB在菜单上增加图标

Visual Basic 十年风云

VB表格控件总览与例程分析

利用VB函数Dir()实现递归搜索目

Visual Basic里与Print有关的函数

VB输入文本文件实现右对齐

VB查找替代字符串的函数

vb 换行气泡提示类

  评论这张
 
阅读(1691)| 评论(0)

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018