Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - completare una textBox
Forum - C# / VB.NET - completare una textBox

Avatar
omauri (Normal User)
Newbie


Messaggi: 4
Iscritto: 22/12/2008

Segnala al moderatore
Postato alle 18:48
Martedì, 24/02/2009
Ho questo problema: dovrei completare una textBox di dimensione fissa a 48 caratteri con tanti spazi fino a raggiungere la dimensione voluta.

Per esempio se nella textbox scrivo "ciao", voglio che la completi automaticamente con 48 spazi (o più in generale con un qualsiasi carattere).

Come posso fare?

Grazie!

PM Quote
Avatar
fabi3194 (Ex-Member)
Expert


Messaggi: 206
Iscritto: 11/10/2008

Segnala al moderatore
Postato alle 20:54
Martedì, 24/02/2009
Prova così:
Codice sorgente - presumibilmente VB.NET
  1. Dim c As Char
  2. Dim i As Integer
  3. For Each c In TextBox1.Text
  4.     i += 1
  5. Next
  6. Dim mancanti As Integer = 48 - i
  7. For n = 1 To mancanti
  8.     TextBox1.Text += " "
  9. Next

Attenzione, c'è un problema: se i è maggiore di 48, mancanti sarà un numero negativo!
:D

PM Quote
Avatar
omauri (Normal User)
Newbie


Messaggi: 4
Iscritto: 22/12/2008

Segnala al moderatore
Postato alle 10:53
Mercoledì, 25/02/2009
Testo quotato
Postato originariamente da fabi3194:

Prova così:
Codice sorgente - presumibilmente VB.NET
  1. Dim c As Char
  2. Dim i As Integer
  3. For Each c In TextBox1.Text
  4.     i += 1
  5. Next
  6. Dim mancanti As Integer = 48 - i
  7. For n = 1 To mancanti
  8.     TextBox1.Text += " "
  9. Next

Attenzione, c'è un problema: se i è maggiore di 48, mancanti sarà un numero negativo!
:D


Grazie mille per la risposta! io avevo trovato un altro modo nel frattempo, usando il pad, quindi mi completa la stringa fino alla dimensione voluta, e sembra funzionare

        pad = Convert.ToChar(" ")
        Dim stringnew As String = stringa.PadRight(48, pad)

PM Quote
Avatar
Henry 128 (Member)
Pro


Messaggi: 61
Iscritto: 20/03/2008

Segnala al moderatore
Postato alle 20:14
Lunedì, 02/03/2009
Questo è meno complesso.
Codice sorgente - presumibilmente Delphi
  1. If Len(TextBox1.Text) < 48 Then
  2.   TextBox1.Text += Space(48 - Len(TextBox1.Text))
  3. End If

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 15:32
Martedì, 03/03/2009
Testo quotato
Postato originariamente da Henry 128:

Questo è meno complesso.
Codice sorgente - presumibilmente Delphi
  1. If Len(TextBox1.Text) < 48 Then
  2.   TextBox1.Text += Space(48 - Len(TextBox1.Text))
  3. End If

Ed è anche quasi completamente vb6 :rofl:

PM Quote