Question

vb中创建如下的状态栏：在第一个窗格中设置的显示系统日期，第二个窗格中根据鼠标移动分别显示不同的内容

代码如下：
Private Sub 按钮_MouseMove(Button As Integer, shift As Integer, x As Single, Y As Single)StatusBarl.Panels(2).Text = "这是按钮"
End Sub
Private Sub Form_MouseMove(Button As Integer, shift As Integer, x As Single, Y As Single) StatusBar1.Panels(2).Text = "欢迎"
End Sub
Private Sub Text1_MouseMove(Button As Integer, shift As Integer, x As Single, Y As Single)
StatusBar1.Panels(2).Text = "这是文本框"
End Sub
运行后，当鼠标移到按钮后，报错。鼠标移到文本框和窗体都能正常显示。

如何调试？





Answer 1

我试了一下 没有问题啊···

追问

难道是vb或者系统的问题？