Frame1 üzerinde seçilen optionbuttonun captionuna göre belirtilen yoldaki resmi yükle

[hsayar]

Frame1 üzerinde seçilen optionbuttonun captionuna göre belirtilen yoldaki resmi yükle makrosu nasıl yazılır?

ben deneme amacıyla command buton ile istediğimi başardım ama bunun otomatik olmasını istiyorum:

USERFORM

Private Sub CommandButton1_Click()
    Dim CtrlOpt As Control
    Dim optSecim As String
[COLOR=red]'*\ Seçilen Option butonunun başlığını tespit ettik[/COLOR] 
    For Each CtrlOpt In Me.Frame1.Controls
        If (TypeName(CtrlOpt) = "OptionButton" And CtrlOpt.Value = True) Then
            optSecim = CtrlOpt.Caption
'GoTo ResumeSub:
        Else
        'MyMsg = "Secili yok...."
        End If
    Next
'ResumeSub:
[COLOR=red]'*\ve image1 e yükledik.[/COLOR]
frmRes = klsrAddIns & AppPthSept & "AddInsResim" & AppPthSept & optSecim & ".JPG"  'icon yolu
Image1.Picture = LoadPicture(frmRes)
End Sub

Private Sub UserForm_Activate()
Call KlsrDgr
'Dim dsyIco$
'dsyIco = klsrAddIns & AppPthSept & "AddInsResim" & AppPthSept & "BitTorrentFolder1.ico"  'icon yolu
'Call UserformlardaEkOzellik(Me, , , True, True, False, True, False, False, True, True, dsyIco)
End Sub

MODULE

Sub KlsrDgr()
    AppPthSept = Application.PathSeparator
    klsrBlglrm = CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
    klsrAddIns = Environ("appdata") & AppPthSept & "Microsoft" & AppPthSept & "AddIns"
End Sub

Ancak ben Frame1 üzerinde seçilen optionbutton değiştiğinde İmage1 üzerindeki resminde değişmesini istiyorum mümkün mü?

 

[hsayar]

Dosyayı ekledim

Option Butonu seçtiğimde ilgili resim gelsin,
Command butona basınca Seçili OptionButtonun başlığına bağlı olarak
mümkünse Baslik_cagir makrosu gelsin

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Class Module ile hazırlanmıştır.

 

[Haluk]

Alternatif:

CommanButton için yazdığınız kodları Frame1_MouseMove olayına yazarsanız, Class Module kullanmadan da amacınıza ulaşırsınız.

OptionButton seçip, fareyi biraz hareket ettirin, yeter...

.

 

[hsayar]

Hocam Emeğinize Sağlık çok güzel olmuş bana 4 adet optbutonlu lazımdı ekledim hallettim de,
Sadece Frame1 içindeki option butonlarlar sınırlamak mümkün mü?
yani formun geneli üzerine başka obtb koyunca veya frame2 ye koyunca onlar dahil olmasın, ayrıca IptionButton1,2,3 gb gitmek zorunda galiab ayzdığınız prosodürde
isim bağımsız yapmak mümkün mü?
Şu an için işimi görüyor, sınırlamaları kırmanın yolları varmı diye soruyorum müsait bir zamanınızda da cevap verseniz olur acelesi yok.
Saygılarımla....

 

[hsayar]

Alternatif:

CommanButton için yazdığınız kodları Frame1_MouseMove olayına yazarsanız, Class Module kullanmadan da amacınıza ulaşırsınız.

OptionButton seçip, fareyi biraz hareket ettirin, yeter...

.

Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call KlsrDgr
    Dim CtrlOpt As Control, frmRes$
    Dim optSecim As String
    For Each CtrlOpt In Me.Frame1.Controls
        If (TypeName(CtrlOpt) = "OptionButton" And CtrlOpt.Value = True) Then
            optSecim = CtrlOpt.Caption
            frmRes = klsrAddIns & AppPthSept & "AddInsResim" & AppPthSept & optSecim & ".JPG"  'icon yolu
                If frmRes <> "" Then Image2.Picture = LoadPicture(frmRes)
        End If
    Next
End Sub

Hocam bu hale getirmemi sitediğiniz anladım. ve ayarladım mouse kullanırken sorun yok ancak ben genelde mouse kullanam uf ler üzerinde ok tuşları ve enterla her işimi hallederim... bu şekilde classız çöüzm öneriniz var mı?

 

[Korhan Ayhan]

Selamlar,

Zaten aşağıdaki kodda sınırlama eklenmiş oluyor. Ardışık olmayan kontroller içinde çözüm üretilebilir tabiki. Frame1 içine aldığınız kontrol sayısı kadar döngü yapılarak çözüme ulaşılabilir.

Kırmızı renkli değer ile sınırlama sağlanmış oluyor.

Private Sub UserForm_Initialize()
    Dim X As Byte
    ReDim Preserve OPTB([COLOR=red]3[/COLOR])
    For X = 1 To [COLOR=red]3[/COLOR]
    Set OPTB(X).OPTB = Controls("OptionButton" & X)
    Next
End Sub