Дублирование метки label

@Dmitrij8110 · Регистрация: 09.08.2015

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

Доброго времени суток.
Столкнулся с проблемой. Требуется продублировать метку. Как дублировать кнопку - понятно, а когда начинаю по образцу делать дулеж метки, то выводит сообщение "procedure declaration does not match description of event or procedure having the same name"

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Label1_Click(Index As Integer)
Dim  t As Long
        For y = 1 To x Step 1
        t = t + 500
        Load Label1(y)
        Label1(y).Caption = "Дата заправки"  & y
        Label1(y).Top = 500
        Label1(y).Left = 1700
        Label1(y).Visible = "True"
        Next y
End Sub

Подскажите пожалуйста, как выйти из данной ситуации.

@Alex77755 · 16.08.2015, 07:49

x это глобальная переменная? Она задана?
На какую строку ругается?
У меня всё работает

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Explicit
 
Private Sub Label1_Click(Index As Integer)
Dim t As Long
Dim y, x
x = 10
        For y = 1 To x Step 1
        Load Label1(y)
        Label1(y).Visible = True
        Label1(y).Caption = "Дата заправки  " & y
        t = t + 400
        Label1(y).Top = t
        Label1(y).Left = 700
        Next y
End Sub

@Dmitrij8110 · 16.08.2015, 12:57 **[ТС]**

Спасибо, но у меня почему то ругается на первую строку "Private Sub Label1_Click(Index As Integer)" выдает "procedure declaration does not match description of event or procedure having the same name"

@Alex77755 · 16.08.2015, 13:03

Индекс у лабела поставил = 0?

@Dmitrij8110 · 16.08.2015, 13:21 **[ТС]**

поставил, теперь на щелчок мыши не реагирует

@Alex77755 · 16.08.2015, 13:26

вотт

@Dmitrij8110 · 16.08.2015, 16:45 **[ТС]**

Немножко поменяю вопрос, есть текстовое поле, в него вводится число и после нажатия клавиши Enter, выводится то количество меток, которое было введено в TextBox.

@Alex77755 · 16.08.2015, 17:18

Та же процедура. Считай значение из текстбокса

Visual Basic
1
x = val(текстБокс)

@Dmitrij8110 · 16.08.2015, 23:25 **[ТС]**

А можно ли сделать так, что бы выводимая Label1(y) имела те же координаты, что и основная, и от нее уже вниз выводились остальные. То есть у основной Label координаты Left=8700, Top=2040, а у выводимой - Left=8800, Top=2100 (а не нуль). Ну и естественно остальные Label соответственно вниз на Тор=400

@Alex77755 · 17.08.2015, 06:46

Visual Basic
1
2
3
4
5
6
7
8
9
10
        x = Текст1
        T = Label1(0).Top
        
        For y = 1 To x Step 1
            Load Label1(y)
            Label1(y).Visible = True
            Label1(y).Caption = "Дата заправки  " & y
            Label1(y).Top = T
            T = T + 400
        Next y

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Dmitrij8110 0 / 0 / 0 Регистрация: 09.08.2015 Сообщений: 5
	16.08.2015, 12:57 [ТС]
	Спасибо, но у меня почему то ругается на первую строку "Private Sub Label1_Click(Index As Integer)" выдает "procedure declaration does not match description of event or procedure having the same name" 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	16.08.2015, 13:03
	Индекс у лабела поставил = 0? 0

@Dmitrij8110 0 / 0 / 0 Регистрация: 09.08.2015 Сообщений: 5
	16.08.2015, 13:21 [ТС]
	поставил, теперь на щелчок мыши не реагирует 0

@Dmitrij8110 0 / 0 / 0 Регистрация: 09.08.2015 Сообщений: 5
	16.08.2015, 16:45 [ТС]
	Немножко поменяю вопрос, есть текстовое поле, в него вводится число и после нажатия клавиши Enter, выводится то количество меток, которое было введено в TextBox. 0

@Dmitrij8110 0 / 0 / 0 Регистрация: 09.08.2015 Сообщений: 5
	16.08.2015, 23:25 [ТС]
	А можно ли сделать так, что бы выводимая Label1(y) имела те же координаты, что и основная, и от нее уже вниз выводились остальные. То есть у основной Label координаты Left=8700, Top=2040, а у выводимой - Left=8800, Top=2100 (а не нуль). Ну и естественно остальные Label соответственно вниз на Тор=400 0