Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Связь Check Box и Text Field / 7 сообщений из 7, страница 1 из 1
28.02.2007, 16:42
    #34361285
chii
chii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Связь Check Box и Text Field
В VB 6 пытаюсь сделать следующее: при загрузке формы Text1.Enabled должно быть False
Как только пользователь отмечает галочку CheckBox1, Text1.Enabled становится TRUE
При снятии галочки поле снова лочится.
Код: plaintext
1.
2.
3.
Private Sub Form_Load()
Text1.Enabled = False
Text1.BackColor = &H80000011
End Sub

И для чекбокса
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Check1_Click()
If Check1.Value = True Then
Text1.BackColor = &H80000005
Text1.Enabled = True
Else: Text1.BackColor = &H80000011
Text1.Enabled = False
End If
End Sub
Но почему-то работает только в 1 одну сторону: поле лочится, а обратно не восстанавливается
Что я не так делаю???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2007, 16:52
    #34361329
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Связь Check Box и Text Field
True не есть 1.
Сравнивайте с Abs(True) или с 1.
If Check1.Value = 1 Then...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2007, 18:23
    #34361614
chii
chii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Связь Check Box и Text Field
Окей, а вот здесь-то что не так?
Компилятор ругается : Else without If
Код: plaintext
1.
2.
If Check1.Value =  1  Then x = OText1.Text
Else: x = Hex(OText1.Text)
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2007, 18:30
    #34361634
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Связь Check Box и Text Field
chii
Код: plaintext
1.
2.
If Check1.Value =  1  Then: x = OText1.Text
Else: x = Hex(OText1.Text)
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2007, 18:32
    #34361640
chii
chii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Связь Check Box и Text Field
Magnus23 chii
Код: plaintext
1.
2.
If Check1.Value =  1  Then: x = OText1.Text
Else: x = Hex(OText1.Text)
End If

Тоже не работает ((( Теперь пишет "Then expected"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2007, 18:48
    #34361679
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Связь Check Box и Text Field
Код: plaintext
If Check1.Value =  1  Then x = OText1.Text Else x = Hex(OText1.Text)
или
Код: plaintext
1.
2.
3.
If Check1.Value =  1  Then
 x = OText1.Text
Else: x = Hex(OText1.Text)
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2007, 19:22
    #34361751
chii
chii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Связь Check Box и Text Field
Код: plaintext
1.
2.
3.
4.
5.
If Check1.Value =  1  Then
 x = OText1.Text
Else 
x = Hex(OText1.Text)
End If
Вот так работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Связь Check Box и Text Field / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 435ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2164417]:
 0ms
get settings:
 5ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 155ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 214ms
total:  435ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]