Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. 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