Visual Basic.NET - AYUDA PLEASE!!!

 
Vista:

AYUDA PLEASE!!!

Publicado por Victor (3 intervenciones) el 20/08/2003 21:06:12
estoy programando en Visual basic.net
Un favorsote alguien sabe como añadir a un statusbar que aparezca CAPS cuando esta activada la tecla de mayusculas y que desaparezca cuando se desactive la tecla o igualmente la de NumLock les agradeceria mucho si me pueden decir porque es para mi trabajo final de Informatica gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA PLEASE!!!

Publicado por Edgar (1501 intervenciones) el 25/08/2003 23:35:33
Ok.. lo primero que debes hacer es agregar los paneles necesarios a tu statusbar, luego, debes sobreescribir el metodo OnKeyDown (Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs))

El objeto KeyEvenArgs tiene una propiedad KeyCode que te indica cual tecla fue presionada... si es la tecla CAPS o NumLock muestras el mensaje en el statusbar (o lo quitas dependiendo del caso)

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

PARA EDGAR

Publicado por Jose Olmes (86 intervenciones) el 27/08/2003 16:42:16
Tienes algun codigo de ejemplo para utilizar el metodo OnKeyDown.
Te agradeciria si lo enseñaras, Gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:PARA EDGAR

Publicado por Edgar (1501 intervenciones) el 28/08/2003 00:23:11
Hola

La verdad no tenia un codigo disponible... el que tengo disponible esta en c#, asi que para darte el ejemplo (y ayudar mas a victor) hice uno rápidamente que espero pueda ayudarte a ti y a victor, el ejemplo es el siguiente

Private isCapsPressed As Boolean
Private isNumLockPressed As Boolean

Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
If (e.KeyCode = Keys.CapsLock) Then
Me.CapsPanel.Text = IIf(Me.isCapsPressed, "", "Caps")
Me.isCapsPressed = Not Me.isCapsPressed
End If
If (e.KeyCode = Keys.NumLock) Then
Me.NumLockPanel.Text = IIf (Me.isNumLockPressed, "", "NumLock")
Me.isNumLockPressed = Not Me.isNumLockPressed
End If
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Gracias Por el Ejemplo

Publicado por Jose Olmes (86 intervenciones) el 28/08/2003 16:26:56
Edgar Gracias por el ejemplo me ha servido mucho.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar