Domanda

[hfgfghfgfg]

Salve, sono nuovo ed avrei due domande da porvi:
1. Vorrei che la mia applicazione faccia le segunti cose:
Un tasto alla sua pressione mi faccia aprire la classica finestra da cui io posso attingere files e poi vorrei che i files che io seleziono vadano a finire in una listbox. Come devo fare? Inoltre vorrei avere la possibilità di poter scegliere più files in una volta sola mentre per ora riesco a selezionarne solo uno per volta e comunque non lo vedo comparire nella listbox.
2. Come devo fare per contattare l'amministratore per poter farmi cambiare il nome utente?

Grazie!

[steno12]

nella routine del pulsante immetti questo codice:

devi avere un controllo commondialog1

'------taglia da quiì------------------
CommonDialog1.ShowOpen
Filename = CommonDialog1.Filename
If Filename = "" Then Exit Sub
Filename = CommonDialog1.Filename
aa = Len(Filename)
ee$ = "": For k = aa To 1 Step -1
wa$ = Mid$(Filename, k, 1)
If wa$ = "\" Then
GoTo 1
Else
ee$ = ee$ + wa$
End If
Next k
1
aa = Len(ee$)
rr$ = "": wa$ = "": For k = aa To 1 Step -1
rr = rr$ + Mid$(ee$, k, 1)
Next k

list1.additem rr$

'--------a quì-------------------------


aggiungi un file alla volta





la seconda domanda non l'ho capita.............




link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2...78%2e%61%73%70
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp

[hfgfghfgfg]

La seconda domanda faceva riferimento all'amministratore del forum, perchè vorrei cambiare il mio user name (hfgfghfgfg)!
Ti ringrazio ora funziona, però perchè non posso inserirne di più per volta?

Ciao!

[Mabi]

Se vuoi selezionare più file contemporaneamente devi scegliere la costante apposita del CommonDialog. Quindi per inserire tutti i nomi in lista ti basta un ciclo. Prova così, inserisci sempre il codice nella routine del pulsante.

(La CommonDialog l'ho chiamata CD)

Dim FileName() As String

Dim Car As String * 1
Dim Cont As Long
Dim StringaNomi As String

ReDim FileName(0)
CD.Flags = &H4 + &H200 + &H200000
CD.DefaultExt = "(.exe)"
CD.Filter = "Eseguibili |*.exe|"
CD.FilterIndex = 1
CD.ShowOpen

StringaNomi = CD.FileName
Cont = 0

'Toglie dalla stringa con i nomi il percorso
Do Until Car = " "
  Cont = Cont + 1
  Car = Mid$(CD.FileName, Cont, 1)
Loop
StringaNomi = Mid$(StringaNomi, Cont + 1)

'Preleva i nomi dei file e li inserisce nell'array
Car = "A"
Cont = 0
Do Until StringaNomi = ""
  Do Until Car = " "
    Cont = Cont + 1
    Car = Mid$(StringaNomi, Cont, 1)
  Loop
  Car = "A"
  FileName(UBound(FileName)) = Mid$(StringaNomi, 1, Cont)
  StringaNomi = Mid$(StringaNomi, Cont + 1)
  ReDim Preserve FileName(UBound(FileName) + 1)
Loop

'Aggiunge i nomi in lista
ReDim Preserve FileName(UBound(FileName) - 1)
For Cont = 0 To UBound(FileName)
  List1.AddItem FileName(Cont)
Next Cont

Ciao !

[hfgfghfgfg]

Ok adesso funziona la scelta multipla però i files che visualizzo sono messi alla rinfusa, nel senso che vengo visualizzati tipo:

*****
***** *****
***** ***** *****
***** ***** ***** *****
***** ***** ***** ***** ***** *****
***** ***** ***** ***** ***** *****
***** ***** ***** ***** ***** *****
***** ***** ***** ***** ***** *****
***** ***** ***** ***** *****
e non mi compare la scrollbar, in più non riesco a selezionare i singoli files per poter ottenere un preview.

Sono un rompino e?

[Mabi]

Hai ragione, non avevo azzerato il contatore e poi bisogna aumentare la capacità MaxFileSize perchè filename deve contenere una stringa abbastanza lunga:

Dim FileName() As String

Dim Car As String * 1
Dim Cont As Long
Dim StringaNomi As String

ReDim FileName(0)
CD.Flags = &H4 + &H200 + &H200000
CD.DefaultExt = "(.exe)"
CD.Filter = "Eseguibili |*.exe|"
CD.FilterIndex = 1
CD.MaxFileSize = 10000
CD.ShowOpen

StringaNomi = CD.FileName
Cont = 0

'Toglie dalla stringa con i nomi il percorso
Do Until Car = " "
  Cont = Cont + 1
  Car = Mid$(CD.FileName, Cont, 1)
Loop
StringaNomi = Mid$(StringaNomi, Cont + 1)

'Preleva i nomi dei file e li inserisce nell'array
Car = "A"
Cont = 0
Do Until StringaNomi = ""
  Do Until Car = " "
    Cont = Cont + 1
    Car = Mid$(StringaNomi, Cont, 1)
  Loop
  Car = "A"
  FileName(UBound(FileName)) = Mid$(StringaNomi, 1, Cont - 1)
  StringaNomi = Mid$(StringaNomi, Cont + 1)
  ReDim Preserve FileName(UBound(FileName) + 1)
  Cont = 0
Loop

'Aggiunge i nomi in lista
ReDim Preserve FileName(UBound(FileName) - 1)
For Cont = 0 To UBound(FileName)
  List1.AddItem FileName(Cont)
Next Cont

La scrollbar non ti comparirà perchè il numero di elementi è minore di quelli visibili.
Poi non ho capito

in più non riesco a selezionare i singoli files per poter ottenere un preview.