VB.NET 中的气泡提示 UserControl

• 下载源代码文件 - 11.7 Kb
• 下载演示项目 - 8.54 Kb

引言

这是一个我在开发另一个应用程序时创建的简单应用程序。它可能不完全是你想要的，但它实现了我想要实现的目标。此外，这是我第一次向 CP 提交，CP 是一个很好的信息来源。

此应用程序所做的一切就是允许你创建像上面图像中那样的气泡提示，以突出显示表单/应用程序的任何区域。

技术

在控件内部

这个简单的用户控件利用了 GDI+ 多边形。

Dim p As Point() = {New Point(0, 0), New Point(100, 0), _
         New Point(100, 50), New Point(170, 120), _
         New Point(70, 50), New Point(0, 50)}

mpath.AddPolygon(p)

使用控件

在你的客户端应用程序中，请记住在你的工具箱中添加对 BaloonToolTip.dll 的控件引用。

然后只需将控件拖放到你的表单上即可使用它。

BaloonToolTip2.BackColor = Color.Red

BaloonToolTip2.ForeColor = Color.Yellow

BaloonToolTip2.ShowBaloonToolTip("Hello Tip going left", _
                         btnShow.Left, btnShow.Top, False)

最后一个参数 PointingRight 是一个 Boolean 类型。如果设置为 True，控件会将气泡向左移动，指针向右移动，反之亦然。

在示例中，Xpos 和 YPos 分别从 btnShow 的 Left 和 Top 获取。

尽情享受吧!!!