Создание массива

@sawa · Регистрация: 11.05.2020

Студворк — интернет-сервис помощи студентам

Подскажите или укажите на примере.
Есть форма, на ней в строчку идут тестбоксы и леболы с вычислениями, простыми, типо

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Label4.Caption = (Text3.Text * 1000) / 400
Label4.Caption = Format(Label4.Caption, "0.0")
Dim a As Double
a = Val(Text2.Text)
If a > 70 Then
Else
s = 11.5
Label9.Caption = "" & s
End If
If a < 70 Then
Else
s = 10.8
Label9.Caption = "" & s
End If
Label15.Caption = (Label4.Caption * Label9.Caption) / 200
Label15.Caption = Format(Label15.Caption, "0.0")
Label20.Caption = (Text4.Text / Label15.Caption)
Label20.Caption = Format(Label20.Caption, "0")

как мне, эти вычисление обединить в массив и использовать для других таких же строк,
строк с вычислениями очень много, до 35 и не хочется переписывать каждый раз одно и то же. спасибо

@Argus19 · 15.05.2020, 23:42

Сообщение от sawa

вычисление обединить в массив

Вычисления не объединяются в массив, в массив записываются переменные одного типа.

@sawa · 16.05.2020, 00:01 **[ТС]**

подскажите где посмотреть пример хоть какой нить

@Alex77755 · 16.05.2020, 02:23

подскажите где посмотреть пример хоть какой нить

Массивы. Обьявление массивов. Сортировка массивов

@vedunasv · 16.05.2020, 11:30

хм... что-то получается...

Добавлено через 9 минут
короче, sawa, будет вам массив вычислений...
Но только это немножко по другому называется....
И Ближе к вечеру , не сейчас. Домашние дела....
А сейчас потренируйтесь над переименованием объектов с именами по умолчанию на свои имена и постановкой задач.
Где-то раньше уже говорилось, что это облегчит через день вспоминать смысл переменных.

Добавлено через 6 минут
Argus19, sawa имеет в виду не массив переменных, а массив повторяющих вычислений - то есть кучу одинаковых вычислений, которые можно объединить в виде отдельной подпрограммы (отдельного модуля).

@Alex77755 · 16.05.2020, 11:46

строчку идут тестбоксы и леболы

Во первых текстбоксы и леболы в массив
Кидаешь на форму 1 текстбокс. Копируешь его и вставляешь. Бейсик спросит создавать ли массив. Соглашайся
Так же и с лебелами
Убедись что в каждой строке контролы с одинаковыми индексами
А потом цикл от 0 до максимального индекса
Значение счетчика используешь в качестве индекса текстбокса и лабела

@Alex77755 · 16.05.2020, 12:03

пример массива контролов

@vedunasv · 16.05.2020, 22:04

Ответ на вопрос sawa о массивах управляющих элементов, о повторяющих вычислениях, и немного о том о сём
короче --- ЧАСТЬ 3

Вложение 1146768

Вложение 1146769

Вложение 1146770

Вложение 1146771

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
Option Explicit
Rem Постановка задачи
Rem 1. Есть группа наивных людей, живущих в сосновом лесу.
Rem 2. Они решили распространять сосновые шишки
Rem 3. организовать добавление на форме окно "Склад"
Rem по мере необходимости после заполнения предыдущего
Rem 4. При создании нового склада соответственно автоматически (без
Rem указания на это действие) добавлять окна "Количество", "Поступление",
Rem "Выдача"
Rem 5. Иметь возможность формировать цену за шишку - добавление окна
Rem 6. Обеспечить набор Собирателей - людей, кторые собирают шишки - добавление окон
Rem "Номер Собирателя", "План Собирателя"
Rem 7. Организовать анализ выручки - добавить окно по каждому Собирателю.
 
Const verx% = 50
Public s%, tmp&
Public nSkladMasiv%, nKolShishekMasiv%
Public nSklad%
 
 
Private Sub sklad_Click()
nSklad% = nSklad% + 1
nSkladMasiv% = nSkladMasiv% + 1
nKolShishekMasiv% = nKolShishekMasiv% + 1
 
