SALVE A TUTTI
Ho un problema ho creato un programmino che carica immagini ma non è quello che volevo. io vorrei creare un programmino che mi dia le immagni di una data dentro il cd,in una galleria come devo fare ovvero un caricatore che guardi dentro sto cd e mi visualizza le immagini in una galleria.Ho creato questo se mi consigliate come fare?
Sub FORM_LOAD()
dirCartelle.Path = CurDir
dvrDRIVE.Drive = dirCartelle.Path
filListaFile.Path = dirCartelle.Path
filListaFile.Pattern = "*.BMP;*.GIF;*.JPG;*.PNG"
If filListaFile.ListCount > 0 Then
filListaFile.ListIndex = 0
End If
End Sub
Private Sub dirCartelle_Change()
filListaFile.Path = dirCartelle.Path
filListaFile.Pattern = "*.BMP;*.GIF;*.JPG;*.PNG"
End Sub
Private Sub dirCartelle_LostFocus()
dirCartelle.Path = dirCartelle.List(dirCartelle.ListIndex)
End Sub
Private Sub drvDrive_Change()
dirCartelle.Path = drvDrive.Drive
End Sub
Private Sub filListaFile_Click()
imgFigura.Picture = LoadPicture(filListaFile.Path + "\" _
+ filListaFile.List(filListaFile.ListIndex))
End Sub
Private Sub cmdfine_click()
End
End Sub
End Sub
Private Sub imgFigura_Click()
End Sub
mi consilgiate come poter fare=?
TONY.HOOD![]()