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

alex777 · 20.12.2009

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

maf103 · 20.12.2009

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

alex777 · 20.12.2009

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

maf103 · 20.12.2009

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

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

werti · 23.12.2009

При нажатии на 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 · 23.12.2009

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

Код:

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 · 25.12.2009

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

Код:

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