Visual Basic - Alineación de maskedbox

Life is soft - evento anual de software empresarial
 
Vista:

Alineación de maskedbox

Publicado por Paulina S. (18 intervenciones) el 10/10/2002 00:18:40
Hola:
Necesito realizarles una consulta.
Tengo unos objetos masked en el cual necesito ingresar unos números con esta máscara #####.## (el . es decimal).
Cuando ingreso el valor 52.3 lo hace así : 52___.3 (el _ es espacios) y tengo que ir yo con la flecha --> a ingresar el decimal.
Cómo puedo ingresar 52 un punto y luego el 3 ?, y cuando digite el punto asuma que se debe ir a ingresar el decimal ?
Existe alguna función que ajuste a la derecha el valor entero ?

Gracias, por la leer la nota.
Chao.
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:Alineación de maskedbox

Publicado por Rodolfo del Peru (454 intervenciones) el 10/10/2002 03:47:54
Te suguiero que utilizes objetos editbox, al cual le pones la propiedad de alineacion a la derecha.
Luego por codigo haces la siguiente subrutina

Sub Campo_Lostfocus()
Campo = Format(Campo,"####0.00#")
EndSub

Esto hara que al salir del campo, se vera formateado. por otro lado debes hacer que el campo solo permite numeros, punto y backspace.

Sub Campo_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 48 To 57
KeyAscii = Asc(Chr(KeyAscii))
Case Else
KeyAscii = 0
End Select
End Sub

Para seleccionar todo el valor cuando el campo obtiene el foco, usa la siguiente subrutina

Private Sub Campo_GotFocus()
Campo.SelStart = 0
Campo.SelLength = Len(Trim(Campo))
End Sub

Ojala todo esto te sirva,

Saludos desde Lima
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