| Вопрос: Глючит | Добавлено: 21.07.05 20:31 |
Автор вопроса:  dimailer
|
|
Вот код:
--- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim t2c As String t2c = TextBox4.Text If "0" > t2c > "255" Then Button2.Enabled = False Else Button2.Enabled = True End If End Sub --- Написано, что если текст в TextBox4 будет меньше 0 или больше 255, то кнопка(Button2)становиться "прозрачной". Верно? --- Я пишу в TextBox4 2 или 25, кнопка (Button2)становиться "прозрачной". --- Помогите!!! --- |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #1 | Добавлено: 21.07.05 20:44 |
|
Мда...
Включи флажок Option Strict, узнаешь о своем коде очень много нового, гарантирую. If CInt(TextBox4.Text) < 0 AndAlso CInt(TextBox4.Text) > 255 Then ...
|
||
|
Номер ответа: 2 Автор ответа: dimailer Вопросов: 9 Ответов: 27 |
Профиль | | #2 | Добавлено: 21.07.05 20:51 |
|
Кстати Brand до меня недоперло как весь текст в RichTextBox1 перевести в ASCII???
--- Что делать если в TextBox4.Text написаны не числа, а буквы? Как устранить эту проблему(для меня)? --- Помоги |
||
|
Номер ответа: 3 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #3 | Добавлено: 21.07.05 21:10 |
|
Проверка на то, что в строке находится число выполняется так:
If IsNumeric(TextBox4.Text) Then
|
||
|
Номер ответа: 4 Автор ответа: dimailerВопросов: 9 Ответов: 27 |
Профиль | | #4 | Добавлено: 21.07.05 21:41 |
|
Спасибо Brand!
--- Вышло!!! |
||
|
Номер ответа: 5 Автор ответа: dimailerВопросов: 9 Ответов: 27 |
Профиль | | #5 | Добавлено: 21.07.05 23:13 |
|
Brand нужна помощь!!!
--- Я написал так: Dim t2c As String
t2c = TextBox4.Text If IsNumeric(t2c) Then If CInt(t2c) < 0 AndAlso CInt(t2c) > 255 Then Button2.Enabled = False Else Button2.Enabled = True End If Else Button2.Enabled = False TextBox3.Text = "? справка" End If --- Теперь я спокоен есле введут буквы, но у меня глюк, хотя написано, что если текст будет больше 255, кнопка будет прозрачной, а вот не выходит; так и с отрицательными числами!!! --- За ранее спасибо, пошел спать... |
||
|
Номер ответа: 6 Автор ответа:  someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #6 | Добавлено: 22.07.05 10:56 |
|
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim t2c As String t2c = TextBox4.Text If "0" > t2c > "255" Then Button2.Enabled = False Else Button2.Enabled = True End If End Sub интересный код!!! только у меня не работает 
|
||
|
Номер ответа: 7 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #7 | Добавлено: 22.07.05 12:08 |
|
Народ, ну есть же форум по .NET
|
||
|
Номер ответа: 8 Автор ответа:  User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #8 | Добавлено: 22.07.05 12:09 |
| 2LOL, сорри - не доглядел. Перенёс. | ||
|
Номер ответа: 9 Автор ответа: dimailerВопросов: 9 Ответов: 27 |
Профиль | | #9 | Добавлено: 22.07.05 21:25 |
|
Люди помогите!!!
--- Empro вот другой код, только у меня не выходит. когда я пишу 256 или 1000 у меня становиться кнопка "нажимаемой", хотя там написано, если текст больше 255, то кнопка "прозрачна", но глюк. Так и с отриц. числами! Вот код: --- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 im t2c As String
t2c = TextBox4.Text If IsNumeric(t2c) Then If CInt(t2c) < 0 AndAlso CInt(t2c) > 255 Then Button2.Enabled = False Else Button2.Enabled = True End If Else Button2.Enabled = False TextBox3.Text = "? справка" End If End Sub --- Спасибо |
||
Страница: 1 |