Author Topic: 2000 & 2004 different behaviour  (Read 3968 times)

0 Members and 1 Guest are viewing this topic.

hendie

  • Guest
2000 & 2004 different behaviour
« on: June 25, 2004, 05:13:29 AM »
I am using a label as a toolbar "substitute" ~ I don't want to use a command button in this instance.
I use the following code to imitate a button behaviour
Code: [Select]
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

It works fine in 2000 but in 2004 it doesn't seem to receive the mouse_up event and the label remains in the fmSpecialEffectSunken state.
Anyone have any ideas as to why this behaviour occurs?
I can get around it by using
Code: [Select]
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

and that works in the 2004 version but I'm just wondering why the difference in behaviour