Dim i As Integer
Dim mas(3) As Integer
Private Sub Command1_Click()
For i = 0 To 2
If Option1(i).Value = True Then mas(i) = mas(i) + 1
Next i
End Sub
Private Sub Command2_Click()
'Form1
Form2.Show
Form1.Visible = False
End Sub
Перенос массива с одной фомы на другую
Здраствуйте у меня есть задание такое
Надо сделать программу чтобы можно было голосовать за когото там.
Сделать подсчем голосов и только администратор может посмотреть сколько голосов сколько за кого проголосовали
на первой форме сделал label с текстом, массив из 3 optionbutton и 2 кнопки одна голосовать а другая на другую форму перейти вот
vb6
при переходе на другую фому вишьшь авторизацию и если правильно авторизовался видишь список лудей всех и (у меня тут неполучилось) сколько проголосовало за когото
Может можно было обойтись без 2 формы но мне просто захотелось форму 2 и вот столкнулся с тем о что пока незнаю и ненашол как сделать.
Знаю можно было создать на 1 форме невидимый массив label и туда результаты записывать и тагда просто вывести результаты на другую форму или еще сохронять в файл результаты.
Как еще можно перенисти массив данных с одной формы на другую?
Надо сделать программу чтобы можно было голосовать за когото там.
Сделать подсчем голосов и только администратор может посмотреть сколько голосов сколько за кого проголосовали
на первой форме сделал label с текстом, массив из 3 optionbutton и 2 кнопки одна голосовать а другая на другую форму перейти вот
vb6
Код:
при переходе на другую фому вишьшь авторизацию и если правильно авторизовался видишь список лудей всех и (у меня тут неполучилось) сколько проголосовало за когото
Код:
Dim i As Integer
Private Sub Command1_Click()
Form1.Show
Form2.Visible = False
End Sub
Private Sub Command2_Click()
If (Text1.Text = "admin") And (Text2.Text = "as") Then
Label1.Visible = False
Label2.Visible = False
Text1.Visible = False
Text2.Visible = False
Command2.Visible = False
Label3.Visible = True
Label4.Visible = True
For i = 0 To 2
Label5(i).Visible = True
Label6(i).Visible = True
Label5(i).Caption = Form1!Option1(i).Caption
Label6(i).Caption = Form1!mas(i)
'Option1(i).Value
Next i
Text1.Text = " stat"
Else
End
End If
End Sub
Private Sub Command1_Click()
Form1.Show
Form2.Visible = False
End Sub
Private Sub Command2_Click()
If (Text1.Text = "admin") And (Text2.Text = "as") Then
Label1.Visible = False
Label2.Visible = False
Text1.Visible = False
Text2.Visible = False
Command2.Visible = False
Label3.Visible = True
Label4.Visible = True
For i = 0 To 2
Label5(i).Visible = True
Label6(i).Visible = True
Label5(i).Caption = Form1!Option1(i).Caption
Label6(i).Caption = Form1!mas(i)
'Option1(i).Value
Next i
Text1.Text = " stat"
Else
End
End If
End Sub
Может можно было обойтись без 2 формы но мне просто захотелось форму 2 и вот столкнулся с тем о что пока незнаю и ненашол как сделать.
Знаю можно было создать на 1 форме невидимый массив label и туда результаты записывать и тагда просто вывести результаты на другую форму или еще сохронять в файл результаты.
Как еще можно перенисти массив данных с одной формы на другую?
Создаете модуль Module1
Теперь массив будет виден в 2х формах
Код:
Public ВашМассив(777) as Long
Теперь массив будет виден в 2х формах
спасибо
Ой а там какаето ошибка выдает даже незапускается
пишит
Microsoft Visual Basic
Compile error:
Constants, fixed-length strings, arrays, user-defined types and Declare
stataments not allowed as Public members of object modules
1 формы код
Ой а там какаето ошибка выдает даже незапускается
пишит
Цитата:
Microsoft Visual Basic
Compile error:
Constants, fixed-length strings, arrays, user-defined types and Declare
stataments not allowed as Public members of object modules
вот такая ошибка нечего непонел хоть даже перевел
Цитата:
Ошибка компиляции:
Константы, строки фиксированной длины, массивы, пользовательские типы и Объявить
заявления не допускается в качестве членов Общественной из объектных модулей
Константы, строки фиксированной длины, массивы, пользовательские типы и Объявить
заявления не допускается в качестве членов Общественной из объектных модулей
подсверивает строку
Код:
mas(3) As Long
1 формы код
Код:
Public mas(3) As Long
Dim i As Integer
Private Sub Command1_Click()
For i = 0 To 2
If Option1(i).Value = True Then mas(i) = mas(i) + 1
Next i
End Sub
Private Sub Command2_Click()
'Form1
Form2.Show
Form1.Visible = False
End Sub
Dim i As Integer
Private Sub Command1_Click()
For i = 0 To 2
If Option1(i).Value = True Then mas(i) = mas(i) + 1
Next i
End Sub
Private Sub Command2_Click()
'Form1
Form2.Show
Form1.Visible = False
End Sub
В редакторе VB6
Project - Add Module
Откроется Module1(Module1)
Там будут одна строка [COLOR="blue"]Option Explicit[/COLOR], но может ее и не быть. Это зависит от настройки редактора.
[COLOR="blue"]Option Explicit[/COLOR]
[COLOR="green"]'Вот здесь объевляем массив[/COLOR]
[COLOR="blue"]Public[/COLOR] mas(3) [COLOR="blue"]As Long[/COLOR]
Project - Add Module
Откроется Module1(Module1)
Там будут одна строка [COLOR="blue"]Option Explicit[/COLOR], но может ее и не быть. Это зависит от настройки редактора.
[COLOR="blue"]Option Explicit[/COLOR]
[COLOR="green"]'Вот здесь объевляем массив[/COLOR]
[COLOR="blue"]Public[/COLOR] mas(3) [COLOR="blue"]As Long[/COLOR]
спасибо все работает
ребята
помогите
может не сюда обратился, но увидел, что тут разговор о переносе массива из одной формы в другую
а я не могу перенести переменную
также хочу обойтись 2-мя формами
посчитать площадь прямоугольника
на первой форме вносим длину - высоту, а на второй форме видим результат
помогите
может не сюда обратился, но увидел, что тут разговор о переносе массива из одной формы в другую
а я не могу перенести переменную
также хочу обойтись 2-мя формами
посчитать площадь прямоугольника
на первой форме вносим длину - высоту, а на второй форме видим результат
Читайте тему сначала до конца. Если будут не понятки пишите, что не понятно.
Да, все
Спасибо
Действительно надо было просто прочитать повнимательней
А что я объявляю - массив или просто переменную - без разницы
делается все так же
еще раз спасибо
Спасибо
Действительно надо было просто прочитать повнимательней
А что я объявляю - массив или просто переменную - без разницы
делается все так же
еще раз спасибо