Как сослаться на объект из модуля?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Nikolka
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 174
Зарегистрирован: 01.01.2004 (Чт) 2:06

Как сослаться на объект из модуля?

Сообщение Nikolka » 04.01.2005 (Вт) 17:21

Знаю тупой вопрос, как я вообще до этого докатился? :D

Вообщем нужно как-то сослаться на объект, например что бы не писать из модуля:

frmMain.Text1.Text а можно было написать так

Text1.Text

Пробовал по разному:

Private Text1 As frmMain.Text1 - не помогает (на Global уровне)

Dim Text1 As frmMain.Text1 - не помогает (на уровне функции)

Public Sub mmm(ByVal Text1)
и после вызываю из формы module1.mmm Text1 - не помогает..

Как же сослаться?

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 04.01.2005 (Вт) 17:24

"А может, забыться и уснуть?" почти (c) Гамлет

В модуле можно завести public text1 as textbox. И устанавливать указывать на нужный textbox перед Длительной Работой :)

А вообще, моно
with form1.text1
msgbox .text
msgbox .left
msgbox .top
end with
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 04.01.2005 (Вт) 17:24

Можно так:
Код: Выделить всё
With frm_Main
  .Text1.Text = ...
End With

Можно так:
Код: Выделить всё
Dim V As VB.TextBox
Set V = Form1.Text1
MsgBox V.Text
' ...
Set V = Nothing

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 04.01.2005 (Вт) 18:13

GSerg писал(а):"А может, забыться и уснуть?" почти (c) Гамлет

fwiw, (c) Лермонтов, 1841:
Уж не жду от жизни ничего я,
И не жаль мне прошлого ничуть;
Я ищу свободы и покоя!
Я б хотел забыться и заснуть!
Изображение

Nikolka
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 174
Зарегистрирован: 01.01.2004 (Чт) 2:06

Сообщение Nikolka » 04.01.2005 (Вт) 18:14

Ну пасиба, друзья-поэты. Пасиба за помощь! 8)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 11

    TopList