Ja, tubber skriver det rigtige. Det forudsætter dog, at du angiver fuld sti eller på anden måde lader programmet vide hvor billedet befinder sig, app.path måske? eller stien indlæst fra en INI-fil eller fra Registry.
Bruger du sql så vile jeg gøre det anderledes (ved ikke om man kan med den data control)
Picture.LoadPicture(rs!sti) Text1.text = rs!sti
Grunden til jeg vil gøre det sådan er at du så kommer ud over det problem med at man kan skrive i en textbox og får man så aktiveret den så kan du få fejl hvis det indtastede ikke findes.......
Man kan dog gardere sig med at lave en FSO der lige chekker om filen eksistere..... eksempel:
Din metode med at hente data i textfelt og tage det der fra:
dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists(Text1.Text) = True Then Picture1.LoadPicture(Text1.Text) else: MsgBox ("Filen eksistere ikke!") End If
Med min metode:
dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists(rs!sti) = True Then Picture1.LoadPicture(rs!sti) Text1.Text = rs!sti else: MsgBox ("Filen eksistere ikke!") End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.