Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Перебор состояний ChekBox'a Добавлено: 14.11.02 14:52  

Автор вопроса:  Sergey

Вчера наступил на грабли, пытаясь программно перебрать 3 состояния CheckBox'a. Идея заключается вот в чем: есть форма, на ней CheckBox, значение Value которого = 0 - UnChecket. Пользователь щелкает, появляется галка, еще раз щелкает. В обычных условиях галка уберется, а мне надо, чтобы он посерел. Пытался сделать следующий код:

Private Sub Check1_Click()
    Static iCounter As Integer
   
    iCounter = iCounter + 1
    If iCounter = 3 Then iCounter = 0
    Check1.Value = iCounter
   
End Sub

Получаю на экран следующие сообщение: Run-Time Error 28: Out of Stack Space. Где собака порылась?

Ответить

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

Номер ответа: 1
Автор ответа:
 boevik



Хранитель чата

ICQ: 137392264 

Вопросов: 8
Ответов: 557
  Web-сайт: www.hypertech.ru
 Профиль | | #1 		Добавлено: 14.11.02 16:48

Private Sub Check1_Click()
    Static iCounter As Integer
    Static bFreeze as Boolean

    if bFreeze Then Exit Sub

    bFreeze = True
    iCounter = iCounter + 1
    If iCounter = 3 Then iCounter = 0
    Check1.Value = iCounter
    bFreeze = False

End Sub

Ответить

Номер ответа: 2
Автор ответа:
 ГАТ



Вопросов: 2
Ответов: 117
  Web-сайт: www.mail.ru
 Профиль | | #2 		Добавлено: 14.11.02 18:01

Попробуй так:

Private Sub Check1_Click()
  If Me.Check1.Value = 0 Then
    Me.Check1.Value = Me.Check1.Value + 2
  End If
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам