MultiPage-CheckBox

Class Module İşlemleri

MultiPage-CheckBox

İleti#1)  Murat OSMA » 10 Kas 2011 10:37

ClassModule adını "EvnCheckBox" olarak değiştirin, ardından boş bir form üzerine 1 adet MultiPage ekleyip, kodları deneyebilirsiniz.

ClassModule kodları;
Kod: Tümünü seç
Public WithEvents CheckBox As MSForms.CheckBox
Public Sayfa As String
Public MPindex As Integer
Public Index As Integer

Sub CheckBox_Change()
    msg = "MsgBox  " & Me.Index & vbNewLine & vbNewLine
    msg = msg & Me.Sayfa & " " & vbNewLine & vbNewLine
    msg = msg & "Durum:  " & Me.CheckBox.Value
    MsgBox msg, vbInformation, "ExcelVBA.Net"
End Sub

Module kodları;
Kod: Tümünü seç
Sub ExcelVBA()
    UserForm1.Show
End Sub

UserForm kodları;
Kod: Tümünü seç
Dim CheckBox As EvnCheckBox, coll As Collection

Private Sub UserForm_Initialize()
    Set coll = New Collection
    For m = 0 To Me.MultiPage1.Pages.Count - 1
    mc = Me.MultiPage1(m).Caption
    For i = 1 To 7
    Set CheckBox = New EvnCheckBox
    Set CheckBox.CheckBox = Me.MultiPage1(m).Controls.Add("forms.CheckBox.1")
    With CheckBox
    With .CheckBox
    .AutoSize = True: .Left = 30: .Top = 20 + i * 20: .WordWrap = False
    .Caption = "MsgBox  " & i & " - " & mc
    End With
    .MPindex = m: .Index = i: .Sayfa = mc
    End With
    coll.Add CheckBox
    Next i
    Next m
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14344
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Forum Class Module

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe