userformda veriye tıklayınca kayıtlı resmi göstermek

[yanginci34]

Arkadaşlar günaydın iyi haftalar eğer yine hatalıysam lütfen uyarın diğer konularımı silmeye çalıştım ama beceremedim isteğime gelince ben bir çalışmada takıldım üstadların yazmış olduğu kodlar ile kendime form hazırlamaya çalıştım lakin userformda imagenin içine kaydettiğim resmin yolunu textbox ile dosyama kaydetmek istiyorum ve daha sonra listbox ta veriye çift tıkladığımda yüklemiş olduğum resmi tekrar görmek istiyorum. ayrıca düzelt ve sil butonları ekledim bunları da aktif hale getirilmesi mümkün mü acaba ? Şimdiden teşekkür ederim.
Ekli dosyayı görüntüle örnek.xlsm

 

[yanginci34]

konu günceldir.

 

[yanginci34]

Selam arkadaşlar yardım eden yokmu?

 

[Ömer BARAN]

Merhaba.

Fazlasını bilemiyorum ama CommandButton1_Click() kod blokunda; aşağıdaki mavi satırı
kırmızı satırların arasına eklerseniz, eklenen resimin yolu (adıyla birlikte) TextBox'a aktarılmış oluyor.
.

[COLOR="red"][FONT="Arial Narrow"]Image1.Picture = LoadPicture(p)[/COLOR]
[COLOR="Blue"]    TextBox2 = p[/COLOR]
[COLOR="Red"]Next p[/FONT][/COLOR]

 

[Emir Hüseyin Çoban]

. . .

Düzelt-Sil işlemi hariç işlemler için userformdaki kodları şunlar ile değiştirin.

Private Sub CommandButton1_Click()
    Dim Pencere As FileDialog
    Set Pencere = Application.FileDialog(msoFileDialogFilePicker)
    With Pencere
        .Filters.Clear
        .Filters.Add "Resim Dosyalari", "*.bmp; *.jpg; *.jpeg; *.wmf", 1
        If .Show = -1 Then
            For Each P In .SelectedItems
                Image1.Picture = LoadPicture(P)
                TextBox2.Text = P
            Next P
        Else
        End If
    End With
End Sub


Private Sub CommandButton2_Click()
    Set ANA = Sheets("Sayfa1")
    sıra = ANA.Range("A65500").End(3).Row
    ANA.Cells(sıra + 1, "A") = TextBox3.Text
    ANA.Cells(sıra + 1, "B") = TextBox1.Text
    ANA.Cells(sıra + 1, "C") = TextBox2.Value
    
    MsgBox "Kayıt İşleminiz Tamamlanmıştır.", , "Tebrikler."
    Sheets("Sayfa1").Select
    Unload UserForm1
    UserForm1.Show
    '    UserForm_Initialize '''' duruma göre aktif edin ''''
End Sub




Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Image1.Picture = LoadPicture(ListBox1.Column(2))
End Sub

Private Sub UserForm_Initialize()
    TextBox3.Locked = True
    TextBox3.Value = Range("f1")
    ListBox1.ColumnCount = 3
    ListBox1.ColumnWidths = "20;75;60"
    ListBox1.RowSource = "'" & Sayfa1.Name & "'!A2:C" & Sayfa1.Cells(Rows.Count, 2).End(xlUp).Row
    
End Sub

. . .

 

[yanginci34]

Çok teşekkür ederim geç dönüş yaptığım için ayrıca özür dilerim.