amtroyano
05 de Febrero del 2004

Hola de nuevo.

Necesito saber, como hago que cuando el ratón se situe sobre los menús me salgan mensajes en la barra de estado.

Gracias.

Thessen
05 de Febrero del 2004

Controla el evento MouseMove de cada menu y en el pones el texto a visualizar.

StatusBar.Panels(Indice).text = "TextoMenu"

sdemingo
05 de Febrero del 2004

Hola,

Establece la propiedad Style del statusbar como 1-sbrSimple

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.StatusBar1.SimpleText = "Está posicionado sobre la etiqueta 2"

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.StatusBar1.SimpleText = "Está posicionado sobre la etiqueta 1"

End Sub

salu2
sdemingo

amtroyano
05 de Febrero del 2004

Muchas gracias.

amtroyano
05 de Febrero del 2004

Os agradezco vuestra ayuda, pero no me funciona o no se como utilizarlo para cuando el ratón pase por los comandos de los menus que me salga un mensajito.

Se utilizar la barra de estado, pero no se utilizar o que control se refiere el menu. El único evento que me generan los comandos de los menus es el "click" y me interesa el MouseOver o MouseMove de otros lenguajes.

Espero que me entandais lo que quiero decir.