如何实现此功能：将光标移动到指定控件时，则自动弹出说明性文字？

tangqingfu

请教：在Word的用户窗体中，能否通过VBA代码实现这样的功能：将光标移动到指定控件（如单选框或复选框）时，则自动弹出说明性文字，对当前控件功能进行说明？
如果可以，能否分享实例？

sqhsqhli

vb控件里有tooltiptext这个属性，直接写入即可。vba里要实现怕是要加控件专门显示。

tangqingfu

谢谢sqhsqhli兄，我想在窗体中可以加入一个专门解释各控件用法的控件，光标移到不同的控件，则此控件能分别解释这些控件用法的解释。
能否请sqhsqhli兄写个VBA实例供兄弟学习？

sqhsqhli

补充vba示例
建立一窗体，放一按钮，一标签控件。加入以下代码试试：

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Visible = True
Label1.Caption = "我是按钮1"
Label1.Left = CommandButton1.Left + CommandButton1.Width
Label1.Top = CommandButton1.Top - CommandButton1.Height
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Visible = False
End Sub
Private Sub UserForm_Initialize()
Label1.Visible = False
End Sub

tangqingfu

谢谢sqhsqhli兄的分享，如果是多个按钮呢？就是如何一个标签对不同的命令进行说明

tangqingfu

sqhsqhli 发表于 2012-1-19 14:21
补充vba示例
建立一窗体，放一按钮，一标签控件。加入以下代码试试：

光标移动到按扭2不会显示，单击才能显示，请教如何修改？
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Visible = True
Label1.Caption = "我是按钮1"
Label1.Left = CommandButton1.Left + CommandButton1.Width
Label1.Top = CommandButton1.Top - CommandButton1.Height
End Sub

Private Sub CommandButton2_Click()
Label1.Visible = True
Label1.Caption = "我是按钮2"
Label1.Left = CommandButton2.Left + CommandButton2.Width
Label1.Top = CommandButton2.Top - CommandButton2.Height

End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Visible = False
End Sub
Private Sub UserForm_Initialize()
Label1.Visible = False
End Sub

sqhsqhli

MouseMove鼠标移动事件，你用的单击事件，当然不行了
改成：Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

tangqingfu

sqhsqhli 发表于 2012-1-19 14:47
MouseMove鼠标移动事件，你用的单击事件，当然不行了
改成：Private Sub CommandButton2_MouseMove(ByVal  ...

没注意，谢谢sqhsqhli兄的指点！

sqhsqhli

最后回复：
vba的控件功能还是差很多，要是有很多控件需要进行提示的，还是在vb里用控件数组来做才好，将大大简化同样的代码。个人以为vb的tooltip显示太慢，不如自己做好。

tangqingfu

sqhsqhli 发表于 2012-1-19 15:12
最后回复：
vba的控件功能还是差很多，要是有很多控件需要进行提示的，还是在vb里用控件数组来做才好，将大 ...

没有VB基础，只能如此了，找个时间试学习一下VB
请教sqhsqhli兄，将VBA代码封装成Dll有什么办法？比如说我想将某一窗体或某一模板中的所有代码封装成Dll，该如何操作？需要哪些知识？
毕竟Word模板还比较容易破解，保密性太差了！