Visual Basic.NET - Dar formato

   
Vista:

Dar formato

Publicado por George (3 intervenciones) el 13/01/2011 22:42:50
Hola a todos.

Estoy empezando a utilizar VB .NET y quiero saber como hacerle para dar formato a un str, ejemplo: en un TextBox yo capturo esta cifra 12511 y lo que deso es que en el evento LostFocus del objeto el valor se describa así: 125/11 (quiero agregar la / antes de los ultimos dos digitos). 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
Imágen de perfil de francisco

RE:Dar formato

Publicado por francisco (162 intervenciones) el 15/01/2011 15:39:08
' puedes comvertir el numero a string y luego hacer esto
Dim numero As String = "12511"
Dim numero2 As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

numero2 = Mid(numero, 1, 3) & "/" & Mid(numero, 4, 5)
Me.Text = numero2
End Sub

de nada
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:Dar formato

Publicado por George (3 intervenciones) el 17/01/2011 17:29:39
Muchas gracias Francisco, si me funciono con el ejemplo que me pasaste, ahora me nace una duda, como le puedo hacer para insertar siempre la diagonal(/) antes de los dos ultimos digitos de mi string, esto por si el string 112511, 2511, etc. Como le puedo hacer para que siempre inserte la diagonal antes de los dos ultimos digitos. Gracias por tú valiosa ayuda.
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
Imágen de perfil de francisco

RE:Dar formato

Publicado por francisco (162 intervenciones) el 15/01/2011 15:53:33
' puedes comvertir el numero a string y luego hacer esto
Dim numero As String = "12511"
Dim numero2 As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

numero2 = Mid(numero, 1, 3) & "/" & Mid(numero, 4, 5)
Me.Text = numero2
End Sub

de nada
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
Imágen de perfil de frqncisco

RE:Dar formato

Publicado por frqncisco (162 intervenciones) el 27/01/2011 14:02:13
Public Class Form1

Dim numero As String = "12511"
Dim numero2, numero3 As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

numero2 = Mid(numero, 1, 3) & "/" & Mid(numero, 4, 5)
Me.Text = numero2

Dim longitud As Integer = Len(numero)
longitud = longitud - 2
numero3 = Mid(numero, 1, longitud)
Label1.Text = numero3 & "/" & Mid(numero, longitud + 1, longitud + 2)

End Sub

solo tienes que pensar un poco

hay un metodo right por ahi buscalo .......
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