cambiar de textbox con intro
te doi una pista importante y te encamino a la respuesta, si aun asà no lo logras me lo dices ;).
Private Sub varios_longitud_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles varios_longitud.KeyPress
' Si se pulsa la tecla Intro, pasar al siguiente
If e.KeyChar = Convert.ToChar(Keys.Return) Then
'If e.KeyChar = ChrW(Keys.Return) Then
e.Handled = True
varios_longitud.Focus()
'si intenta poner decimales, no dejarle
ElseIf e.KeyChar = ","c Then
e.Handled = True
SendKeys.Send("")
MsgBox("No se puede meter decimales")
ElseIf e.KeyChar = "."c Then
e.Handled = True
SendKeys.Send("")
MsgBox("No se puede meter decimales")
End If
End Sub
aki compruebo en 1 texbos("varios_longitud") si se aprieta una coma o un punto para quitarse y sacar un mensaje, el enter tiene un codigo ascill con el k puedes comprobar para saber si es presionado y asi usar el focus al objeto k kieras.
podrÃas resolverme mi duda de abajo sobre los datagrids?
Private Sub varios_longitud_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles varios_longitud.KeyPress
' Si se pulsa la tecla Intro, pasar al siguiente
If e.KeyChar = Convert.ToChar(Keys.Return) Then
'If e.KeyChar = ChrW(Keys.Return) Then
e.Handled = True
varios_longitud.Focus()
'si intenta poner decimales, no dejarle
ElseIf e.KeyChar = ","c Then
e.Handled = True
SendKeys.Send("")
MsgBox("No se puede meter decimales")
ElseIf e.KeyChar = "."c Then
e.Handled = True
SendKeys.Send("")
MsgBox("No se puede meter decimales")
End If
End Sub
aki compruebo en 1 texbos("varios_longitud") si se aprieta una coma o un punto para quitarse y sacar un mensaje, el enter tiene un codigo ascill con el k puedes comprobar para saber si es presionado y asi usar el focus al objeto k kieras.
podrÃas resolverme mi duda de abajo sobre los datagrids?