15/01/2020, 02:38
feraz
Merhaba.
Ekte optionbuttonlar var.
Bunların hangisine tıklarsam sadece o iseçilmeli Class ile.
Saygılar.
Class kodlar;
Form kodlar;
Ekte optionbuttonlar var.
Bunların hangisine tıklarsam sadece o iseçilmeli Class ile.
Saygılar.
Class kodlar;
Option Compare Database
Public WithEvents opt As OptionButton
Private Sub opt_Click()
Dim xx As Control
For Each xx In Forms("FormOptionButton")
If TypeOf xx Is OptionButton Then
MsgBox xx.Name
End If
Next
End SubForm kodlar;
Option Compare Database
Dim kontrol() As New ClsOptionButton
Private Sub Form_Load()
Dim cont As Control
Dim say As Integer
For Each cont In Forms(Me.Name)
If TypeName(cont) = "OptionButton" Then
say = say + 1
ReDim Preserve kontrol(1 To say)
Set kontrol(say).opt = cont
End If
Next
End Sub