[vb6] come allineare delle stringhe ???

[naki]

Ciao a Tutti
mi potreste aiutare nell'allineare delle stringhe in una lista
grazie in anticipo

Questo è il codice :

Private Sub cmdvisualizza_Click()
frmmostra.lstfilm.Clear
i = 0
Open archivio For Random Access Read As #1 Len = LenB(mieidvd)
Do
a = 0
b = 0
frase = ""
i = i + 1
Get #1, i, mieidvd
If (Not mieidvd.cancellato) Then
If txtrecord.Text = 0 Then
MsgBox ("Nessun record ancora caricato."), vbCritical, "Mostra record"
Exit Sub
Else
a = 30 - (Len(Trim(mieidvd.titolo)) + Len(Trim(mieidvd.anno)))
frase = Trim(mieidvd.titolo) & Space(a) & Trim(mieidvd.anno)
frmmostra.lstfilm.AddItem frase
End If
End If
Loop Until EOF(1)
Me.Hide
frmmostra.Show
Close #1
End Sub

Questo è tutto il progetto http://naki.helloweb.eu/Lista DVD.rar

[Jeremy75]

Cosa vuol dire ..... allineare delle stringhe in una lista???

[naki]

scrivere cosi


il Gladiatore Anno: 1998
Miami Vice Anno: 2002

cosi

[naki]

1998 deve essere in fila con 2002

[Jeremy75]

Povresti,secondo me, inserire prima di 1998 e 2002, un numero variabile di TAB valutando la quantità di caratteri prima di 1998 e 2002

Facci sapere...
Ciao

[naki]

si ma come uso il tab su una lista ?

[Jeremy75]

Scusa...avevo capito in un File....bhè se le cose stanno così, allora mi sembra che puoi creare 2 colonne nella lista...oppure usare un datagrid, perchè proprio una lista???

Facci sapere..
Ciao

[gibra]

Originariamente inviato da naki
1998 deve essere in fila con 2002

L'unico modo è impostare nel listbox un carattere monospaziato come il Courier New, e poi formattare la stringa tenendo conto della dimensione che può avere il titolo del film.
Puoi usare la funzione Format() che è perfetta per questo, ma dubito che il risultato sia soddisfacente. Almeno a me non piacerebbe per niente, perchè potresti ottenere cose di questo genere:

L'aereo più pazzo del mondo Anno: 1980
Alien                       Anno: 1985
Il Gladiatore               Anno: 1998
Miami Vice                  Anno: 2002

Ciao

[naki]

perche è quella che conosco meglio

[naki]

provvedero grazie :d