satriano17
Gebruiker
- Lid geworden
- 30 sep 2012
- Berichten
- 331
ik heb 1 map REMEDIES met afbeeldingen
Ik heb 2 images
Met dit
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
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
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
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
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: