关于vb主界面的label陷入不会弹出来的问题,大家帮忙看下哈~~

[apppple21]

我在改一个系统,原来的系统是正常的,当鼠标移动到按钮上会陷入,当鼠标离开时会弹起来,
但是我只是改了一些界面上的东西之后发现了一个问题.
编译完成后,当鼠标移动到label时,label会陷下去,但是当鼠标离开时还是没有弹回来,这是什么原因?我对比了下原来跟现在的label的属性窗口,
是完全相同的,有知道的朋友吗?我是新手,希望能告之的详尽些,谢谢大家了.

[jinjazz]

看看事件绑定又没有被你取消掉

[apppple21]

事件绑定??在哪里弄的??具体点哈,偶是超级菜鸟...谢谢啦

[HimeTale]

可能是这个
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)handles Image1.MouseMove
Label1.BorderStyle = 0
Label2.BorderStyle = 0
Label3.BorderStyle = 0
Label4.BorderStyle = 0
Label5.BorderStyle = 0
Label6.BorderStyle = 0
Label7.BorderStyle = 0
Label8.BorderStyle = 0
Label9.BorderStyle = 0
Label10.BorderStyle = 0
End Sub

[apppple21]

那应该怎么改掉呢,我看着源文件中也是Image1.MouseMove的,
请多赐教~~~谢谢啦

[kakajya]

触发你的MouseMove（）事件了吗？
没触发的话当然弹不出来了。

[kakajya]

直接说你那个label是label几？
我看你label一大堆
真晕

[apppple21]

label 1 2 3 4 6 7
貌似完全一样的~~~~ 都是这个情况~~~~

[51Crack]

VB,Not VB.Net

[51Crack]

你的Image1在哪里，多大，调试看有没有执行Image1_MouseMove

[apppple21]

=.=!!
我尝试了下,因为调试系统需要密码,然后会跳转到登陆界面,
然后我就不会弄了...
晕了,
image1_mousemove是不是可以理解为鼠标移动到image1图片上面触发?
我在原系统的image文件里也没有找到image1文件.不知道应该如何调试看这个过程有没有被触发,
如果没有触发,那应该怎么改呢?

[apppple21]

我发现了我用的image因为在更改的时候名字没有改,但是也出现了另外一个问题
我把界面的背景图片名字改到image1,编译后,当鼠标进入图标的范围内后马上跳出

运行时错误'424' :
需要对象

这是怎么回事呢??

[HimeTale]

[Quote=引用 14 楼 51Crack 的回复:]
VB,Not VB.Net
[/Quote]
这都被你发现....

[wzuomin]

检查一下你的控件中是不是包含 Label1～Label10 啊？

[wzuomin]

或者在下面这句加个断点，看看执行到那条语句出的错误。
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)handles Image1.MouseMove

如果有语句错误，先屏蔽，看看还会不会出错！

鼠标离开没有弹回来估计就是 Image1_MouseMove 事件没有绑定了。

[apppple21]

控件只有label1,label2,label4,label5,label6
因为我是改程序的,因此其他的label被我删除掉了,那删除掉的label是否一定要在上面的borderstyle设定中删除掉?
现在编译后一旦鼠标进入图片范围内就跳出错误了,那应该mouseMove被触发了,然后为什么会错误?
错误内容如下

运行时错误'424' :
需要对象

[wzuomin]

是，没有的控件在 Image1_MouseMove 中也要删除掉啊！

[wzuomin]

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)handles Image1.MouseMove
Label1.BorderStyle = 0
Label2.BorderStyle = 0
'Label3.BorderStyle = 0
Label4.BorderStyle = 0
Label5.BorderStyle = 0
Label6.BorderStyle = 0
'Label7.BorderStyle = 0
'Label8.BorderStyle = 0
'Label9.BorderStyle = 0
'Label10.BorderStyle = 0
End Sub
照上面运行或者直接把注释的删除掉，看看运行还有错吗？

[apppple21]

这段代码触发的是一个mousemove事件,但是当事件被触发时,也跳出了

运行时错误'424' :
需要对象

也就是说各个LABEL 的borderstyle的值无法被改到0,也就不是碳回来了,那应该怎么改呢?谁来帮忙下哈


代码如下:

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)handles Image1.MouseMove
Label1.BorderStyle = 0
Label2.BorderStyle = 0
Label3.BorderStyle = 0
Label4.BorderStyle = 0
Label5.BorderStyle = 0
Label6.BorderStyle = 0
Label7.BorderStyle = 0
Label8.BorderStyle = 0
Label9.BorderStyle = 0
Label10.BorderStyle = 0
End Sub

[hurtsobad]

學習學習........

[apppple21]

非常感谢wzuomin,在我把多余的label删除掉之后进行编译,已经不会出错了,而且陷下去的部分可以正常的弹出了,谢谢大家~~~~给分喽~~