PodgotovkaElement nSkladMasiv%, nSklad%, nKolShishekMasiv%
 
 
End Sub
Private Sub Form_Load()
 
Me.Left = 0: Me.Top = 0: Me.Height = 10000: Me.Width = 15000
End Sub
 
'+++++++++ подпрограммы +++++++++++
Sub PodgotovkaElement(nSkladMasiv%, nSklad%, nKolShishekMas%)
Load oknoSekret(nSkladMasiv%)
oknoSekret(nSkladMasiv%).Caption = "Склад № " & nSklad
oknoSekret(nSkladMasiv%).BorderStyle = 1
oknoSekret(nSkladMasiv%).Appearance = 0
oknoSekret(nSkladMasiv%).Left = 100
oknoSekret(nSkladMasiv%).Top = verx% * nSkladMasiv% + 200 * nSkladMasiv%
oknoSekret(nSkladMasiv%).Height = 400
oknoSekret(nSkladMasiv%).Width = 1800
oknoSekret(nSkladMasiv%).Font = 12
oknoSekret(nSkladMasiv%).Font.Size = 14
oknoSekret(nSkladMasiv%).Visible = True
 
nSkladMasiv% = nSkladMasiv% + 1
Load oknoSekret(nSkladMasiv%)
oknoSekret(nSkladMasiv%).Caption = "Поступило шишек"
oknoSekret(nSkladMasiv%).Left = 2000
oknoSekret(nSkladMasiv%).Top = verx% * (nSkladMasiv% - 1) + 200 * (nSkladMasiv% - 1)
oknoSekret(nSkladMasiv%).Height = 400
oknoSekret(nSkladMasiv%).Width = 3000
oknoSekret(nSkladMasiv%).BackColor = &H8000000F
oknoSekret(nSkladMasiv%).Font = 12
oknoSekret(nSkladMasiv%).Font.Size = 14
oknoSekret(nSkladMasiv%).Visible = True
 
Load SekretShishek(nKolShishekMas%)
SekretShishek(nKolShishekMas%).Text = ""
SekretShishek(nKolShishekMas%).Left = 4400
SekretShishek(nKolShishekMas%).Top = verx% * (nSkladMasiv% - 1) + 200 * (nSkladMasiv% - 1)
SekretShishek(nKolShishekMas%).Height = 400
SekretShishek(nKolShishekMas%).Width = 1000
SekretShishek(nKolShishekMas%).Font = 12
SekretShishek(nKolShishekMas%).Font.Size = 14
SekretShishek(nKolShishekMas%).Visible = True
 
nSkladMasiv% = nSkladMasiv% + 1
Load oknoSekret(nSkladMasiv%)
oknoSekret(nSkladMasiv%).Caption = "Выдать шишки"
oknoSekret(nSkladMasiv%).Left = 5500
oknoSekret(nSkladMasiv%).Top = verx% * (nSkladMasiv% - 2) + 200 * (nSkladMasiv% - 2)
oknoSekret(nSkladMasiv%).Height = 400
oknoSekret(nSkladMasiv%).Width = 3000
oknoSekret(nSkladMasiv%).BackColor = &H8000000F
oknoSekret(nSkladMasiv%).Font = 12
oknoSekret(nSkladMasiv%).Font.Size = 14
oknoSekret(nSkladMasiv%).Visible = True
 
nKolShishekMas% = nKolShishekMas% + 1
Load SekretShishek(nKolShishekMas%)
SekretShishek(nKolShishekMas%).Text = "" 'выдать шишки
SekretShishek(nKolShishekMas%).Left = 7500
SekretShishek(nKolShishekMas%).Top = verx% * (nSkladMasiv% - 2) + 200 * (nSkladMasiv% - 2)
SekretShishek(nKolShishekMas%).Height = 400
SekretShishek(nKolShishekMas%).Width = 1000
SekretShishek(nKolShishekMas%).Font = 12
SekretShishek(nKolShishekMas%).Font.Size = 14
SekretShishek(nKolShishekMas%).Visible = True
 
