[VB6] Carattere Chr(10) in TextBox

[x69asterix]

ho un problema di visualizzare dei caratteri strani in una txtbox.




come faccio a formattare il txtbox?
ho provato con

txtbox=chr(13) & IIP & chr (10), ma non và

[giorgiogio48]

Puoi fare un esempio della stringa che vuoi inserire nella textbox?

[x69asterix]

Originariamente inviato da giorgiogio48
Puoi fare un esempio della stringa che vuoi inserire nella textbox?

Dim IIP As String
Set o = CreateObject("InetCtls.Inet")
IIP = o.OpenURL("http://pchelplive.com/ip.php")
Label1 = ("Internet Indirizzo IP: " & IIP)
Text1.Text = IIP
Set o = Nothing

la label mi visualizza l'ip correttamente invece la txtbox mi crea il problema, come la figura allegata sopra, la txtbox è quella in nero

[alka]

Lo scopo è andare a capo?

[x69asterix]

Originariamente inviato da alka
Lo scopo è andare a capo?

lo scopo è quello di visualizzare la txtbox in nero correttamente, senza caratteri aggiunti.

[alka]

Originariamente inviato da x69asterix
lo scopo è quello di visualizzare la txtbox in nero correttamente, senza caratteri aggiunti.

In tal caso, non aggiungere caratteri tu.

Perchè accodi il Chr(10)? A cosa ti serve?

[x69asterix]

Originariamente inviato da alka
In tal caso, non aggiungere caratteri tu.

Perchè accodi il Chr(10)? A cosa ti serve?

.
difatti io lascio textbox=IIp, ma il problema è quello evidenziato.
che sia un problema di font?

[alka]

Originariamente inviato da x69asterix
difatti io lascio textbox=IIp, ma il problema è quello evidenziato

Usa le funzioni per la manipolazione delle stringhe per rimuovere tutti i caratteri indesiderati dalla variabile che contiene l'indirizzo IP.

Per determinare la loro eventuale presenza e posizione, puoi mettere un breakpoint nel programma e controllare il valore della variabile che contiene l'indirizzo IP.

Ciao!

[oregon]

Il carattere e' letto dalla OpenURL. Lo devi eliminare dalla stringa

Text1.Text = Replace(IIP, Chr$(10), "")

Ovviamente se ce ne sono altri, come il Chr$(13), puoi effettuare la stessa operazione.

Oppure, se sono sempre alla fine della stringa, puoi usare la Left$ per eliminarli, ovvero

Text1.Text = Left$(IIP, Len(IIP) - 1)

usando -1 o -2 secondo quanti caratteri vuoi eliminare.

Devi semplicemente operare con le funzioni base di gestione delle stringhe.

[x69asterix]

Originariamente inviato da oregon
Il carattere e' letto dalla OpenURL. Lo devi eliminare dalla stringa

Text1.Text = Replace(IIP, Chr$(10), "")

Ovviamente se ce ne sono altri, come il Chr$(13), puoi effettuare la stessa operazione.

Oppure, se sono sempre alla fine della stringa, puoi usare la Left$ per eliminarli, ovvero

Text1.Text = Left$(IIP, Len(IIP) - 1)

usando -1 o -2 secondo quanti caratteri vuoi eliminare.

Devi semplicemente operare con le funzioni base di gestione delle stringhe.

Ok!!
grande oregon!!
problema risolto.
Text1.Text = Replace(IIP, Chr$(10), "")