Visual Basic - Lost focus

Life is soft - evento anual de software empresarial
 
Vista:

Lost focus

Publicado por Ramon Jimenez (2 intervenciones) el 19/11/2008 01:36:17
Hola amigos tengo un problemita con una función que checa si son numeros, bueno la funcion esta bien lo que fallas es el lost focus, por ejemplo tengo mi forma y mando llamar la función de esta manera:

Private Sub txt_cant_items_LostFocus()
checa_num txt_cant_items, Inventariocvta.Name, txt_cant_items.Name
End Sub

Le mando 3 parametros, el campo que esta checando, el nombre de la forma y el nombre del campo.

Aqui recojo los valores y checa bien todo, pero no se como devolver el lost focus Yo lo hice así pero me marca un error.

Public Sub checa_num(campo As TextBox, nombre_forma As String, nombre_caja As String)
If IsNumeric(campo) = False Then
MsgBox "Lo siento. Debe Ingresar SOLAMENTE Números.", vbInformation, "Cuidado!"
nombre_forma.nombre_caja.SetFocus ' <--- Aqui marca el error
End If
End Sub

Espero y me puedan ayudar, la función esta en un modulo.

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:Lost focus (Resuelto)

Publicado por Ramon Jimenez (2 intervenciones) el 19/11/2008 01:45:03
Amigos perdonen si les quite espacio en este foro pero ya lo resolvi y era muy fácil, solo que cuando ya llevas horas progrmando te revuelves.

Private Sub txt_cant_items_LostFocus()
checa_num txt_cant_items
End Sub

Public Sub checa_num(campo As TextBox)
If IsNumeric(campo) = False Then
MsgBox "Lo siento. Debe Ingresar SOLAMENTE Números.", vbInformation, "Cuidado!"
campo.SetFocus
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

RE:Lost focus

Publicado por igor (633 intervenciones) el 19/11/2008 22:29:29
Es tan STUPIDIO que ni me molesto en explicarlo, APRENDE A PROGRAMAR!!!!!!!!!!!!!!!!!!!!!!!!

Private Sub txt_cant_items_LostFocus()
checa_num txt_cant_items
End Sub

Public Sub checa_num(campo As TextBox)
If IsNumeric(campo) = False Then
MsgBox "Lo siento. Debe Ingresar SOLAMENTE Números.", vbInformation, "Cuidado!"
campo.SetFocus
End If
End Sub
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