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

@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

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

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

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

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

Решение