nSkladMasiv% = nSkladMasiv% + 1
Load oknoSekret(nSkladMasiv%)
oknoSekret(nSkladMasiv%).Caption = "Остаток на складе"
oknoSekret(nSkladMasiv%).Left = 8500
oknoSekret(nSkladMasiv%).Top = verx% * (nSkladMasiv% - 3) + 200 * (nSkladMasiv% - 3)
oknoSekret(nSkladMasiv%).Height = 400
oknoSekret(nSkladMasiv%).Width = 2400
oknoSekret(nSkladMasiv%).BackColor = &H8000000F
oknoSekret(nSkladMasiv%).Font = 12
oknoSekret(nSkladMasiv%).Font.Size = 14
oknoSekret(nSkladMasiv%).Visible = True
 
nSkladMasiv% = nSkladMasiv% + 1
Load oknoSekret(nSkladMasiv%)
oknoSekret(nSkladMasiv%).Caption = "" 'остаток на складе
oknoSekret(nSkladMasiv%).Left = 11000
oknoSekret(nSkladMasiv%).Top = verx% * (nSkladMasiv% - 4) + 200 * (nSkladMasiv% - 4)
oknoSekret(nSkladMasiv%).Height = 400
oknoSekret(nSkladMasiv%).Width = 2000
 
oknoSekret(nSkladMasiv%).BorderStyle = 1
oknoSekret(nSkladMasiv%).Appearance = 1
oknoSekret(nSkladMasiv%).BackColor = &HFFFFC0 '&H8000000F
oknoSekret(nSkladMasiv%).Font = 12
oknoSekret(nSkladMasiv%).Font.Size = 14
oknoSekret(nSkladMasiv%).Visible = True
End Sub
 
'********** обозначения *****
' nSklad% - номер склада
 
' D0 F0 I0 S0

тег, что это VB - ставлю, но русские фразы не получаются...

ПОЯСНЕНИЕ

1. Проект часть 3 - протестироована
2. В начале проекта расписана постановка задачи - конечно, не образец для подражание...
3. математика - не расписана
4. здесь расписан второй вариант создание элементов управления- в виде массива элементов управления.
Первый вариант (интернетовский) с sawa был обсужден.
5. Также расписан алгоритм вынесения повторяющих муторных вычисления в виде отдельного модуля (подпрограммы)
6. Была попытка вынести совершенно во внешний модуль еще одну часть вычислений - это "ПЕРЕУЧЕТ", но не хватило времени.

7. алгоритм работы с прогой: запустить, в проге вызвать меню... и щелкать, вводитиь числа..
Другие пункты МЕНЮ проги - не разработаны. Также из-за нехватки времени.

@vedunasv · 16.05.2020, 22:07

@sawa · 16.05.2020, 22:29 **[ТС]**

мне надо время, спасибо за проделанную работу

@vedunasv · 16.05.2020, 22:52

ага, конечно ))))))))))

Добавлено через 3 минуты
надо было прямо здесь написать все комментарии в коде напрямую по русски...не получается с кодировкой....может-кто-то подскажет по шагам???

Добавлено через 17 минут
sawa, на форме создается только одно окно LABEL и одно окно TEXT
и видимость их сделать Visible = FALSE

Все остальные окна делаются во время самой работы программы по запросу из меню программы

больше ничего.
Меню проги делается через конструктор меню

Рабочий файл нужен?? (*.ехе)

@vedunasv · 18.05.2020, 22:01

