ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не могу найти событие для ComboBox
17 сообщений из 17, страница 1 из 1
Не могу найти событие для ComboBox
    #32523652
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
Мне нужно найти событие...для ComboBox
Событие такое: при загрузке формы в ComboBox уже стоит значение из списка List этого ComboBox по умолчанию и когда пользователь раскроет выпадающий список и выберит другое значение, вот здесь нужно перехватить...этот момент
Я не могу найти ничего подобного.
На Change почему-то вообще при таких действиях не попадает.
Подскажите...
...
Рейтинг: 0 / 0
19.05.2004, 12:21
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523676
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Click

?
...
Рейтинг: 0 / 0
19.05.2004, 12:28
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523715
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
при загрузке формы (если повесить обработчик на Click) курсор сразу попадает на это событие
...
Рейтинг: 0 / 0
19.05.2004, 12:39
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523729
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
потому как при загрузке формы ему присваивается значение из списка
соответственно нужно чтоб при загрузке ему так и присваивались значения, а уже при изменении пользователем я могла перехватить и выдать предупреждение
...
Рейтинг: 0 / 0
19.05.2004, 12:44
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523731
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
авторпри загрузке формы (если повесить обработчик на Click) курсор сразу попадает на это событие

Не при загрузке формы, а при изменении значения в ComboBox
А его вы изменяете при загрузке формы


Но это можно обойти

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim blnMy as Boolean

Sub Form_Load()
blnMy = false
...
blnMy = true
End Sub

Sub ComboBox1_Click()
If blnMy Then
' Что ту надо делать?
...
End If
End Sub

?
...
Рейтинг: 0 / 0
19.05.2004, 12:44
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523752
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
СПАСИБО ОГРОМНОЕ!!!
:)
...
Рейтинг: 0 / 0
19.05.2004, 12:52
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523789
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
а если внутри этого события после изменения пользователем значения выдается сообщение, в кот если он нажимает Cancel значение возвращается старое, чтобы обойти опять этот Click внутри самого Click ?



Sub ComboBox1_Click()
If blnMy Then
msgbox и тп
combobox.listindex=0
End If
End Sub
...
Рейтинг: 0 / 0
19.05.2004, 13:04
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523798
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
текст неполный - т е для вопроса я не стала писать весь код где предлагается пользователю нажатите кнопки Cancel
...
Рейтинг: 0 / 0
19.05.2004, 13:06
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523862
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
И в чем проблема?

Я же вам написал переменную, которая так сказать, управляет срабатыванием или не срабатыванием события

Вот ее и пользуйте везде, где надо событие игнорировать
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub ComboBox1_Click()
If blnMy Then
msgbox и тп

blnMy = false
combobox.listindex= 0 
blnMy = true

End If
End Sub
...
Рейтинг: 0 / 0
19.05.2004, 13:27
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523879
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
спасибо большое, я уже сделала - хорошая штука
...
Рейтинг: 0 / 0
19.05.2004, 13:31
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523883
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
у меня просто сначало не пошло (я про Click внутри Click), а оказалось не туда вставила по ошибки
...
Рейтинг: 0 / 0
19.05.2004, 13:33
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523904
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
Только маленькая поправочка:
автор
Sub ComboBox1_Click()
If blnMy Then
msgbox и тп
blnMy = false
combobox.listindex=0
blnMy = true
End If
End Sub
На строку blnMy = true, которая идет после combobox.listindex=0 курсор не попадает, а попадает сразу Sub ComboBox1_Click(). Поэтому я сделала так:

Код: plaintext
1.
2.
3.
4.
5.
6.
Sub ComboBox1_Click()
If blnMy Then
msgbox и тп
blnMy = true
combobox.listindex= 0 
End If
End Sub
...
Рейтинг: 0 / 0
19.05.2004, 13:42
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523929
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
авторНа строку blnMy = true, которая идет после combobox.listindex=0 курсор не попадает, а попадает сразу Sub ComboBox1_Click(). Поэтому я сделала так:

Попадает - просто надо понимать, что у вас опять сработало событие, но т.к. blnMy = false оно не зайдет внутрь if'a, а по завершении обработчика вернется в функции вызвавшею данное событие, т.е. на строку после строки combobox.listindex=0

А ваш вариант не правильный - бред какой-то :(
если вы попали в if, blnMy уже true, и зачем его еще раз делать true?
...
Рейтинг: 0 / 0
19.05.2004, 13:53
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523932
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Это я к чему

переменная blnMy не отменяет обработку события, а просто выполняет или нет код написанный в событии, но вызываться оно все равно будет :)
...
Рейтинг: 0 / 0
19.05.2004, 13:55
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32523997
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
я проверила Ваш вариант -
и могу сказать, что не попадает на эту строку
я неправильно написала то, как сделала я.
Вообщем мне проще просто кинуть мой кусок текста:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub ShablonChet_Click()
Dim OKCancel
If blnmy1 Then
    blnmy1 = False
    Exit Sub
Else
    blnmy1 = False
    If blnmy Then
        If MainDataEnvironment.rscmdShabloni.Fields("Schet") <>  0  Then
            OKCancel = MsgBox("Уверены, что хотите изменить?", vbOKCancel, "ВНИМАНИЕ")
            If OKCancel = vbCancel Then
                blnmy1 = True
                ShablonChet.ListIndex = MainDataEnvironment.rscmdShabloni.Fields("Schet")
                
            End If
        End If
    End If
End If
End Sub
...
Рейтинг: 0 / 0
19.05.2004, 14:22
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32524012
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Жуть

Но если работает - то флаг вам в руки
...
Рейтинг: 0 / 0
19.05.2004, 14:27
| Ответить | Цитировать | Написать  
Не могу найти событие для ComboBox
    #32524030
irinka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
irinka
Участник
работает
...
Рейтинг: 0 / 0
19.05.2004, 14:34
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не могу найти событие для ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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