![]() |
|
Модераторы: Akina |
![]()
|
|
| DimkraS |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 126 Регистрация: 22.5.2006 Репутация: нет Всего: 3 |
Моя программа состоит из нескольких форм. После работы с первой формой некоторые данные сохраняются в переменные, и программа переходит для работы на другую форму, но там эти переменные уже пусты. Как мне вытащить получившиеся данные из первой формы во вторую?
--------------------
|
|||
|
||||
| boevik |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1452 Регистрация: 31.5.2004 Где: Израиль Репутация: 12 Всего: 35 |
Общие данные\переменные лучше сохранять в модуле.
Тогда нет зависимости от поведения формы (загружена, выгружена и т.д.) -------------------- Никогда не говори никогда |
|||
|
||||
| Voldemar2004 |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1650 Регистрация: 25.12.2004 Репутация: 7 Всего: 23 |
Используй модуль - в нем и храни значения переменных. Объяви их как Public или Static - как тебе нужно в программе.
Добавлено @ 21:51 boevik меня опередил. -------------------- i_i (';') (V) ![]() |
|||
|
||||
| DimkraS |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 126 Регистрация: 22.5.2006 Репутация: нет Всего: 3 |
Чё то неполучается, а пример можно?
--------------------
|
|||
|
||||
| boevik |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1452 Регистрация: 31.5.2004 Где: Израиль Репутация: 12 Всего: 35 |
DimkraS, выкладывай свой пример, как ты пробовал решить проблему.
-------------------- Никогда не говори никогда |
|||
|
||||
| DimkraS |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 126 Регистрация: 22.5.2006 Репутация: нет Всего: 3 |
Сразу говорю, я в программировании новичок..
Первая форма: Private Sub Command1_Click() Call Vinosl Unload Form2 Form4.Show vbModal End Sub Модуль: Dim vinoslivost As Byte Public Sub Vinosl() Dim kub(6) As Byte Dim kub2(6) As Byte kub(1) = 1 kub(2) = 2 kub(3) = 3 kub(4) = 4 kub(5) = 5 kub(6) = 6 kub2(1) = 1 kub2(2) = 2 kub2(3) = 3 kub2(4) = 4 kub2(5) = 5 kub2(6) = 6 Randomize kubik = (kub(Int(Rnd * 6 + 1))) + 6 kubik2 = (kub2(Int(Rnd * 6 + 1))) + 6 vinoslivost = kubik + kubik2 End Sub Вторая форма: Private Sub Form_Load() Label5.Caption = vinoslivost End Sub Это сообщение отредактировал(а) DimkraS - 23.5.2006, 15:19 --------------------
|
|||
|
||||
| Akina |
|
|||
|
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
В проекте добавить МОДУЛЬ (Project - Add module). В нем описАть переменные как Public.
В формах их использовать (описывать не надо). -------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| DimkraS |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 126 Регистрация: 22.5.2006 Репутация: нет Всего: 3 |
О всё заработало
--------------------
|
|||
|
||||
![]()
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |