| Вопрос: Вопрос по коллекциям | Добавлено: 22.11.07 06:44 |
Автор вопроса:  Sergey Gaponov | ICQ: 278513301 |
| У меня вот такая проблема. На форме много текстовых полей и чтобы не перечислять их все в модуле формы я хочу список полей вынести в отдельный модуль и создать из них коллекцию. Но вот незадача - как обратиться к полю зная только его имя в текстовом виде. Коллекция из объектов в модуле при их указании требует нового экземпляра формы типа: Dim AA as new Form1, при этом свойство поля текст из формы невозможно считать, оно остается старым (Text1). Я имею ввиду, что я уже обращаюсь к колекции и перебираю ее чдены. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Viper ICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #1 | Добавлено: 22.11.07 08:59 |
|
Код в студию!
З.Ы. Сдается мне, что ты класс с экземпляром класса где-то путаешь |
||
|
Номер ответа: 2 Автор ответа: Sergey Gaponov ICQ: 278513301 Вопросов: 27 Ответов: 13 |
Профиль | | #2 | Добавлено: 23.11.07 07:52 |
| А где именно? | ||
|
Номер ответа: 3 Автор ответа: ViperICQ: 249094859 Вопросов: 0 Ответов: 310 |
Профиль | | #3 | Добавлено: 23.11.07 09:13 |
| Нды... ты код то покажи, тогда и скажем где именно | ||
|
Номер ответа: 4 Автор ответа: Sergey GaponovICQ: 278513301 Вопросов: 27 Ответов: 13 |
Профиль | | #4 | Добавлено: 24.11.07 06:02 |
|
Module prob
Sub SPCOL(ByRef NWCOLPER As Collection)  im aa As New Form1
NWCOLPER.Add(aa.tt1.Text) NWCOLPER.Add(aa.tt2.Text) End Sub End Module --------------это модуль отдельный если запрашивать эту колекцию, то данные из поля текстового не обновляются. Смысл простой я хочу в отдельном модуле держать список тестовых полей на форме (ибо их много) |
||
|
Номер ответа: 5 Автор ответа:  Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #5 | Добавлено: 24.11.07 06:29 |
|
Dim aa As New Form1
тут ты создаешь экземпляр формы по образу и подобию From1, не хватает только aa.Show() для полного счастья 
For i As Integer = 0 To Me.Controls.Count - 1
If Me.Controls(i).GetType() Is GetType(TextBox) Then myTextBoxList.Add(Me.Controls(i)) End If Next For Each t As TextBox In myTextBoxList t.Text = "текст" Next В твоем случае видимо будет что-то типа этого: Module prob
Sub SPCOL(ByRef NWCOLPER As Collection) Dim aa As From = Form1 NWCOLPER.Add(aa.tt1.Text) NWCOLPER.Add(aa.tt2.Text) End Sub End Module -- Кодообменник Kbyte.Ru - давай меняться! http://kbyte.ru/code |
||
|
Номер ответа: 6 Автор ответа: Sergey GaponovICQ: 278513301 Вопросов: 27 Ответов: 13 |
Профиль | | #6 | Добавлено: 24.11.07 15:59 |
|
Не ясно что такое Dim aa As From = Form1 что за From
Form тоже не работает. Вот этот тонкий момент мне не ясен |
||
|
Номер ответа: 7 Автор ответа: Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #7 | Добавлено: 24.11.07 16:22 |
|
Не ясно что такое Dim aa As From = Form1 что за From
Ну как не ясно, From - англ. "От", часто можно встретить в мыльных заголовках, так вот, в данном коде мы говорим, что переменная aa пишит письмо от имени Form1, дальше это письмо надо запечатать пластилиновой печатью, и отправить в белый дом юнайтидов-штатиус лично жорику, через годик он пришлет тебе готовый код ценной бандеролью
From, Form какая разница, главное что все буквы на месте а догадаться не сложно, мы же тут не MIME-парсер пишем )
VS 2k5 все работает отлично. |
||
Страница: 1 |