VB实现冒泡提示效果

这几天在做一个VB系统,突然想到可以给控件增加冒泡提示效果. 实现TextBox的冒泡提示,原理很简单,利用textbox Focus事件,弹出提示框,双击关闭。摘出代码如下: 需要界面里添加控件, rtbTip(richtextbox),txtBox(textbox)代码如下 Private Sub txtBox_GotFocus() Call TipText("我是冒泡提示内容,你可以自定义richtextbox样式!",txtBox) End Sub »