Consulta y Ayuda
Publicado por asdoasd (1 intervención) el 17/05/2012 20:54:51
Necesito ayuda con un codigo.
Necesito que en ese codigo, en lo posible me expliquen como hacer para que en lugar de tener que elegir la carpeta del archivo, que la carpeta que se necesite venga dentro del codigo, es decir, que se saque la lista.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Option Explicit
'------------------------------------------------
' Carga los gráficos del FileList en el ListView
'------------------------------------------------
Sub Cargar_Imagen( _ ListView As ListView, _ imageList As imageList, _ progressbar As progressbar)On Local Error GoTo errSub
Dim imagen As Integer, Clave As StringSet ListView.Icons = Nothing
With imageList
'Elimina las imágenes del ImageList
.ListImages.Clear
'Elimina los Items del Listview
ListView.ListItems.Clear
End With
'Según el optionbutton seleccionado, asigna el ancho y alto _
que tendrá la imagen cargada en en el Listview
With imageList
.ImageHeight = 285
.ImageWidth = 436
End With
With progressbar
.Value = 0
.Max = File1.ListCount
End With
' Recorre el FileListBox con las imagenes para agregar
For imagen = 0 To File1.ListCount - 1
'clave ( nombre del gráfico) para asignar al ImageList y el ListView
Clave = File1.List(imagen)
'Agrega el gráfico al ImageListleyendo del disco con LaodPicture
imageList.ListImages.Add , Clave, _
LoadPicture(Dir1.Path & "/" & Clave)
' Si el ImageList no está inicializdo ..lo enlaza al Listview
If ListView.Icons Is Nothing ThenSet ListView.Icons = imageList
End If
'Agrega la imagen
ListView.ListItems.Add , , Clave, Clave
'Visualiza el progreso
progressbar.Value = imagen + 1
DoEvents
Next
progressbar.Value = 0
Exit Sub
'Error
errSub:MsgBox " Número de Error:" & Err.Number & vbNewLine _
& Err.Description, vbCritical
End Sub
Private Sub Dir1_Change()
File1 = Dir1If File1.ListCount = 0 Then
Exit Sub
Else
' Carga el Listview si es que hay imagenes
Call Cargar_Imagen(ListView1, ImageList1, ProgressBar1)
End If
End Sub
Private Sub Form_Load()
' Filtro de extensiones para los archivos del FileList
File1.Pattern = "*.bmp;*.jpg;*.gif;*.ico;*.jpeg;*.wmf;*.cur"
With ListView1
' Tipo de ordenación de los íconos
ListView1.Arrange = lvwAutoTop
End With
End Sub
Necesito que en ese codigo, en lo posible me expliquen como hacer para que en lugar de tener que elegir la carpeta del archivo, que la carpeta que se necesite venga dentro del codigo, es decir, que se saque la lista.
Valora esta pregunta
0