2000&amp；2004不同的行为

hendie · 发表于 2004-6-25 05:13:29

我使用标签作为工具栏的“替代品”~在这种情况下，我不想使用命令按钮
我使用以下代码模拟按钮行为

Private Sub LabelAbout_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    LabelAbout.SpecialEffect = fmSpecialEffectSunken
    About.Show
End Sub
______________________________________________
Private Sub LabelAbout_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    LabelAbout.SpecialEffect = fmSpecialEffectEtched
End Sub

它在2000年工作正常，但在2004年，它似乎没有收到mouse_up事件，标签仍处于fmSpecialEffectSunken状态
我可以通过使用
绕过它

copy

Private Sub LabelAbout_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    LabelAbout.SpecialEffect = fmSpecialEffectSunken
    About.Show
    LabelAbout.SpecialEffect = fmSpecialEffectEtched
End Sub

这在2004年的版本中是可行的，但我只是想知道为什么行为上有差异

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

2000&amp；2004不同的行为

发表回复

精选推荐