为VB应用程序定制浮动提示

Author: 陈川 Date: 1998年第40期 13版

　　在Win95中，当我们将鼠标移至某个控件上时，便会在鼠标所指之处弹出一个小窗口，告诉我们这个控件的用途，这便是“浮动提示”。这种提示方式可以及时地提供有关信息，那么怎样在VB中实现这种功能呢?
　　首先我们在Form的任意位置放一个Text1作为浮动提示的通用文本显示框，几个重要属性设置为：
　　Appearance:0－Flat
　　BackColor:窗口背景颜色
　　BorderStyle:1－Fixed Single
　　ForeColor:窗口文本颜色
　　Height:文本框高度，一般取286左右
　　Visible:False
　　如果该Text1不是在所有按钮设置以后才放置的，则在显示在它之后放置的按钮的浮动提示时，浮动提示将被该按钮所掩盖，这时需要按Ctrl＋J或者在“Edit”菜单中选择“Bring to Front”将Text1带回前台。
　　然后，在Module1通用模块中定义一个用于存放任意浮动提示文本的公共FloatMessage字符串变量：
　　Public FloatMessage As String
　　再在Form的General中加入一个如下公用函数，其功能是用一个文本框自动匹配和管理所有浮动提示：
　　Public Function ShowMessage（）
　　If Text1.Visible=False Then
　　Text1.Left=CurrentX
　　Text1.Top=CurrentY
　　′以上两句定制文本框显示的左上角坐标，下句计算文本框长度
　　Text1.Width=TextWidth（FloatMessage）＋72
　　Text1.Text=FloatMessage　′初始化浮动提示信息
　　Text1.Visible=True　′显示浮动提示
　　End If　′删除这个If循环将出现游走效果
　　End Function
　　最后要做的就是在调用该函数的所有事件中为这个FloatMessage赋值。假如我们要为按钮Command1编制浮动提示，则在Command1的MouseMove事件中写入：
　　Private Sub Command1_MouseMove（Button As Integer，_Shift As Integer，X As Single，Y As Single）
　　CurrentX=Command1.Left＋X
　　CurrentY=Command1.Top＋Y
　　′以上根据按钮位置自动提取相对坐标并且加一个当前鼠标偏移量
　　FloatMessage=″This is Command1 Button″　′浮动提示内容
　　ShowMessage
　　End Sub
　　为了能在鼠标移开相关按钮后将相关浮动提示隐去，我们还须在Form事件中加入：
　　Private Sub Form_MouseMove（Button As Integer，_Shift As Integer，X As Single，Y As Single）
　　Text1.Visible=False
　　End Sub
　　本程序不仅仅适合于按钮提示，在任何支持MouseMove事件的控件中都可以运用，有兴趣不妨一试。
　　以上程序均在486DX2/66、P133的Win95和VB4.0中调试通过。