Hur? :q
kan inte ändra egenskapen för bilden
23 svar · 451 visningar · startad av ampy · sida 2 av 2
Frågan, av ampy
Har denna kod: imgbord1.Picture "upptaget.gif" Felmeddelandet jag får är: Method or data member not found. Varför kan jag inte ändra egenskapen för bilden?
Läs frågan i sin helhet →
Hmm... jag svarade på något liknande för ett tag sedan, men som jag aldrig fick veta om det fungerade eller inte... du kan ju spana lite på det och se om du kan använda det på något vis.
Absolut enklast är att använda App.Path, som returnerar exe-filens sökväg. Alltså om "upptaget.gif" ligger i samma mapp som exe-filen, skriv så här:
imgbord1(1).Picture = LoadPicture(App.Path & "\upptaget.gif")
Baalzamon skrev:
Absolut enklast är att använda App.Path, som returnerar exe-filens sökväg. Alltså om "upptaget.gif" ligger i samma mapp som exe-filen, skriv så här:
imgbord1(1).Picture = LoadPicture(App.Path & "\upptaget.gif")
Detta fungerar inte om programmet ligger i roten på någon enhet som t.ex. hårddisken eller en diskett. Då måste
imgbord1(1).Picture = LoadPicture(App.Path & "upptaget.gif")
användas eftersom backslashen inkluderas i App.Path. Då får man använda
If Right$(App.Path, 1) = "\" Then
imgbord1(1).Picture = LoadPicture(App.Path & "upptaget.gif")
Else
imgbord1(1).Picture = LoadPicture(App.Path & "\upptaget.gif")
End If
'Eller om man inte bryr sig så mycket om prestanda
imgbord1(1).Picture = LoadPicture(App.Path & IIf(Right$(App.Path, 1) = "\", "upptaget.gif", "\upptaget.gif"))
Går även att använda
imgbord1(1).Picture = LoadPicture("upptaget.gif")
om det ligger i samma mapp. Detta fungerar dock endast om man startar VB från samma mapp eller kompillerar och startar med exe-filen med bilden i samma mapp. Det lättaste sättet att göra det på är att antingen göra en genväg till VB och ta egenskaper på den och skriva i sökvägen i rutan Starta i men det blir lite jobbigt för alla projekt man har. Istället kan man gå in i mappen där man har projektfilen och starta genom den (dubbelklicka på den i klarspråk). :)