Quitar el ultimo caracter o espacio de un string

[hunter18]

Como hago para eliminar el ultimo espacio o caracter de un textbox, en pocas palabras como llamo desde un command a la tecla delete un sola vez para que le quite dicho caracter o espacio que siempre me sobra al final?

Me parece que debo llamar a vbKeyBack pero como le digo que lo aplique al textbox para quitarle el ultimo caracter, el foco esta situado al final del textbox asi que solo se trata de llamar a esta tecla desde un boton?

[Programmer]

Para quitar el ultimo caracter de una cadena contenida en un textbox solo debes usar la siguiente linea.

Código:

Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)

Mid -> Devuelve una subcadena, previamente definido donde inicia a cortar y cuantos elementos debe sustraer
Len -> Devuelve la longitud de una cadena

En este caso, se debe de iniciar a cortar la cadena en su primer elemento y se le debe cortar la longitud menos uno, asi eliminamos el ultimo elemento.

Saludos

[hunter18]

funciono tio gracias, y como seria si quisiera agregar un espacio o 2 al final de string

[ema21del9]

Código VB:

cadena=cadena & "  "
 

[hunter18]

Hola aqui otra vez, al volver a agregar un espcio al final del string hago esto pero tengo un inconveniente

Código:

RichTextBox2.Text = RichTextBox2.Text & " "

Como algunas palabras del RichTextBox2 tienen formato subrayado y/o coloreado al hacer lo anterior se pierde eso, hay alguna manera de agregarle ese espacio al final de la cadena sin perder el formato del RichTextBox?

De esta manera logro situar el puntero al final de la cadena del richtextbox

Código:

RichTextBox2.SetFocus
RichTextBox2.SelStart = Len(RichTextBox2)

[pkj]

Yo uso richtextbox en un programa pero me limité a usar el texto plano que devuelve con .text, pero para lo que tu quieres creo que tendrás que usar "richtextbox.textrtf" si quieres trabajar con el texto formateado.

Suerte con ello. Yo no lo domino.

Saludos

[moiseslaguilar]

Amigos yo tengo un problema similar, quiero sustituir el ultimo digito de una cadena pero esta cadena vive en un contador una vez quitado el ultimo valor solo concateno +1 con una expecion que tengo en el codigo pero SIGO SIN PODER ELIMINAR EL ULTIMO DIGITO DEL CONTADOR


For a = 0 To lstbxAdd.Items.Count - 1
xx = lstbxAdd.Items(a)
Select Case RTrim(dgvTest.Item(1, i).Value)

Case xx
stFuente.Value = numID.Text

//AQUI EVALUO LO QUE TENGO EN MI GRID EN LA COLUMNA 3 con mi contador "i" y lo cambie por mi fuente que en este caso e mi expecion (No puedo quitar el ultimo digito de la cadena)


dgvTest.Item(3, i).Value += stFuente.Value