[VB5] Collegamento percorso a DriveListBox e DirListBox

[tony.hood]

Salve a Tutti
Ho questo Problema in questo codice:
è un percorso fisso.
io vorrei come collegarlo ad un drivelistbox e ad un dirlistbox
Ma ho provato in vari modi ma non ci riesco qualcuno sa darmi un consiglio?
il codice è il seguente Basta copiarlo in un Bloc note e poi salvarlo frmPreview.frm e aprirlo
con Visual.

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MsComCtl.ocx"
Begin VB.Form frmPreview 
   Caption         =   "Form1"
   ClientHeight    =   6510
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   8595
   LinkTopic       =   "Form1"
   ScaleHeight     =   6510
   ScaleWidth      =   8595
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture1 
      Height          =   825
      Left            =   3435
      ScaleHeight     =   765
      ScaleWidth      =   945
      TabIndex        =   2
      Top             =   180
      Visible         =   0   'False
      Width           =   1005
   End
   Begin MSComctlLib.ImageList ilsAnteprime 
      Left            =   2205
      Top             =   180
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   393216
   End
   Begin MSComctlLib.ListView lvwElenco 
      Height          =   5160
      Left            =   210
      TabIndex        =   1
      Top             =   1065
      Width           =   8115
      _ExtentX        =   14314
      _ExtentY        =   9102
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   420
      Left            =   195
      TabIndex        =   0
      Top             =   315
      Width           =   1515
   End
End
Attribute VB_Name = "frmPreview"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FSO As Object


Private Sub Command1_Click()
Dim FLD As Object
Dim IMG As Object
Dim tmpImg As StdPicture
       
    Set FLD = FSO.GetFolder("E:\Grafica\Images\Immagini")
    
    lvwElenco.ColumnHeaders.Add , , "Anteprima", 3000
    
    lvwElenco.View = lvwReport
    
    On Error Resume Next
    W = 128 * Screen.TwipsPerPixelX
    H = 96 * Screen.TwipsPerPixelY
    Picture1.Width = W
    Picture1.Height = H

    ilsAnteprime.ListImages.Add , , Picture1.Image
    Set lvwElenco.SmallIcons = ilsAnteprime
    
For Each IMG In FLD.Files
    Set tmpImg = LoadPicture(IMG.Path)
    Picture1.BorderStyle = 0
    Picture1.AutoRedraw = True
    Picture1.PaintPicture tmpImg, 0, 0, W, H
    ilsAnteprime.ListImages.Add , , Picture1.Image
    lvwElenco.ListItems.Add , , IMG.Name, , ilsAnteprime.ListImages.Count
    DoEvents
Next

End Sub

Private Sub Form_Load()
Set FSO = CreateObject("Scripting.FileSystemObject")
End Sub

Grazie Anticipatamente
il Vostro tony.hood

[oregon]

Scusa ma non si capisce cosa tu voglia fare. Anzi, non si comprende quale sia il problema ... Dovresti spiegarlo un po' piu' dettagliatamente ...

Anche in relazione alle prove che hai fatto e cosa non e' andato ...

[tony.hood]

ecco cosa vorrei fare
Dovrei collegaro aquesta dir list box eal drivelistbox
per non farlo più essere un percorso fisso in modo da guardare dentro tutte le cartelle del mio pc
ma non so cosa fare Ho rpovato come mi diceva Boolean nella discussione precedente ma o il sbaglio in qualcosa o non funziona
quello ce mi dicefa di fare Boolean è questo



Citazione:

devi lasciare tutto *esattamente* come tel'ho scritto io nel Form che ti ho dato, tranne questa riga:

Set FLD = FSO.GetFolder("C:\prova di Visual basic")

nella quale devi specificare il percorso che ti viene fornito dalla DirListBox.

ricapitolando, devi inserire sul form un DirListBox e un DriveListBox, chiamarli come ti pare e passare il percorso concatenato che essi ti restituiscono alla riga sopra:

Set FLD = FSO.GetFolder(Drive1.Drive & "\" & DirListBox1.Path)

Tutto qui.
.

ma non va come faccio?

[oregon]

Ma "non va" cosa vuol dire con precisione? Hai un errore? Il programma si comporta in un modo che non vuoi? In quale modo?

Utilizza solamente questa linea

Set FLD = FSO.GetFolder(DirListBox1.Path)

[tony.hood]

Praticamente va in debug
errore 76
il concatenamento non è esatto forse è il mio visual che è la versione 5
o sono io ma non trovo la souzione
a me bisogna che si apra questa lista dopo che schiacci il command
ma il percorso non deve essere fisso allora mi bisongnano il concatenamento.
puoi aiutarmi?

puoi fare tu il conatencamento e spedirmi il codice?

[tony.hood]

Funziona :Set FLD = FSO.GetFolder(DirListBox1.Path)

Ma se voglio aprire "E:\"?

Scusa per Prima nma non avevo visto il codice.

[oregon]

Se vuoi aprire E:\ lo selezioni nella lista dei drive ... Non hai detto che hai un oggetto Drivelistbox sul form ? Basta che al cambiare del drive aggiorni la lista delle cartelle con

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

(ovviamente i nomi dei controlli sono esempi)

[tony.hood]

cosa voglio dire.Che le immagini se sono orizzontali allora vanno bene, se sono verticali allora vengono allargate e quindi l'immagni si sdeforma .
Sapresti consigliarmi come evitare questo problema?


tony.Hood

[oregon]

Scusa tony ma cosi' non si dialoga in un forum ...

Stiamo ancora affrontando l'argomento Dirlistbox di cui non dici nulla e tiri fuori un altro problema di cui non dai nessun dettaglio ...

Come si fa a continuare il discorso?

Fra l'altro questo mi sembra un problema diverso e dovevi aprire un altro thread ...

[tony.hood]

la soluzione del dirlistbox e del Drivelistbox
Va alla Grande funziona perfettamente .

Grazie ,Mille .....

Html.it è il mio primo forum dove sono iscritto ho letto le regole ho scritto pochi messaggi
poco alla volta e imparerò a stare con voi e a programmare...

Un lontano mio parente mi diceva: la testardagine non si distingue in 2
1a aiuta a capire l'altra a non ragionare.... (poco alla vota e la determinazione porterà il suo frutto).


Grazie per L'attenzione

( allora apro una nuova discussione)