COMO SABER EM QUE LUGAR DO STATUSBAR ESTOU???

LCSD 06/07/2004 08:30:29
#32413
Bom Dia,


Eu coloquei um código no evento do MOUSEMOVE do objeto StatusBar, só que eu gostaria que ele só executasse este código depois que ele movesse o mouse pelo PANEL(5), por exemplo.

Como fazer isso??? Pois, da maneira que eu coloquei, ele executará este código em qualquer lugar da STATUSBAR que eu passar o mouse.
LCSD 06/07/2004 08:36:50
#32418 Resposta escolhida
Luiz Cesar

Defina uma variável, xPanel por exemplo, como Private no Form:

Dim xPanel as Integer

No Evento MouseMove atualize a xPanel

Private Sub StatusBar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

xPanel = Int(x)

End Sub

Com isto você saberá em que posição está a cada momento.

Boa Sorte e Saúde!
[s68]
LCSD 06/07/2004 14:26:01
#32463
Luis

Eu fixei TODOS os Panels em Width = 1500, portanto eu já sei que é uma medida Padrão mas pode ser armazenada em uma Matrix, dividi o valor do x no Evento MouseMove pelos 1500 e tenho QUAL Panel estou, com um Select Case eu disparo qualquer Ação que deseje.


Private Sub StatusBar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim AtualPanel As Integer
AtualPanel = (Int(x / 1500)) + 1

Select Case AtualPanel
Case 1
Case 2
Case 3
Case 4
Case 5

End Select

Debug.Print AtualPanel

End Sub

Espero ter ajudado. Até Breve
[s68]
LCSD 08/07/2004 14:23:56
#32786
Luiz

Funcionou a rotina acima?
[s50]
Tópico encerrado , respostas não são mais permitidas
Voltar