Добрый вечер, sawa.
Выполняю своё обещание по вырезке модуля запрета алфавита, который был зашит у меня в модуле глобальных переменных.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
Rem запрет на ввод определённого алфавита
Sub ZapretAzbuka(azbuka$, slovoAzbuka$)
Rem додано 03.02.2013
Select Case azbuka$ 'S3
Case "0" 'S3
If Not IsNumeric(slovoAzbuka$) Then 'I2 'перевірка на число
slovoAzbuka$ = ""
End If 'I2
Case "э" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F2
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S4
Case "а" To "я", "А" To "Я", " ", ".", "," 'S4
Case Else 'S4
slovoAzbuka$ = ""
End Select 'S4
Next 'F2
Case "є" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F3
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S5
Case "ы", "Ы", "э", "Э" 'S5
slovoAzbuka$ = ""
Case "є", "Є", "і", "І" 'S5
Case "а" To "я", "А" To "Я", " ", ".", "," 'S4
Case Else
slovoAzbuka$ = ""
End Select 'S5
Next 'F3
Case "f" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F2
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S4
Case "a" To "z", "A" To "Z", " ", ".", "," 'S4
Case Else
slovoAzbuka$ = ""
End Select 'S4
Next 'F2
 
Case "1э" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F2
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S4
Case "а" To "я", "А" To "Я", " ", ".", ",", "0" To "9" 'S4
Case Else 'S4
slovoAzbuka$ = ""
End Select 'S4
Next 'F2
 
Case "1є" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F3
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S5
Case "ы", "Ы", "э", "Э" 'S5
slovoAzbuka$ = ""
Case "є", "Є", "і", "І" 'S5
Case "а" To "я", "А" To "Я", " ", ".", ",", "0" To "9" 'S4
Case Else
slovoAzbuka$ = ""
End Select 'S5
Next 'F3
 
Case "1f" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F4
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S5
Case "a" To "z", "A" To "Z", " ", ".", ",", "0" To "9" 'S5
Case Else
slovoAzbuka$ = ""
End Select 'S5
Next 'F4
Case "эє" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F5
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S7
Case "а" To "я", "А" To "Я", "є", "Є", "і", "І", " ", ".", "," 'S7
Case Else 'S7
slovoAzbuka$ = ""
End Select 'S7
Next 'F5
Case "1эє" 'S3
dlina% = Len(slovoAzbuka$)
For n% = 1 To dlina% 'F6
tmp$ = Mid$(slovoAzbuka$, n%, 1)
Select Case tmp$ 'S8
Case "а" To "я", "А" To "Я", "є", "Є", "і", "І", " ", ".", ",", "0" To "9" 'S8
Case Else 'S8
slovoAzbuka$ = ""
End Select 'S8
Next 'F6
 
End Select 'S3
End Sub
Rem конец запрет на ввод определённого алфавита
 
'**************************************** позначення ***************
' azbuka$ - признак азбуки
' = 0 смешанная, разрешена любая
' = 1 цифровая 0-9
' = э русская а-я
' = є украинская а-я
' = f английская a-z
' = 1ф цифровая и русская 0-9, а-я
' = 1є цифровая и украинская 0-9, а-я
' = 1f цифровая и английская 0-9, а-z
' = эє русско-украинская а-я, "є", "Є", "і", "І"
' = 1эє цифровая русско-украинская а-я, "є", "Є", "і", "І"
 
' dlina% - длина слова
' imKniga - название книги
' kanal% - номер канала файла #
' LenZapKniga - длина записи в байтах для файла произвольного доступа
' maxNtimer% - макс.кількість запусків таймера
' nTimerErr% - кількість запусків таймера
' otvet% - код ответа (например, от MsgBox)
' registrSimv% - регистр символов
' =0 все смешанное
' =1 цифры
' =англБол английские большие
' =англМал английские малые
' =рус русские большие
' =рус русские малые
' =укр украинские большие
' =укр украинские малые
' =70 цифро-английские большие
' =80 цифро-английские малые
' rezim% - режим системи
' = 0 - основний
' rezimErr% - режим попереджень системи
' =0 старт системи
' =666 закінчити програму через windows-хрест
' simvBol$ - символ большой
' simvMal$ - символ малый
' slovo$, slovo0$, tmp$ - тимчасові
' slovoAzbuka$ - слово для передачи на запрет азбуки
' sysDate$ - системна дата
' sysTime$ - системний час
' tekstXOkna% - поправка кількості пробелу для заголовку вікна
' timerSek# - кількість відличеннх секунд секунд
' timerSek0# - стартова кількість секунд
' tipKniga% - =1 книга для открытия последовательного доступа
' =2 книга для чтениня последовательного доступа
' =3 книга для открытия произвольного доступа
' =4 книга для открытия бинарного доступа
' tipRabotaKniga% - =1 работа с дисками
' =2 работа с каталогами
' =3 работа с файлами (книгами)
' tmp$ - тимчасові
' xOkno% - ширина вікна
' vizovKniga - работа с файловой системой компа (FSO)
 
' D0 F6 I2 S8

Также даю маленькую форму как пример вызывать вышеуказанный модуль:

и ее код:

Visual Basic
1
2
3
4
5
6
7
8
9
Option Explicit
 
Private Sub Command1_Click()
  slovoAzbuka$ = Text1
  azbuka$ = "f"
  ZapretAzbuka azbuka$, slovoAzbuka$
  If slovoAzbuka$ = "" Then Text1 = slovoAzbuka$: Text1.SetFocus: Exit Sub
  Text2.SetFocus
End Sub

ИНСТРУКЦИЯ ПО ВЫЗОВУ МОДУЛЯ:

1. Занести значение в TextBox1 в необходимой раскладке - цифры или русские буквы, или английские
то есть так как надо.
2. При нажатии Command1 (строка 3) присваиваем значение Text1 переменной slovoAzbuka$ (строка 4).
3. Переменной azbuka$ присваиваем значение "1" (строка 5)- обрабатывать только числа ( в примере указано значение "f"-обрабатывать только английские буквы). Расшифровку всех значений можно посмотреть в обозначениях модуля.
4. Вызывать модуль командой ZapretAzbuka azbuka$, slovoAzbuka$ , где ZapretAzbuka - название модуля; azbuka$, slovoAzbuka$ - переменные для модуля.
5. Проверяем полученное значение (строка 7): если slovoAzbuka$ - пустое значение, то его присвоить полю Text1 (Text1 станет = ""), передать фокус обратно этому же полю Text1, и выйти из режима нажатия Command1
6. Если же slovoAzbuka$ имеет то же самое значение, что было введено, то оно набрано в правильной раскладке, и тогда мы
продолжаем работу, передав фокус полю Text2.

Модуль работает несколько лет, проблем не должно быть.

Если его будете использовать, то в своем проекте просто его дозагрузите как модуль. И в самом начале этого модуля
добавте 4 строки объявления глобальных переменных

Public azbuka$, slovoAzbuka$

Public slovo$, slovo0$, tmp$
Public dlina%
Public n As Integer, s As Integer

Вроде всё.

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	16.05.2020, 00:01 [ТС]
	подскажите где посмотреть пример хоть какой нить 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	16.05.2020, 11:30
	хм... что-то получается... Добавлено через 9 минут короче, sawa, будет вам массив вычислений... Но только это немножко по другому называется.... И Ближе к вечеру , не сейчас. Домашние дела.... А сейчас потренируйтесь над переименованием объектов с именами по умолчанию на свои имена и постановкой задач. Где-то раньше уже говорилось, что это облегчит через день вспоминать смысл переменных. Добавлено через 6 минут Argus19, sawa имеет в виду не массив переменных, а массив повторяющих вычислений - то есть кучу одинаковых вычислений, которые можно объединить в виде отдельной подпрограммы (отдельного модуля). 1

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	16.05.2020, 22:07
	1

@sawa 2 / 2 / 0 Регистрация: 11.05.2020 Сообщений: 29
	16.05.2020, 22:29 [ТС]
	мне надо время, спасибо за проделанную работу 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	16.05.2020, 22:52
	ага, конечно )))))))))) Добавлено через 3 минуты надо было прямо здесь написать все комментарии в коде напрямую по русски...не получается с кодировкой....может-кто-то подскажет по шагам??? Добавлено через 17 минут sawa, на форме создается только одно окно LABEL и одно окно TEXT и видимость их сделать Visible = FALSE Все остальные окна делаются во время самой работы программы по запросу из меню программы больше ничего. Меню проги делается через конструктор меню Рабочий файл нужен?? (*.ехе) 0

Опции темы