VBNet - Форум - Событие клик в чекбокс

Вопрос: Событие клик в чекбокс Добавлено: 03.12.08 22:27

Автор вопроса: Aston | ICQ: 214-179-991

Привет всем!
У меня возникла вот какая проблема сделал чекбокс с графическим стилем - тое в виде кнопки. Мне надо чтоб при зажимании открывалась опция а при отживании, закрывалась. Я использовал событие клик и вот прописал:

Private Sub Chkartinka_Click()
If Chkartinka.Value = True Then
Chkartinka.Caption = "Íå èñïîëüçîâàòü ðèñóíîê â òåñòå"
ComKartinka.Visible = False
Else
Chkartinka.Caption = "Èñïîëüçîâàòü ðèñóíîê â òåñòå"
ComKartinka.Visible = True
End Sub
End If

Пробленма состоит в том что он почемуто срабатывает только один раз и я не пойму почему 1 раз кликнул - сработал, потом снова кликаю и ноль эмоция. Подскажите что я сделал не так?)
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Aston ICQ: 214-179-991 Вопросов: 42 Ответов: 272	Профиль \| \| #1	Добавлено: 03.12.08 22:35
	Извините заранее нашел причину даже не думал что буде в этом дело Value = 0 а не False надо указать было Private Sub Chkartinka_Click() If Chkartinka.Value = 0 Then Chkartinka.Caption = "Íå èñïîëüçîâàòü ðèñóíîê â òåñòå" ComKartinka.Visible = False Else Chkartinka.Caption = "Èñïîëüçîâàòü ðèñóíîê â òåñòå" ComKartinka.Visible = True End If End Sub работает Ответить

Номер ответа: 2 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #2	Добавлено: 03.12.08 23:05
	Кинь скриншот, хочу сравнить со своими наработками, может мои красивше и тебе пригодятся. Ответить

Страница: 1 |