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

• #21679 Delila_1 veterán alfa20 #21675

  Új Válasz 2014-05-20 19:51:05 #21679

  Ú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

  

  Delila_1

  veterán

  válasz alfa20 #21675 üzenetére

  A Page2 azonos a beillesztett képpel, csak az objektumok neve más.

  

  Private Sub CommandButton1_Click()
  If OptionButton1_1 Then
  OB1_1
  ElseIf OptionButton1_2 Then OB1_2
  Else: MsgBox "Mi lesz?"
  End If
  End Sub
  
  Private Sub CommandButton2_Click()
  If OptionButton2_1 Then
  OB2_1
  ElseIf OptionButton2_2 Then OB2_2
  Else: MsgBox "Mi lesz?"
  End If
  End Sub
  
  Sub OB1_1()
  MsgBox "OB1_1"
  End Sub
  
  Sub OB1_2()
  MsgBox "OB1_2"
  End Sub
  
  Sub OB2_1()
  MsgBox "OB2_1"
  End Sub
  
  Sub OB2_2()
  MsgBox "OB2_2"
  End Sub

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