Új hozzászólás Aktív témák

• #54199 Pakliman tag

  Új Válasz 2025-03-07 14:05:25 #54199

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Pakliman

  tag

  Sziasztok!

  Segítséget kérnék VBA problémával kapcsolatban, amivel eddig egyáltalán nem foglalkoztam (Classmodul), mert nem volt rá szükségem. Most viszont másképp nem lehet megoldani a dolgot (legalábbis "egyszerűen" nem)...
  Egy Formon dinamikusan hozok létre változó mennyiségű OptionButton-t.
  Hogyan tudom "elindítani" programból ezeknek a Click eseményét anélkül, hogy az egérrel vagy billentyűvel ténylegesen kattintanék?

  Ami megvan:
  clsOPB:

  Option Explicit

Public WithEvents OptionButton As MSForms.OptionButton

Private Sub OptionButton_Click()
  UserForm1.Label1.Caption = OptionButton.Parent.Name & ": " & OptionButton.Name
End Sub

  UserForm1:
  Private opbArray() As New clsOPB

Private Sub CommandButton1_Click()
Dim ctl_OpB As MSForms.OptionButton
Dim i As Long
    ReDim opbArray(1 To 3)
    For i = 1 To 3
  
      Set ctl_OpB = Me.Controls.Add("Forms.OptionButton.1", "opbXYZ" & i, False)
  
      With ctl_OpB
          .Left = 100
          .Top = 150 + (i * 20)
          .Width = 100
          .Caption = "opb_" & CStr(i)
          .Visible = True
          
          If i = 1 Then
            .Value = True
'            .Click        'HIBA!! Object doesn't support this property or method
          End If

      End With
  
'      ctl_OpB.Click       'HIBA!! Object doesn't support this property or method
      Set opbArray(i).OptionButton = ctl_OpB
'      opbArray(1).Click   'HIBA!! Method or data member not found
'      OptionButton_Click  'HIBA!! Sub or function not defined
      Set ctl_OpB = Nothing
    Next i
End Sub

Private Sub CommandButton2_Click()
  Me.Controls("opbXYZ2").Enabled = Not Me.Controls("opbXYZ2").Enabled
  
End Sub

  Már próbáltam azt is, hogy a Change eseménybe írtam be a szükséges dolgokat, de hiába változtatom meg KÓDBÓL a Value értékét, a Change esemény nem aktiválódik

  Biztosan van megoldás, de eddig nem találtam meg
  Tudna valaki segíteni?

Új hozzászólás Aktív témák