Springen naar inhoud


- - - - -
VB6

Een Default Map Open



  • Log in a.u.b. om te beantwoorden
Er zijn 7 reacties in dit onderwerp

#1 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 14 januari 2016 - 10:19

Ik heb een klein, probleem di niet kan oplossen

Als ik op dit button klick dan wordt de algemeen C:\ map geopend, en dat moet ook zo.

Code:
Private Sub Command1_Click()
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "Graphics|*.bmp;*.jpg;*.jpeg"
CommonDialog1.ShowOpen
Image5.Picture = LoadPicture(CommonDialog1.FileName)
End Sub


als ik nu naar een ander map ga , bv c:\xxxx e een afb laadt , e vervolgens opnieuw op de command button druk,
dan wordt niet meteen de "algemeen' c:\ geopend maar wel de laatst map waar ik geweest ben (c:\xxxx).
Hoe kan ik een default  dir maken?
dank u
ps. ik bedoel  hier, voor een default map, gewoon altijd naar c:\  met een druk op de button.

#2 Damic

Damic

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 637 berichten
    Laatst bezocht 17 mei 2018 17:40
  • LocatieMechelen (BE)

Geplaatst op 15 januari 2016 - 20:30

Windows onthoud per programma waar je bent geweest voor de folder dialoog. Die InitDir is de initiële directory of de directory als je de eerste keer de folder dialoog gebruikt. Je zult wat moeten zoeken welke methode de juiste is

#3 Jenny

Jenny

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 558 berichten
    Laatst bezocht 02 apr 2017 22:13

Geplaatst op 15 januari 2016 - 22:09

CommonDialog1.InitDir = "C:\"
CommonDialog1.FileName = ""

#4 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 15 januari 2016 - 22:48

Bedankt Jenny. Geen van de twee werkt zoals ik het bedoelde.
Ik zal een andere oplossing zoeken.
Toch bedankt.

#5 Jenny

Jenny

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 558 berichten
    Laatst bezocht 02 apr 2017 22:13

Geplaatst op 17 januari 2016 - 12:53

dat is eigenaardig, ik kan zo veel als ik wil op command1 drukken,plaatjes ophalen wat ik maar wil
en telkens als ik op command1 druk begint het terug in C:\
bent u zeker dat u de code in post 1 aangepast hebt met mijn suggestie in post 3 ?????
(betwijfel ik)

#6 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 17 januari 2016 - 14:09

Hier is de volledig code onder de command button
(ik heb kopieren/plakken  gedaan)
Code:
Private Sub Command1_Click()

CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "Graphics|*.bmp;*.jpg;*.jpeg"
CommonDialog1.ShowOpen

Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

als ik de eerste keer op het button druk ga ik wel  naar C:
als ik na het drukken naar een ander map ga en iets laadt en  dan (na het laden)  
weer druk op button dan wordt ik gebracht naar de laatste geopend map en niet meer naar c:\

#7 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 17 januari 2016 - 14:18

Ja, Jenny je hebt gelijk.
Ik had enkel
Code:
CommonDialog1.InitDir = "C:\"
geplaats en niet alle twee regels

zo moest ik het doen
Code:
[color=#282828][font=helvetica, arial, sans-serif]CommonDialog1.InitDir = "C:\"[/font][/color]
[color=#282828][font=helvetica, arial, sans-serif]CommonDialog1.FileName = "" [/font][/color]
Mijn fout was dat ik dacht dat ik enkel één van de twee moest gebruiken

Nogmaals bedankt


Nu werkt het wel

Sorry
houthalen

#8 houthalen

houthalen

    Senior Developer

  • Leden
  • PipPipPip
  • 157 berichten
    Laatst bezocht 01 apr 2017 08:58

Geplaatst op 17 januari 2016 - 14:21

Ja, Jenny je hebt gelijk.
Opgelost
Ik had enkel

Code:
CommonDialog1.InitDir = "C:\"
geplaatst



Maar ik moest dus alle twee regels plaatsen
CommonDialog1.InitDir = "C:\"
CommonDialog1.FileName = ""

Dus zo werkt het wel


Bedankt en sorry !
Mijn fout was dat ik dacht dat ik enkel één van de twee moest gebruiken

Nogmaals bedankt
houthalen





Ook met taq VB6 voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[VB6] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)