Ayuda con MaskEditBox
Publicado por Guillermo (35 intervenciones) el 14/04/2014 04:42:18
hola compañeros, hace tiempo que no los molestaba... necesito su ayuda en lo siguiente:
necesito pasar un control MaskEdBox1 a una función; lo que no entiendo es que en forma a nivel de módulo funciona bien, pero desde la función, no.
miren, estoy haciendo esto: (en el formulario)
Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
End Sub
y por dentro de la función tengo que hacer cierta operaciones sobre el MaskEdBox1, de esta forma:
(la siguiente función va en un modulo.bas)
Public Function CompruebaTecla(KeyAscii As Integer, Texto As MaskEdBox)
Static raya, coma As Boolean
End Function
Por favor, alguien que pruebe el código y me ayude....
gracias....
necesito pasar un control MaskEdBox1 a una función; lo que no entiendo es que en forma a nivel de módulo funciona bien, pero desde la función, no.
miren, estoy haciendo esto: (en el formulario)
Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
KeyAscii = CompruebaTecla(KeyAscii, MaskEdBox1)
End Sub
y por dentro de la función tengo que hacer cierta operaciones sobre el MaskEdBox1, de esta forma:
(la siguiente función va en un modulo.bas)
Public Function CompruebaTecla(KeyAscii As Integer, Texto As MaskEdBox)
Static raya, coma As Boolean
If Texto.Text Like "*,*" Then
coma = True
Else
coma = False
End If
If Len(Texto.Text) = 0 Then
coma = False
End If
select case keyascii
Case 48 To 57
KeyAscii = KeyAscii
end select
End Function
Por favor, alguien que pruebe el código y me ayude....
gracias....
Valora esta pregunta
0