Tussen mappen switchen in vb6

Status
Niet open voor verdere reacties.

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
ik heb 1 map REMEDIES met afbeeldingen
Ik heb 2 images
Met dit
Code:
Private Sub command1_click()
Dim Slash As String
If Right(App.Path, 1) <> "\" Then Slash = "\"
CommonDialog1.InitDir = App.Path & Slash & "REMEDIES"
CommonDialog1.FileName = App.Path & Slash & "REMEDIES" & "\*.*"
CommonDialog1.Filter = "Graphics|*.bmp;*.jpg;*.jpeg"
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
kan ik 1 afbeelding in image1 laden. Ok.

Als ik nu een andere afbeelding wil laden maar die bevind zich in c:\ ik doe zo

Code:
Private Sub command2_click()
CommonDialog1.InitDir = "c:\"
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Graphics|*.bmp;*.jpg;*.jpeg"
CommonDialog1.ShowOpen
Image2.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
maar als ik dat doe word ik niet naar c:\ gebracht maar altijd in REMEDIES.

hoe moet ik de code veranderen (onder command2) om naar c:\te gaan?
En dan weer naar REMEDIES met command1 e dan nog eens naar c:\ enz.?
Dus om switchen tussen mappen?
dank u
 
Laatst bewerkt:
Ik kan het hier niet testen, maar ik zou het zo doen:
Code:
Private Sub command1_click()
    With CommonDialog1
        .Filename = ""
        .InitDir = App.Path & "\REMEDIES"
        .Filter = "Graphics|*.bmp;*.jpg;*.jpeg"
        .ShowOpen
    End With
    Image1.Picture = LoadPicture(CommonDialog1.Filename)
End Sub

Private Sub command2_click()
    With CommonDialog1
        .Filename = ""
        .InitDir = "C:\"
        .Filter = "Graphics|*.bmp;*.jpg;*.jpeg"
        .ShowOpen
    End With
    Image2.Picture = LoadPicture(CommonDialog1.Filename)
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan