Добавлено @ 21:51
boevik меня опередил.
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > Работа с переменными в нескольких формах |
| Автор: DimkraS 22.5.2006, 20:16 |
| Моя программа состоит из нескольких форм. После работы с первой формой некоторые данные сохраняются в переменные, и программа переходит для работы на другую форму, но там эти переменные уже пусты. Как мне вытащить получившиеся данные из первой формы во вторую? |
| Автор: boevik 22.5.2006, 21:43 |
| Общие данные\переменные лучше сохранять в модуле. Тогда нет зависимости от поведения формы (загружена, выгружена и т.д.) |
| Автор: Voldemar2004 22.5.2006, 21:50 |
| Используй модуль - в нем и храни значения переменных. Объяви их как Public или Static - как тебе нужно в программе. Добавлено @ 21:51 boevik меня опередил. |
| Автор: DimkraS 23.5.2006, 09:31 |
Чё то неполучается, а пример можно?  |
| Автор: boevik 23.5.2006, 12:29 |
| DimkraS, выкладывай свой пример, как ты пробовал решить проблему. |
| Автор: DimkraS 23.5.2006, 15:06 |
| Сразу говорю, я в программировании новичок.. Первая форма: 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 |
| Автор: Akina 23.5.2006, 15:29 |
| В проекте добавить МОДУЛЬ (Project - Add module). В нем описАть переменные как Public. В формах их использовать (описывать не надо). |
| Автор: DimkraS 23.5.2006, 17:38 |
О всё заработало  , наконец то допёрло как, всем СПАСИБО  |