Çözüldü OPTİON BUTTON RESMİNİ İMAGEYE ÇAĞIR CAPTİONUNU LABELE YAZ

[zulfuernek]

userform üzerindeki option butonların hangisine tıklarsa o optionbuttona ait picture resminin image nesnesinde görünmesi

optionbutton captionu nu da labelde gösterme

örnek dosya ektedir.

 

[zulfuernek]

konu başlığı ve soru güncellendi arkadaşlar.

 

[zulfuernek]

fikri olan varmı arkadaşlar

 

[Ömer BARAN]

Merhaba.
Ekli belgede bir şeyler yaptım. Deneyiniz.

 

[zulfuernek]

@Ömer BARAN ömer hocam mükemmel olmuş tam iştediğim gibi.. ellerinize emeklerinize zihninize sağlık.


şimdi bir sorum daha olucak sırayla gitmek daha mantıklı ve anlaşılır olur diye teker teker sorup çözüm yolu bulmaya çalışıyorum.

userform 2 de eklediğim veriyi içe aktar butonuna tıklayınca label 1 deki değeri userform üzerindeki label 1 e label 2 deki veriyide userfom 3 üzerindeki label 2 ye aktararak userform 1 e geçiş yapması.

ekli dosya

 

[Ömer BARAN]

Userform2'ye ait kod bölümüne ekleyin.

Private Sub CommandButton4_Click()
    UserForm1.Label1 = Label1.Caption
    UserForm1.Label2 = Label2.Caption
        UserForm2.Hide
        UserForm1.Show
End Sub

 

[zulfuernek]

@Ömer BARAN hocam mükemmellerle devam ediyoruz gene . bu da tamam verdiğiniz kodlara image nesnesinide ekledim resim seçilip veriyi aktar diyince resmide beraberinde aktarıyor. buraya kadar 10 üzerinden 100 )

şimdi userfom1 de combobox 1 de isim seçtiğim zaman karşısındaki verileri alarak label1 ve label 2 ye yzacak ve userform 2 de o isimlerideki ıoption buttonların resimlerini göstermesi.

 

[Ömer BARAN]

UserForm1'in kod bölümüne yapıştırın.
RESİM GETİR DÜĞMESİne gerek olmadığını düşünüyorum.

Private Sub UserForm_Initialize()
    ComboBox1.RowSource = "Sayfa1!A1:A" & Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row
End Sub

Private Sub ComboBox1_Change()
If ComboBox1 <> "" Then
    Label1.Caption = Sheets("Sayfa1").Cells(ComboBox1.ListIndex + 1, 2)
    Label2.Caption = Sheets("Sayfa1").Cells(ComboBox1.ListIndex + 1, 3)
    ono = (ComboBox1.ListIndex) * 2 + 3
    Image1.Picture = UserForm2.Controls("OptionButton" & ono).Picture
    Image2.Picture = UserForm2.Controls("OptionButton" & ono + 1).Picture
End If
End Sub

 

[zulfuernek]

@Ömer BARAN ömer hocam diyecek söz bulamıyorum. çok çok çok teşekkür ederim işte buydu. mükemmel ötesi oldu.
şimdi son sorum bunuda çözersek büyük bir sancıya çare olacağız.

userform 2 deki optionbuttonlara sağ click komutuyla option button picturesini sistemden herhangi bir dosyadan seçip kaydetmek veya değiştirmek.

 

[Ömer BARAN]

Resim çağırma işlemleriyle ilgili tecrübem malesef yeterli değil.
Denerim, sonuç alabilirsem cevap yazarım, cevap yazamazsam;
forumda, başka başarılı örnekler de vardır mutlaka ancak
özellikle Sayın halit3'ün çok sayıda örnek belgesi ve verdiği kodlar var onlardan yararlanırsınız.

Tavsiyem nesneye sağ tıklama eylemi yerine,
userforma ekleyeceğiniz (ya da yeni bir userform üzerinden de olabilir) OptionButtonların adlarının olduğu yeni bir Combobox'tan seçim yapıp, bununla birlikte çalışacak bir CommandButton kullanarak da GÖZAT ekranı üzerinden resim seçme ve bu resimi nesnenin resmi olarak kullanmayı tercih etmeniz yönünde olacak.
.

 

[zulfuernek]

@Ömer BARAN hocam bende bakıp bu konuda buraya ekleme yapıp size bilgi vereceğim bu akşam. sanırım bende ona benzer bir örnek vardı bu çalışmaya entegre etmeye çalışacağım kodlamayı. emeklerinize sağlık

combobox fikri daha mantıklı. zaten combobox isimleri excelde kayıtlı olucak o isme denk gelen imagelerin resminin değişmesi yönünde iki adet combobox açılabilir. üstelik kod yoğunluğda olmaz böylelikle.

 

[Ömer BARAN]

Takıldığınız noktada buraya yazarsınız.

 

[zulfuernek]

@Ömer BARAN ömer hocam userformu bayağı toparladık fakat resim ekle butonumuz iş görmez hale geldi acaba bi yerde sorunmu var.

comboboxtan emisyon seçerseniz açılan frameden resim seçip resim ekle dediğim zaman resmi ve ilgili yazıyı yerlerine almıyor