Skift billede i PictureBox

CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)

jo, det er jeg med på men det viser jo ikke billedet i PictureBoxen !!

jeg har noget der ser sådan her ud:
Private Sub Command3_Click()
   
    CommonDialog1.ShowOpen
    Picture1.Picture = LoadPicture(CommonDialog.FileName)
   
End Sub

Private Sub Picture1_Click()
   
End Sub

du kan gøre det sådan her med en image1 og en Command1 og en commondialog

Private Command1_Click()
Dim Whatfile As String
CommonDialog1.Filter = "All Files (*.*)|*.*|JPG Files (*.jpg)|*.jpg|GIF Files (*.gif)|*.gif|BMP Files (*.bmp)|*.bmp"
CommonDialog1.ShowOpen
Whatfile = CommonDialog1.FileName
Image1.Picture = LoadPicture(Whatfile)
Me.Width = Image1.Width + 2000
Me.Height = Image1.Height + 500
Image1.Move 1000, 0
End Sub
mvh HC

sådan
Private Sub Command1_Click()
Dim Whatfile As String
CommonDialog1.Filter = "All Files (*.*)|*.*|JPG Files (*.jpg)|*.jpg|GIF Files (*.gif)|*.gif|BMP Files (*.bmp)|*.bmp"
CommonDialog1.ShowOpen
Whatfile = CommonDialog1.FileName
Picture1.Picture = LoadPicture(Whatfile)

End Sub

og vis du vil bestemme hvordan og størelse mm
Me.Width = Image1.Width + 2000
Me.Height = Image1.Height + 500
Image1.Move 1000, 0

Jo, det jeg skrev virker perfekt...

Loukas>> Der er stavefejl i din kode...
   
CommonDialog1.ShowOpen ' her bruger du commondialog1
Picture1.Picture = LoadPicture(CommonDialog.FileName)' her er der intet 1 tal

Det kan du undgå ved at skrive
option explicit
som den allerførste linie i din kode...

- Mikker

Husk lige at sætte

Autoredraw til True
og evt. AutoSize til True

på din picturebox...

- Mikker

loukas: Din kode er helt rigtig, der mangler bare at rette den stavefejl mikker nævner. mcgoat tilføjer bare flere smarte ting til din kode :o)

Et rigtigt godt tip:
Under Tools -> Options hakker du "Require variable Declaration" af  - så vi du ikke kunne komme til at lave sådanne (stave)fejl igen, da VB så vil fortælle dig, at commondialog ikke er en kendt variabel - og dermed opdager du stavefejlen :o)

Martin>> Hvori ligger forskellen fra option explicit?

- Mikker

Tak til alle for hjælpen !!

Det var så lidt, det er vel derfor vi er samlet her
Paradise of the NERDS :o)

- Mikker

mikker: Forskellen er blot, at ved at afkrydse "Require variable Declaration" vil ALLE variable - også lokale variable indenfor en Sub, i et andet modul osv. - skulle Dim'mes, ellers brokker VB sig - herved kan man ikke få lov at stave et variabelnavn forkert med alle de problemer det giver ... :o)

Hmmm... Lyder interessant
Selv har jeg dog altid fundet Option Explicit tilstrækkelig.
Så lærte jeg noget nyt. :o)

- Mikker