присвоение переменной типа combobox / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / присвоение переменной типа combobox

4 сообщений из 4, страница 1 из 1

присвоение переменной типа combobox

#38388205

mpkfa

Участник

Сообщения: 82

Рейтинг: 0 / 0

У меня в программе есть 4 комбобокса и над ними выполняются аналогичные действия. Я хотел сделать отдельную процедуру типа

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.

Private Sub check1(CBox As ComboBox)

If CBox.Value > 0 And CBox.Value < 13 Then
   mes = CStr(CBox.Value)

ElseIf CBox.Text = "1 кв" Then
       mes = "1,2,3"
       mes1 = "1 кв"
ElseIf CBox.Text = "2 кв" Then
       mes = "4,5,6"
       mes1 = "2 кв"
ElseIf CBox.Text = "3 кв" Then
       mes = "7,8,9"
       mes1 = "3 кв"
ElseIf CBox.Text = "4 кв" Then
       mes = "10,11,12"
       mes1 = "4 кв"
ElseIf CBox.Text = "1Н" Then
       mes = "1,2,3,4,5,6"
       mes1 = "1H"
ElseIf CBox.Text = "2Н" Then
       mes = "7,8,9,10,11,12"
       mes1 = "2H"
End If

End Sub

И в теле программы вызывать эту процедуру как check1(Combobox2). Однако программа ругается Object required. Подскажите пожалуйста, что тут не правильно?

...

Рейтинг:

0 / 0

05.09.2013, 17:05

| Ответить | Цитировать | Написать

присвоение переменной типа combobox

#38388231

lbppb

Участник

Сообщения: 1 046

Рейтинг: 0 / 0

mpkfa,

А у меня не ругается. Проверьте как вы процедуру вызываете.

...

Рейтинг:

0 / 0

05.09.2013, 17:21

| Ответить | Цитировать | Написать

присвоение переменной типа combobox

#38388238

mpkfa

Участник

Сообщения: 82

Рейтинг: 0 / 0

Опа, похоже ругается когда в скобках. Надо check1 Combobox2 и все работает похоже)))

...

Рейтинг:

0 / 0

05.09.2013, 17:24

| Ответить | Цитировать | Написать

присвоение переменной типа combobox

#38388274

lbppb

Участник

Сообщения: 1 046

Рейтинг: 0 / 0

mpkfaОпа, похоже ругается когда в скобках. Надо check1 Combobox2 и все работает похоже)))

В скобках нужно, когда результат функции присваивается переменной.

...

Рейтинг:

0 / 0

05.09.2013, 17:39

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / присвоение переменной типа combobox

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&fpage=72&tid=2174564]:	0ms
get settings:	10ms
get forum list:	16ms
check forum access:	4ms
check topic access:	4ms
track hit:	28ms
get topic data:	11ms
get forum data:	2ms
get page messages:	45ms
get tp. blocked users:	1ms
others:	318ms

total:	439ms