Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с переменными в нескольких формах 
:(
    Опции темы
DimkraS
Дата 22.5.2006, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: нет
Всего: 3



Моя программа состоит из нескольких форм. После работы с первой формой некоторые данные сохраняются в переменные, и программа переходит для работы на другую форму, но там эти переменные уже пусты. Как мне вытащить получившиеся данные из первой формы во вторую? 
--------------------
PM MAIL   Вверх
boevik
Дата 22.5.2006, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35



Общие данные\переменные лучше сохранять в модуле.
Тогда нет зависимости от поведения формы (загружена, выгружена и т.д.) 


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Voldemar2004
Дата 22.5.2006, 21:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23



Используй модуль - в нем и храни значения переменных. Объяви их как Public или Static - как тебе нужно в программе.

Добавлено @ 21:51 
boevik меня опередил. smile  


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
DimkraS
Дата 23.5.2006, 09:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: нет
Всего: 3



Чё то неполучается, а пример  можно? smile  
--------------------
PM MAIL   Вверх
boevik
Дата 23.5.2006, 12:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35



DimkraS, выкладывай свой пример, как ты пробовал решить проблему. 


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
DimkraS
Дата 23.5.2006, 15:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 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
--------------------
PM MAIL   Вверх
Akina
Дата 23.5.2006, 15:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



В проекте добавить МОДУЛЬ (Project - Add module). В нем описАть переменные как Public.
В формах их использовать (описывать не надо). 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
DimkraS
Дата 23.5.2006, 17:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 126
Регистрация: 22.5.2006

Репутация: нет
Всего: 3



О всё заработало smile , наконец то допёрло как, всем СПАСИБО  smile  
--------------------
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0466 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.