Как правельно создать в Vb 2008?

[alex777]

If Len(TextBox1.Text) = 3 Then
поставь вместо "3" глобальную переменную и меняй хоть кнопками хоть чем

 

[maf103]

мне надо сделать это через RadioButton ,чтоб им я мог решать какая
длинна будет у TextBox
3 или 4!

 

[alex777]

поставь вместо "3" глобальную переменную и меняй через RadioButton

 

[maf103]

поясни как не понимаю тебя можешь код показать!

буду очень благодарен

 

[werti]

При нажатии на RadioButton допустим переменная Kod = 4

dim kod as integer
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Len(TextBox1.Text) = kod Then
TextBox2.Focus()
End If
End Sub

 

[alex777]

Как же это трудно: сделать двойной клик по радиобутону..

Public Class Form1
Public POR
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then POR = 3
If RadioButton2.Checked = True Then POR = 4
Text = POR
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton1.Checked = True Then POR = 3
If RadioButton2.Checked = True Then POR = 4
Text = POR
End Sub


End Class

 

[werti]

Можно попроще

Public Class Form1
Public POR as integer 
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged
If RadioButton1.Checked = True Then POR = 3
If RadioButton2.Checked = True Then POR = 4
Text = POR
End Sub

End Class