Чё-то не пойму с InputBox в VB
Я тут сочинял типа прогу, чтоб чувачкок, вводя дату рождения с помощью окна InputBox, узнавал день недели, в который ему исполнится 20 лет. Ну я тпа всё прописал в TextBox:
[SIZE="3"]Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox8.Text = Weekday(DateAdd("yyyy", 20, InputBox("Когда родилсо???")))
End Sub [/SIZE]
Однако злобливый Бэйсик после однократного ввода опять выкидывает InputBox "Когда родилсо???".
Если отвечаешь также, то процедура завершается, а если иначе, то всё заного! Может он прикалываццо????Вот как намутить, чтоб всё с первого раза катило?
[SIZE="3"]Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox8.Text = Weekday(DateAdd("yyyy", 20, InputBox("Когда родилсо???")))
End Sub [/SIZE]
Однако злобливый Бэйсик после однократного ввода опять выкидывает InputBox "Когда родилсо???".
Если отвечаешь также, то процедура завершается, а если иначе, то всё заного! Может он прикалываццо????Вот как намутить, чтоб всё с первого раза катило?
о! точняк! До меня допёрло! Я ж типа дважды сторку меняю, вон он дважды и вылезает! ..бедная моя голова((((