Visual Basic - Consulta y Ayuda

Life is soft - evento anual de software empresarial
   
Vista:

Consulta y Ayuda

Publicado por asdoasd (1 intervención) el 17/05/2012 20:54:51
Necesito ayuda con un codigo.
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 String
 
    Set 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 Then
            Set 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 = Dir1
 
    If 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder