Visual Basic - mask edbox

Life is soft - evento anual de software empresarial
 
Vista:

mask edbox

Publicado por gustavo (218 intervenciones) el 17/02/2007 02:26:41
hola, utilizo este objeto para ingresar montos de dinero, pero los numeros se alinean a la izquierda, por favor como hago para que asuma el formato de numero(alineacion a la derecha), gracias por la ayuda
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:mask edbox

Publicado por marcela (27 intervenciones) el 17/02/2007 04:57:38
Si o si tienes que utilizar este control??? Yo utilizo los TextBox, mediante el evento keypress controlo que teclas seran aceptadas de acuerdo al dato que se debe ingresar. Este control tiene la propiedad de alineamiento disponible, no asi sucede con el mask edbox....
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:mask edbox

Publicado por Marcela (27 intervenciones) el 26/02/2007 05:02:14
Perdón por el retraso pero recien hoy ingrese al portal.....
Te agrego un ejemplo de un textbox en el cual se ingresa el total de factura de gastos.
Con el evento KeyPress me aseguro que el usuario solo ingrese numeros y el punto.
Luego utilizo el evento Validate para asegurar que lo ingresado sea un nro.
Ojala te ayude..... Si aun sigues con problemas enviame un mail..

Private Sub txtTotalFactura_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys ("{Tab}")
If (KeyAscii = 46) Or ((KeyAscii >= 48 And KeyAscii <= 57)) Or (KeyAscii = 8) Then
'KeyAscii = 0
Else
KeyAscii = 0
End If
End Sub

Private Sub txtTotalFactura_Validate(Cancel As Boolean)
If txtTotalFactura <> "" Then
If Not IsNumeric(txtTotalFactura) Then
Cancel = True
MsgBox "Valor Incorrecto!!", vbCritical, gTituloMsgBox
txtTotalFactura = ""
txtTotalFactura.SetFocus
Else
If CDbl(txtTotalFactura) <= 0 Then
Cancel = True
MsgBox "Total de Factura debe ser > 0.", vbCritical, gTituloMsgBox
txtTotalFactura.SetFocus
End If
End If
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

RE:mask edbox

Publicado por gustavo (218 intervenciones) el 17/02/2007 22:32:19
gracias marcela pero me podes poner algun ejemplo, es que me estoy iniciando en esto del vb
agradecido
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:mask edbox

Publicado por Flipper (3 intervenciones) el 17/02/2007 23:56:45
si os estais inisiando no pregunteis en el foro de "avanzado" no mas en el de vb normal
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