Newsgroup: it.comp.lang.visual-basic
Titolo: [Caricare molti oggetti]mi date un'idea?

Bene,il mio problema è il seguente:
vorrei visualizare il contenuto di una cartella caricando dei bottoni su
di un form,un file per bottone.Fin qui sono riuscito.
Il problema ovviamente arriva quando devo caricare tanti file che non
posso visualizzare sul form stesso.Come potrei sfogliare i bottoni
caricati?
Senza passare da una picturebox scrollabile.
Questo è il codice per caricare i bottoni:
Private Sub Clona(NumContr As Integer)
Dim FirstContr As Integer
Dim LastContr As Integer
Dim ContrNum As Integer
Dim TestoIcona As String
With cmdBottone
    FirstContr = .lBound
    LastContr = .UBound
    ' CREA I CONTROLLI
    If NumContr > 0 Then .Item(FirstContr).Visible = True
    For ContrNum = LastContr To FirstContr + NumContr - 1
        If ContrNum > LastContr Then Load .Item(ContrNum)
    Next ContrNum
 
    'IMPOSTA IL CONTROLLI
    If NumContr > 0 Then
        For ContrNum = FirstContr To .UBound
            'IMPOSTA IL TESTO DEI CONTROLLI CLONATI
            .Item(ContrNum).Picture = LoadPicture(App.Path & "\dati\" &
Left(flbDati.List(ContrNum), (Len(flbDati.List(ContrNum)) - 4)) &
".bmp")
            'IMPOSTA LA POSIZIONE DEI CONTROLLI CLONATI
            If ContrNum > FirstContr Then
                .Item(ContrNum).Visible = True
                .Item(ContrNum).Top = .Item(ContrNum - 1).Top +
.Item(ContrNum - 1).Height + 5
                .Item(ContrNum).TabIndex = .Item(ContrNum - 1).TabIndex
+ 1
            End If
        Next ContrNum
    End If
End With
End Sub
Private Sub Form_Load()
flbDati.Path = App.Path & "\dati"
Clona flbDati.ListCount
End Sub
Grazie a tutti
R.Zanni
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 R.Zanni
ciaociao

 Senza passare da una picturebox scrollabile.
Devi aggiundere due pulsantini che spostano tutti i bottoni in qua e in là
della lunghezza di quello che andrà a sparire.
Ciao
--
Math Parser : 
http://www.neodatatype.net
FlowChart   : 
http://www.neodatatype.net/dump/flowchart/dir.asp
Sito Comune : 
http://www.it-lang-vb.net

Già,l'idea era quella di inserire un paio di pulsanti per "incrementare"
o "decrementare" il ciclo che carica i bottoni.
Sto "sparando" grosso?


 R.Zanni
ciaociao

 Ciao
ciaociao

 Senza passare da una picturebox scrollabile.
[cut]
Prima ottieni il dir della cartella e ti metti il risultato in un Array.
Poi generi i bottoni passando alla routine due interi che indicano
l'elemento da cui iniziare e quello dove finire.

Grazie a tutti,proverň co i vostri suggerimenti


 Senza passare da una picturebox scrollabile.
diciamo che hai 100file e puoi mettere max 5 pulsanti sul form....
carichi la lista dei file (path) in una matrice e visualizzi i primi 5
elementi della matrice
il path del file viene salvato nel tag del pulsante
poi metti una scrollbar (o anche un pulsante con una freccia vedi te)
allo spostarsi della scrollbar cambi gli elementi della matrice associati ai
pulsanti
(ne levi uno,sposti gli altri e ne inserisci uno nuovo...)
all click di un pulsante carichi ciò che è contenuto nel tag...
na figata no!!?
che dici?
in questo modo risparmi memoria (carichi solo 5 pulsanti...)
e non impazzisci a spostarli e posizionarli
che ne dici?
ciao
marco
