Class modül ile ilgili

[ikikan]

Sayfa1 de bulunan 10 adet ComboBox a tıklayınca ilgili ComboBox ın sayısını başka modulde olan makro da nasıl kullana bilirim

Örnek

class1:..............................................................................
Public WithEvents CBoxGroup As ComboBox

Private Sub CBoxGroup_Change()
Dim CBG1 As Double
CBG1 = (Replace(CBoxGroup.Name, "ComboBox", ""))
Msgbox "Benim Numaram" & CBG1
End Sub

modül1.........................................................................
Dim CBox() As New Class1

Sub cbx_kontrol()

Call syf_bul
Dim XCount As Integer
XCount = 0

For Each SNesne In syf1.Shapes
If SNesne.Type = msoOLEControlObject Then
If TypeOf SNesne.OLEFormat.Object.Object Is MSForms.ComboBox Then

XCount = XCount + 1

ReDim Preserve CBox(1 To XCount)
Set CBox(XCount).CBoxGroup = SNesne.OLEFormat.Object.Object

End If
End If
Next SNesne
End Sub


modül2...............................................................

sub dddd()
if CBG1 = 2 Then
kodlar..........................................
else
kodlar..........................................
end if
end sub

 

[Zeki Gürsoy]

Bunun en kolay yolu, herhangi bir modulde en üst satırda (Proje düzeyinde geçerli) Public bir değişken tanımlamaktır. Siz Double kullanmışsınız, tipi de Double olsun.

CBoxGroup_Change olayı altında da, bu değişkene değeri atayın.

 

[ikikan]

Bunun en kolay yolu, herhangi bir modulde en üst satırda (Proje düzeyinde geçerli) Public bir değişken tanımlamaktır. Siz Double kullanmışsınız, tipi de Double olsun.

CBoxGroup_Change olayı altında da, bu değişkene değeri atayın.

Zeki Bey Tam olarak CBoxGroup_Change olayında tipi de Double olsun derken nereyi kastediyorsunuz? Ben neyi göremiyorum...

 

[Zeki Gürsoy]

Dim CBG1 As Double olarak kullanmışsınız. Demek istediğim değişken tipi burası.
Neden 64 bit ondalık sayı tipi kullandığınız ayrı bir konu.