Userfom a Resim ekleme

[ridvan2111]

Selam Arkadaşlar

Image1.Picture = LoadPicture("")
On Error GoTo hata
Image1.Picture = LoadPicture("C:\Users\ridvan\Desktop\desen resimler\[COLOR="Blue"]aplik bant[/COLOR]\" & TextBox2.Text & ".jpg")
Exit Sub
hata:
Image1.Picture = LoadPicture("")

Bu kod ile uf. deki picture nestnesine resim alıyorum.
benim istediğim "aplik bant" alt klasörü ismini textbox5 ten alsın.

 

[halit3]

Bunu deneyin

Image1.Picture = LoadPicture("C:\Users\ridvan\Desktop\desen resimler\" & Textbox5.Text & "\" & TextBox2.Text & ".jpg")

 

[ridvan2111]

Bunu deneyin

Image1.Picture = LoadPicture("C:\Users\ridvan\Desktop\desen resimler\" & Textbox5.Text & "\" & TextBox2.Text & ".jpg")

Teşekkürler Halit bey

 

[ridvan2111]

Bunu deneyin

Image1.Picture = LoadPicture("C:\Users\ridvan\Desktop\desen resimler\" & Textbox5.Text & "\" & TextBox2.Text & ".jpg")

Halit bey
Resim görüntülendiğinde üzerine tıklayarak resmi nasıl açarım?
Windows resim görüntüleyici ile

 

[halit3]

Bunu denermisiniz.

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dosya = "C:\Users\ridvan\Desktop\desen resimler\" & Textbox5.Text & "\" & TextBox2.Text & ".jpg"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

 

[ridvan2111]

Bunu denermisiniz.

Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dosya = "C:\Users\ridvan\Desktop\desen resimler\" & Textbox5.Text & "\" & TextBox2.Text & ".jpg"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

Çok teşekkür ederim.

 

[halit3]

Çok teşekkür ederim.

İyi çalışmalar