Avatar billede dj-hupi Nybegynder
21. juni 2004 - 14:15 Der er 13 kommentarer og
1 løsning

Load Billedesti fra textbox

Jeg har prøvet lidt af hver nu og kan ikke få til det at virke..

hvad er der galt i dette:

Private Sub Picture1_load()
Picture1.picture = text1.text
Picture1.autosize
End sub

Har os prøve Via en timer:
Private Sub Timer2_Timer()
Picture1 Load("C:\billede.jpg")
End Sub
Avatar billede tubber Juniormester
21. juni 2004 - 15:52 #1
Picture.LoadPicture(Text1.Text)

Det skulle kunne gøre det :)
Avatar billede joern Nybegynder
21. juni 2004 - 20:06 #2
Hej.

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.

M.v.h.  Jørn
Avatar billede dj-hupi Nybegynder
21. juni 2004 - 21:22 #3
Den skulle hente den fra en Access db det var derfor :) også der over i en textbox og så hentes derfra
Avatar billede tubber Juniormester
21. juni 2004 - 21:52 #4
Bruger du sql eller data controllen ?

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

/Tubber
Avatar billede dj-hupi Nybegynder
22. juni 2004 - 05:34 #5
Hej
Jeg bruger ikke sql jeg bruger MS Access... Det jeg henter i den "celle" er jo kun stien til billedet ... Så burde ikke være noget problem.

Men jeg ved ikke hvordan det vil se ud nu når det er Access, iforhold til det du har lavet til SQL.
Avatar billede dj-hupi Nybegynder
22. juni 2004 - 08:25 #6
Det virker ikke hvis jeg laver en knap til at skulle hente billedet med :/

Private Sub Command2_Click()
Picture1.LoadPicture (Text12.Text)
End Sub
Avatar billede tubber Juniormester
22. juni 2004 - 12:13 #7
Det jeg mener er om du henter det ud af din access database med sql sætning.....

Det andet er fordi den skal se sådan her ud:
Picture1.Picture = LoadPicture(Text1.Text)

Sorry
Avatar billede dj-hupi Nybegynder
22. juni 2004 - 12:38 #8
Arrrh Prøver
Avatar billede dj-hupi Nybegynder
22. juni 2004 - 12:45 #9
Nu virker det men billede passer sig ikke ind i pictureboxen er det svært at få de størrere billeder til at tilpasse sig ? ...
Avatar billede tubber Juniormester
22. juni 2004 - 12:54 #10
Der er en der hedder autosize som default står til false tror det er den du skal ha fat i, 2 sec og jeg prøver lige
Avatar billede dj-hupi Nybegynder
22. juni 2004 - 12:55 #11
Jaa men så gør den billedet størrer :D Hehe lige det modsatte ... :D
Avatar billede tubber Juniormester
22. juni 2004 - 12:59 #12
Nej det var det ikke den sætter boxen til at passe til billedet....
Ved desværrer ikke hvordan man får billedet tilpasset...
Avatar billede dj-hupi Nybegynder
22. juni 2004 - 12:59 #13
Oki Tubber du har gjort din del :D
SVAR TAK :D
Avatar billede tubber Juniormester
22. juni 2004 - 16:45 #14
Kommer her :)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester