[ОШИБКА] Создание кнопки программно

@MorfixProton · Регистрация: 16.01.2013

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

У меня есть:
-форма
-кнопка (Command1)
-лейбл (Label1)
И код:

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
Option Explicit
 
Dim pole As CommandButton
Dim i As Integer
Dim j As Integer
Dim y As Integer
Dim a As Integer
Dim b As Integer
Dim name1 As String
 
Private Sub Command1_Click()
Label1.Caption = Button1.Caption
End Sub
 
Private Sub Form_Load()
name1 = "1"
For j = 1 To 1 Step 1
a = 0
For i = 1 To 1 Step 1
Cls
Build
name1 = name1 + 1
a = a + 285
Next i
b = b + 285
Next j
End Sub
 
Sub Build()
 
Set pole = Me.Controls.Add("VB.CommandButton", "Button" + name1, Me)
        pole.Visible = (True) 
        pole.Caption = (name1)
        Call pole.Move(0 + b, 0 + a, 285, 285)
End Sub

При нажатии кнопки Command1 должно отобразиться текст программно созданной кнопки Button1, но этого не происходит, но ведь имя то правильно создано:

Visual Basic
1
Set pole = Me.Controls.Add("VB.CommandButton", "Button" + name1, Me)

А именно:

Visual Basic
1
"Button" + name1

Но пишет ошибку:
Variable not defined.
Не пойму что не так.

Добавлено через 9 минут
Ошибку выдаёт на 12 строке.

SoftIce · 12.11.2014, 22:41

Visual Basic
1
Label1.Caption = pole.Caption

Добавлено через 2 минуты
А вот Name будет уже Button1

Visual Basic
1
2
3
4
Private Sub Command1_Click()
  ' Label1.Caption = pole.Caption '     =1
   Label1.Caption = pole.Name '        =Button1
End Sub

@MorfixProton · 12.11.2014, 22:45 **[ТС]**

Ну так это первая кнопка, а если мне надо на лейбле получить caption другой кнопки? Например Button 10?

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
Option Explicit
 
Dim pole As CommandButton
Dim i As Integer
Dim j As Integer
Dim y As Integer
Dim a As Integer
Dim b As Integer
Dim name1 As String
 
Private Sub Command1_Click()
Label1.Caption = Button1.Caption
End Sub
 
Private Sub Form_Load()
name1 = "1"
For j = 1 To 10 Step 1
a = 0
For i = 1 To 10 Step 1
Cls
Build
name1 = name1 + 1
a = a + 285
Next i
b = b + 285
Next j
End Sub
 
Sub Build()
 
Set pole = Me.Controls.Add("VB.CommandButton", "Button" + name1, Me)
        pole.Visible = (True) 
        pole.Caption = (name1)
        Call pole.Move(0 + b, 0 + a, 285, 285)
End Sub

В этом коде появится поле из 100 кнопок.

@The trick · 12.11.2014, 22:53

Visual Basic
1
Label1.Caption = Me.Controls("Button10").Caption

@MorfixProton · 12.11.2014, 23:14 **[ТС]**

А почему я не могу создать вот такой обработчик событий?

Visual Basic
1
2
3
Private Sub Button10_Click()
Label1.Caption = Me.Controls("Button10").Caption
End Sub

@The trick · 12.11.2014, 23:17

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

А почему я не могу создать вот такой обработчик событий?

Для подписки на события нужно объявлять переменную как WithEvents.

@MorfixProton · 12.11.2014, 23:18 **[ТС]**

То есть?

@The trick · 12.11.2014, 23:19

Visual Basic
1
Dim WithEvents Button10 As CommandButton

@MorfixProton · 12.11.2014, 23:31 **[ТС]**

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
Option Explicit
 
Dim pole As CommandButton
Dim i As Integer
Dim j As Integer
Dim y As Integer
Dim a As Integer
Dim b As Integer
Dim name1 As String
Dim WithEvents Button10 As CommandButton
 
 
Private Sub Command1_Click()
Label1.Caption = Me.Controls("Button10").Caption
End Sub
 
Private Sub Form_Load()
name1 = "1"
For j = 1 To 10 Step 1
b = 0
For i = 1 To 10 Step 1
Cls
Build
name1 = name1 + 1
b = b + 285
Next i
a = a + 285
Next j
End Sub
 
Sub Build()
 
Set pole = Me.Controls.Add("VB.CommandButton", "Button" + name1, Me)
        pole.Visible = (True) 'Äåëàåì îáúåêò âèäèìûì
        pole.Caption = (name1) 'Äåëàåì îáúåêò âèäèìûì
        Call pole.Move(0 + b, 0 + a, 285, 285) 'Óêàçûâàåì ïîçèöèè
End Sub
 
Private Sub Button10_Click()
Label1.Caption = Me.Controls("Button10").Caption
End Sub

Я прописал, но ничего не происходит.

@The trick · 12.11.2014, 23:33

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

Я прописал, но ничего не происходит.

Ну так присвой переменной Button10 соответствующий контрол. А вообще распиши полностью задачу что нужно, а не кусками.

@MorfixProton · 12.11.2014, 23:46 **[ТС]**

Нужно создать поле из кнопок (оно может быть любым, но до 50x50), далее мне нужно, что бы при нажатии на любую кнопку вызывалась одна и та же функция, проверяющая caption соседних клеток, и делающая дальше определённые действия. Ну в обще пишу игру по типу сапёра, но не сапёр, другие правила, но нужны клетки.

Добавлено через 30 секунд

Сообщение от The trick

Ну так присвой переменной Button10 соответствующий контрол.

Какой контрол?

Добавлено через 41 секунду

Я непонимать(((

@The trick · 12.11.2014, 23:49

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

Нужно создать поле из кнопок (оно может быть любым, но до 50x50), далее мне нужно, что бы при нажатии на любую кнопку вызывалась одна и та же функция, проверяющая caption соседних клеток, и делающая дальше определённые действия. Ну в обще пишу игру по типу сапёра, но не сапёр, другие правила, но нужны клетки.

Проще сделать один PictureBox. Ты можешь использовать массив контролов, либо схитрить. Вобщем смотри тут.

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

Какой контрол?

Это у тебя нужно спросить. Какой нужно такой и присваивай.

@MorfixProton · 13.11.2014, 00:03 **[ТС]**

Вобщем, как это написать? Куда и главное что надо запихнуть в мою программу, чтобы это работало:

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

Visual Basic
1
2
3
Private Sub Button10_Click()
Label1.Caption = Me.Controls("Button10").Caption
End Sub

Добавлено через 54 секунды
Далее по аналогии сделаю.

SoftIce · 13.11.2014, 00:33

MorfixProton, посмотрите, так не проще ли будет сделать?

SoftIce · 13.11.2014, 00:45

Еще немного упростил

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@MorfixProton 3 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 248
	12.11.2014, 23:18 [ТС]
	То есть? 0

[ОШИБКА] Создание кнопки программно

Решение