Visual Basic - Ayuda con MaskEditBox

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con MaskEditBox

Publicado por Guillermo setialfauno@hotmail.com (34 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)

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder