Çözüldü resim adını değiştirme

[zulfuernek]

image nesnesine çağırdığım resim adını textbox ile nasıl değiştiririz?

 

[zulfuernek]

hocalarım yokmu bir çözüm

 

[PLİNT]

Aşağıdaki gibi deneyin

Private Sub CommandButton1_Click()
Dim ad As String, yad As String
Dim uzantı(), yol As String, a As Long, b
If TextBox2 = "" Then Exit Sub
Set b = CreateObject("scripting.filesystemobject")
yol = Label8.Caption
uzantı = Array(".bmp", ".gif", ".jpg", ".jpeg")
For a = 0 To UBound(uzantı)
If b.FileExists(yol & Label1.Caption & uzantı(a)) = True Then
Name yol & Label1.Caption & uzantı(a) As yol & TextBox2.Text & uzantı(a)
End If
Next
Label1.Caption = TextBox2.Text
TextBox2 = ""
End Sub


Private Sub CommandButton4_Click()
Dim ad As String, yad As String
Dim uzantı(), yol As String, a As Long, b
If TextBox3 = "" Then Exit Sub
Set b = CreateObject("scripting.filesystemobject")
yol = Label9.Caption
uzantı = Array(".bmp", ".gif", ".jpg", ".jpeg")
For a = 0 To UBound(uzantı)
If b.FileExists(yol & Label2.Caption & uzantı(a)) = True Then
Name yol & Label2.Caption & uzantı(a) As yol & TextBox3.Text & uzantı(a)
End If
Next
Label2.Caption = TextBox3.Text
TextBox3 = ""
End Sub

 

[zulfuernek]

cok tesekkur ederim @PLİNT hocam