Sıralı Kodları Kısaltma

[byteman_2]

Arkadaşlar merhaba
aşağıdaki gibi bir kodu formülleyerek nasıl kısaltabilirim.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If OptionButton1.Value = True Then
TextBox1 = ListBox1.List(ListBox1.ListIndex, 1)
Else
If OptionButton2.Value = True Then
TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
Else
If OptionButton3.Value = True Then
TextBox3 = ListBox1.List(ListBox1.ListIndex, 1)
End If
End If
End If
End Sub


Private Sub OptionButton1_Click()
ListBox1.Visible = True
End Sub

Private Sub OptionButton2_Click()
ListBox1.Visible = True
End Sub

Private Sub OptionButton3_Click()
ListBox1.Visible = True
End Sub

Teşekkürler.

 

[Civan Jack]

"Formülleyerek kısaltmak" ne demek ? :dusun:

 

[byteman_2]

Optionbutton'undan 26 adet var. ve her biri için ayrı kod yazmak yerine daha kısa bir kod yazılamaz mı? diye sormak istemiştim.

teşekkürler