Как сделать взаимодействие переменных между формами .
ПРимер у меня обьявлена переменная
Public num As Integer
в form1
во второй форме form2
мне требуется эта переменая я сделал
Form2.Load
может что то не так ?
Переменные и формы ?
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 27
• Страница 1 из 1
- miller_aa
- Новичок
-
- Сообщения: 45
- Зарегистрирован: 15.05.2006 (Пн) 10:28
- Откуда: Нижний Новгород
Переменные и формы ?
miller_aa » 16.05.2006 (Вт) 11:51
.................GORODEC.COM......................
- Twister
- Теоретик
-
- Сообщения: 2251
- Зарегистрирован: 28.06.2005 (Вт) 12:32
- Откуда: Алматы
Twister » 16.05.2006 (Вт) 12:15
Если переменная объявлена в модуле формы, то желательно к ней обращаться через имя формы (form1.var_name). А вообще лучше все глобальное объявлять в отдельном модуле.
А я все практикую лечение травами...
- miller_aa
- Новичок
-
- Сообщения: 45
- Зарегистрирован: 15.05.2006 (Пн) 10:28
- Откуда: Нижний Новгород
miller_aa » 16.05.2006 (Вт) 17:03
Извините за беспокойство а как можно скрыть рисунок из другой формы ,вот что я использую
Image4.Visible = False
в своей форме(пример form1) это работает а из формы2 скрыть рисунок из 1 формы не получается
Image4.Visible = False
в своей форме(пример form1) это работает а из формы2 скрыть рисунок из 1 формы не получается
.................GORODEC.COM......................
- miller_aa
- Новичок
-
- Сообщения: 45
- Зарегистрирован: 15.05.2006 (Пн) 10:28
- Откуда: Нижний Новгород
miller_aa » 16.05.2006 (Вт) 17:51
Извините еще раз за беспокойство. у меня тут такая проблемка сложилась
вот код
Public Sub Command1_Click()
If num = 1 Then
MsgBox "Верно"
num2 = 1
num = 0
Call base2
End If
if num=2 then
MsgBox "Не Верно"
end if
End Sub
При нажатиина Command1_Click() он не дожидаясь второго нажатия сразу выдает не верно , (понятно почему) как можно указать ему что бы ждал еще нажатия ?
вот код
Public Sub Command1_Click()
If num = 1 Then
MsgBox "Верно"
num2 = 1
num = 0
Call base2
End If
if num=2 then
MsgBox "Не Верно"
end if
End Sub
При нажатиина Command1_Click() он не дожидаясь второго нажатия сразу выдает не верно , (понятно почему) как можно указать ему что бы ждал еще нажатия ?
.................GORODEC.COM......................
- miller_aa
- Новичок
-
- Сообщения: 45
- Зарегистрирован: 15.05.2006 (Пн) 10:28
- Откуда: Нижний Новгород
miller_aa » 16.05.2006 (Вт) 18:17
хм. я сделал но немного по другому
Public mo As Integer
Sub mou()
mo = 1
End Sub
Public Sub Command1_Click()
mou
If num = 1 And mo = 1 Then
MsgBox "Âåðíî"
num2 = 1
num = 0
mo = 0
Call base2
End If
If num2 = 1 And mo = 1 Then
MsgBox "Íå Âåðíî"
End
End If
End Sub
ТОже работает но все равно спассибо
Public mo As Integer
Sub mou()
mo = 1
End Sub
Public Sub Command1_Click()
mou
If num = 1 And mo = 1 Then
MsgBox "Âåðíî"
num2 = 1
num = 0
mo = 0
Call base2
End If
If num2 = 1 And mo = 1 Then
MsgBox "Íå Âåðíî"
End
End If
End Sub
ТОже работает но все равно спассибо
.................GORODEC.COM......................
- miller_aa
- Новичок
-
- Сообщения: 45
- Зарегистрирован: 15.05.2006 (Пн) 10:28
- Откуда: Нижний Новгород
miller_aa » 16.05.2006 (Вт) 19:17
Хорошо буду в теги.
А можно узнать реално сделать что бы при старте rnd менялся всегда а то получается всегда когда начинаешь он равный 7.
А можно узнать реално сделать что бы при старте rnd менялся всегда а то получается всегда когда начинаешь он равный 7.
.................GORODEC.COM......................
- Twister
- Теоретик
-
- Сообщения: 2251
- Зарегистрирован: 28.06.2005 (Вт) 12:32
- Откуда: Алматы
Twister » 16.05.2006 (Вт) 19:29
- Код: Выделить всё
randomize timer
А я все практикую лечение травами...
Сообщений: 27
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 142