Problemi con ListBox Create a Codice

martedì 31 luglio 2007 - 14.41

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Danjwo Profilo | Newbie

9 messaggi | Data Invio: mar 31 lug 2007 - 14:41

Salve, io ho un problema legato ad un "array" di listbox

Io devo creare un programma che dato in ingresso il numero delle serate
mi crei tante listbox quante sono le serate
ed in base al n° di serate poi possa aggiungere in ognuna un certo numero di cantanti
Con una sola Serata riesco a gestirlo. Dovendo utilizzare più serate non so come implementare l'array..

Allego il codice finora creato:

Dim nser As Integer
Dim lstser(nser) As ListBox
Dim l As Integer
Dim t As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
l = 300
t = 100
nser = InputBox("Quante Serate Si Deve Organizzare?", "N° Serate")
popola()
creaz(nser)

End Sub
Sub creaz(ByVal nser)
Dim i As Integer

Dim titlst(nser) As Label
For i = 0 To nser
lstser(i) = New ListBox
titlst(i) = New Label
Me.Controls.Add(lstser(i))
Me.Controls.Add(titlst(i))
'istruzioni di posizionamento e dimensione (Left,Top e Size)
Next i
End Sub

Private Sub popola()
'Popolamento della lista originale dei cantanti presi da un database
End Sub

Private Sub lstsorg_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstsorg.MouseDoubleClick
lstser(0).Items.Add(lstsorg.SelectedItem)
' Indice 0 messo puramente a caso nel caso finale vorrei far decidere a random in quale serata collocarlo
End Sub

GRAZIE Daniele

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !