VB 鼠标移动事件

Question

我想在鼠标移至命令按钮上，弹出一个提示框，但不知如何弄，请做个示例

Answer 1

我在command中看到这样不能实现是什么原因：
Private Sub Command1_Click()
Command1.ToolTipText = "123"
End Sub

Answer 2

在设计的时候加好 或 form_laod里

Answer 3

Private Sub Form_Load()
Command1.ToolTipText = "123"
End Sub
谢，这样是能实现了，但如何改变“123”的字体、字号等

Answer 4

   提示框?还是仅仅是tooltip ?
   如果仅仅是tooltip简单,设置button的tooltiptext属性即可,
   如果是提示框,比较麻烦,要使用api

Answer 5

  那就得自己画了,
  http://blog.csdn.net/Dengyu1997/archive/2006/03/06/616729.aspx
  可以参考一下
  

Answer 6

你自己设计个窗体，做成你需要的“提示框”的样子，在CommandButton的MouseMove事件中Dim OverButton As BooleanPrivate Sub Form_Load()
    OverButton = True
End Sub'只在第一次鼠标移动到按钮上时，弹出提示框，其他情况酌情处理
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If OverButton = True Then'OverButton为公共变量，Boolean型。Form_Load中初始化为True
        MsgBox "提示框"       '这里可以添加你的提示框
    End If
    OverButton = False
End Sub

Answer 7

设置按钮控件的ToolTipText属性即可。

Answer 8

如果这样，那我接着有一个Command1_Click()事件，该如何写，就是说Command1_MouseMove事件是写在Form_Load()里，还是写在Command1_Click()里，？

Answer 9

Dim OverButton As Boolean
'只在第一次鼠标移动到按钮上时，弹出提示框，其他情况酌情处理
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If OverButton = True Then 'OverButton为公共变量，Boolean型。Form_Load中初始化为True
        MsgBox "提示框"       '这里可以添加你的提示框
    End If
    OverButton = False
End SubPrivate Sub Form_Load()
OverButton = True
End Sub我这样写正常，但如：
Dim OverButton As BooleanPrivate Sub Command1_Click()
'只在第一次鼠标移动到按钮上时，弹出提示框，其他情况酌情处理
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If OverButton = True Then 'OverButton为公共变量，Boolean型。Form_Load中初始化为True
        MsgBox "提示框"       '这里可以添加你的提示框
    End If
    OverButton = False
End SubPrivate Sub Form_Load()
OverButton = True
End Sub
能弹出提示框，但点command1时，就出现End Sub错误，请指点

Answer 10

缺少End Sub
自己写上行吧

Answer 11

但我不知哪里少了End Sub 请指点

Answer 12

Private Sub Command1_Click() '这里

Answer 13

若这里写了，不就是Private Sub Command1_Click()  结束了吗？我是菜，请指点
Dim OverButton As BooleanPrivate Sub Command1_Click()End Sub
'只在第一次鼠标移动到按钮上时，弹出提示框，其他情况酌情处理
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If OverButton = True Then 'OverButton为公共变量，Boolean型。Form_Load中初始化为True
        MsgBox "提示框"      '这里可以添加你的提示框
    End If
    OverButton = False
End SubPrivate Sub Form_Load()
OverButton = True
End Sub

Answer 14

Private Sub 和 End Sub是成对出现的，表示某个事件过程
不成对就出错，之间写你在点击按钮时要完成的工作的代码

Answer 15

Command1_MouseMove是独立事件，不要写在其他事件里
Dim OverButton As Boolean Private Sub Command1_Click() end sub
'*******************
Private Sub Form_Load() 
OverButton = True 
End Sub '*******************************************************'只在第一次鼠标移动到按钮上时，弹出提示框，其他情况酌情处理 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    If OverButton = True Then 'OverButton为公共变量，Boolean型。Form_Load中初始化为True 
        MsgBox "提示框"      '这里可以添加你的提示框 
    End If 
    OverButton = False 
End Sub 

Answer 16

Command1_MouseMove事件 单独写，不要写在Form_Load()里或Command1_Click()里