Форум 3DNews
Вернуться   Форум 3DNews > Программирование > Программирование

Ответ Создать новую тему
Опции темы Опции просмотра
Непрочитано 10.01.2007, 18:00   [включить плавающее окно]   #1
Кобяков Дмитрий Львович
Мужской Интересующийся
Автор темы
 
Аватар для Кобяков Дмитрий Львович
 
Регистрация: 29.02.2004
Адрес: Москва
Question MS VBA (Excel 2003 SP2): передача параметров

Как передать ссылку на TextBox параметром в функцию?

Есть функция в модуле кода UserForm7 :

Private Function ParseDs(Vs%, VNs%(), tb As TextBox, ByVal VsDd%, tbID$) As Boolean

Вызываю её в том же модуле:
Dim nV1() As Integer, Vs1%, iDt%
' ***
' ***
If Not ParseDs(Vs1%, nV1(), TextBox1, iDt%, "ле") Then Exit Sub


TextBox1 - строка редактирования в этой самой UserForm7; функция вызывается несколько раз для нескольких TextBox'ов этой формы.
---------
При попытке выполнить возникает ошибка при вызове функции: Type mismatch. Пытался ставить ByVal - не помогает. Не пойму, что не совпадает-то?
__________________
Д.Л.Кобяков

Последний раз редактировалось Кобяков Дмитрий Львович; 10.01.2007 в 19:10.
Кобяков Дмитрий Львович вне форума  
Ответить с цитированием
Непрочитано 10.01.2007, 19:03   [включить плавающее окно]   #2
Benedict
Интересующийся
 
Регистрация: 19.06.2004
Попробуйте полностью квалифицировать имя объектного типа: tb As MsForms.TextBox
__________________
А доктор всё не едет...
Benedict вне форума  
Ответить с цитированием
Непрочитано 10.01.2007, 19:14   [включить плавающее окно]   #3
Кобяков Дмитрий Львович
Мужской Интересующийся
Автор темы
 
Аватар для Кобяков Дмитрий Львович
 
Регистрация: 29.02.2004
Адрес: Москва
Benedict, спасибо. Сработало!
__________________
Д.Л.Кобяков
Кобяков Дмитрий Львович вне форума  
Ответить с цитированием
Ответ Создать новую тему

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 17:54. Часовой пояс GMT +3.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd. Перевод: zCarot
Copyright © 2000-2017 3DNews. All Rights Reserved.
Администрация 3DNews требует соблюдения на форуме правил и законов РФ
Серверы размещены в Hostkey