Mantener siempre un valor en una caja de texto

[KingColt]

Como mantener siempre un valor numerico en una caja de texto, es decir si al ejecutar la aplicacion el valor de text1.text=0 y elimino ese valor de la caja de texto vuelva a aparecer de nuavo automaticamente, este proceso solo ocurrira cuando la caja este vacia

Espero me uedan ayudar.......

[ideasking]

Debes ser mas claro en especificar que es exactamente lo que necesitas.

[jcasillase]

Hola... Yo lo hago de esta manera... espero te funcione...

Private sub MiCampo_Change()
If Len(Trim(txtMiCampo.Text)) = 0 Then
'Puedes ponerle simplemente 0 o el formato que tu quieras
txtMiCampo.Text = Format(0, "000")
txtMiCampo_GotFocus
DoEvents
End If
End Sub

Obviamente en el evento GotFocus tengo programado lo siguiente

Private Sub MiCampo_GotFocus
Let MiCampo.SelStart = 0
Let MiCampo.SelLength = Len(MiCampo.Text)
End Sub

Saludos

[Avellaneda]

En el evento LostFocus del TextBox:

If Text1.Text = "" Then Text1.Text = 0

[KingColt]

Buenas respuestas, ahora me encontre con otro problema por ejemplo en la caja de texto, por ejemplo en una caja de texto tengo un valor numerico 10.00 cuando no tiene el foco y al colocarle el foco debe mostrar el valor entero es decir 10
El problema ocurre ocurre cuando el valor por ejemplo es 10.25 y al ponerle el foco me muestra 10 pero se pierde los decimales aqui dejo mi codigo

Private Sub Text3_GotFocus()
Text3 = Int(Text3)
End Sub

Private Sub Text3_LostFocus()
Text3 = Format(Text3, "##00.00")
End Sub

.....