Visual Basic - Text Box... Como dar un enter dentro del TextBox

Life is soft - evento anual de software empresarial
 
Vista:

Text Box... Como dar un enter dentro del TextBox

Publicado por FroyLan (185 intervenciones) el 24/03/2002 17:17:30
Mi duda es:
como puedo hacerle para dar un enter dentro de una caja de texto
solo imprimo en ella una linea y al querer imprimir otra no me deja
la renombre.... en C solo escribo \n y eso imprime un enter... en visual Como???
gracias
ejemplo::
est = A
cont = 1
While (est >= A And est <= O)
ch = Mid(txteceptar_datos.Text, cont, 1)
If ch <> "" Or ch = 15 Then
lbltext.Caption = ch
txtresultados.Text = txtresultados.Text = "Estado = " & est ENTER AQUI
columna (ch)
est = tabla(est)(colum)
txtresultados2 = " Nuevo estado = " & est /* AQUI QUIERO IMPRIMIR UN ENTER*/
cont = cont + 1
Else

ETC ETC

EN ESOS LUGARES QUIERO QUE ME ESTE IMPRIMIENDO MIENTRAS SE CUMPLA LA CONDICION!!!! EN UN A TEXTBOX, LINE TRAS LINEA
GRACIAS DE ANTEMANO!!!! BYE!!!
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:Text Box... Como dar un enter dentro del TextB

Publicado por Geo (23 intervenciones) el 24/03/2002 17:55:02
si te refieres a un ENTER como un fin de línea y continuar en la siguiente, usa vbcrlf
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:Text Box... Como dar un enter dentro del TextB

Publicado por Froy (185 intervenciones) el 24/03/2002 18:52:03
mira tengo esto!!!!
While (est >= A And est <= O)
ch = Mid(txteceptar_datos.Text, cont, 1)
If ch <> "" Or ch = 15 Then
lbltext.Caption = ch
txtresultados.Text = "Estado = " & est & " Caracter = " & ch & vbCrLf
columna (ch)
est = tabla(est)(colum)
txtresultados2 = " Nuevo estado = " & est
cont = cont + 1
Else
Select Case (est)
Case E: MsgBox "ES UN ENTERO", vbInformation
Case G: MsgBox "ES UN BINARIO", vbInformation
Case H: MsgBox "ES UN HEXADECIMAL", vbInformation
Case K: MsgBox "ES UN DECIMAL", vbInformation
Case I: MsgBox "ES UN OCTAL", vbInformation

default: MsgBox "Error, estado equivocado", vbInformation
End Select
res = MsgBox("Quieres volver a dar valoress?", vbDefaultButton1, "Mensaje Final")
If res = 1 Then
est = 15
End If

End If
Wend

NO FUNCIONA!!! QUE LE FALTA
GRACIAS
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:Text Box... Como dar un enter dentro del TextB

Publicado por JOSE CARLOS (243 intervenciones) el 24/03/2002 19:17:41
Los códigos para pasar a una linea nueva son:

CHR(13)+CHR(10)

Saludos
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