app.path til en fil

app.path & "\billede.jpg"

strPath = app.path & "\billede.jpg" ' ;)

eller sådan hvis du vil ha det i en PictureBox

Picture1.Picture = LoadPicture(App.Path & "\billede.jpg")

App.Path retuner samme mappe som din exe-fil ligger i.. så du skal lige Make navn.exe

jeg prøver at skrive sådan her : Picture1.Picture = App.Path & "\menu.gif"
Men så melder den fejl på & tegnet. hvad er det jeg gøre forkert?

okay... nu virker det... tak for hjælpen..

smider du et svar så vi kan få lukket her???

prøv sådan:

strPath = app.path & "\billede.jpg"
Picture1.Picture = LoadPicture(strPath

svar

skulle være sådan:

strPath = app.path & "\billede.jpg"
Picture1.Picture = LoadPicture(strPath)

har lige et hurtigt spørgsmål hvis du ikk er smuttet.. kan det svare sig at oprette et spørgsmål om hvordan man gemmer ændringer? altså så som hvis du har et billede som skal vises når du startet dit program og inde i dit program skulle du kunne ændre billede så næste gang du så starter op er det det nye billede som bliver vist. kan det svare sig eller er det alt for bøvlet???

Du kan klare det sådan:


Option Explicit

Private strPath As String

Private Sub cmdReset_Click()
  Call DeleteSetting("appname", "section", "key")
End Sub

Private Sub cmdSave_Click()
  strPath = App.Path & "\nyt_billede.jpg"
  Call SaveSetting("appname", "section", "key", strPath)
End Sub

Private Sub Form_Load()
Dim strDefault As String
 
  strDefault = App.Path & "\billede.jpg"
  strPath = GetSetting("appname", "section", "key", strDefault)
 
  Picture1.Picture = LoadPicture(strPath)
End Sub

det bliver så gemt her:
HKEY_CURRENT_USER\Software\VB and VBA Program Settings\appname\section\key

eller sådan hvis du vil slette det hele..

Call DeleteSetting("appname")

det virker ikk som det helst gerne skulle... jeg får godt nok ikk nogen fejl men den vil bare ikk gøre det...

sådan her ser min code ud nu:

Option Explicit

Private strPath As String

Private Sub Command1_Click()
  strPath = App.Path & "\menu.gif"
  Call SaveSetting("appname", "section", "key", strPath)

End Sub

Private Sub Form_Load()
Dim strDefault As String
 
  strDefault = App.Path & "\menu.gif"
  strPath = GetSetting("appname", "section", "key", strDefault)
 
  Picture1.Picture = LoadPicture(strPath)

End Sub

Private Sub Option1_Click()
Picture1.Picture = LoadPicture(App.Path & "\menu.gif")

End Sub

Private Sub Option2_Click()
Picture1.Picture = LoadPicture(App.Path & "\menu2.gif")
End Sub

ha ha nej.. hvordan vil du også få det til at virke når du ikke henter den nye sti :D

Option Explicit

Private strPath As String

Private Sub Form_Load()
Dim strDefault As String
 
  strDefault = App.Path & "\menu.gif"
  strPath = GetSetting("appname", "section", "key", strDefault)
 
  Picture1.Picture = LoadPicture(strPath)

End Sub

Private Sub Option1_Click()
  strPath = App.Path & "\menu.gif"
  Call SaveSetting("appname", "section", "key", strPath)
  Picture1.Picture = LoadPicture(strPath)
End Sub

Private Sub Option2_Click()
  strPath = App.Path & "\menu2.gif"
  Call SaveSetting("appname", "section", "key", strPath)
  Picture1.Picture = LoadPicture(strPath)
End Sub

hehe jaaa det kan du så have ret i.. :D men nu virker det da... takker...

bare ok..