Kнопки управления в VB

@FRIM@N · Регистрация: 23.12.2010

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

Eсть исходник программы который мне нужно приписать к своей программке но есть проблемма объектов CommandButton на форме только 3 первый из них имеет 7 клонов которые заисаны в инспекторе вот так CommandButton1(5) это так сказать 5 тый,просто копируя код у меня выходит ошибка на событии Private Sub Command1_Click(Index As Integer) даже без нажатия --наверняка эти клоны были сделаны каким -то хитрым образом --кто знает поведайте каким

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
OPTION Explicit
Private i, k AS INTEGER
Private BufferPort  AS STRING
Private LED_on(8) AS Boolean
 
 
 
Private SUB Form_Load()
        FOR i = 0 TO 7
        LED_on(i) = False
        NEXT i
        MSComm1.CommPort = 1
        MSComm1.Settings = "115200,N,8,1"
        MSComm1.PortOpen = True
        MSComm1.RTSEnable = True
        MSComm1.DTREnable = True
        
END SUB
Private SUB Command1_Click(Index AS INTEGER)
LED_on(Index) = True
Command1(Index).BackColor = vbRed
END SUB

@gaw · 12.02.2011, 20:08

Visual Basic
1
2
LED_on(Index-1) = True
Command1(Index).BackColor = vbRed

@FRIM@N · 12.02.2011, 20:56 **[ТС]**

он по прежнему подсвечивает Private Sub Command1_Click(Index As Integer)
и поле Index как будто под числовое значение , а не под True\False
И если выпилить из скобок Index As Integer то программа компилируется но кнопка 1 и если нажать ошибка

@gaw · 12.02.2011, 21:54

Сообщение от FRIM@N

CommandButton1(5)

Сообщение от FRIM@N

Command1

и тут вопрос

@FRIM@N · 12.02.2011, 22:04 **[ТС]**

какой вопрос?
у автора исходника 8 кнопок Command1_Click. в инспекторе объектов отображается как

CommandButton1(0)
CommandButton1(1)
CommandButton1(2)
CommandButton1(3)
CommandButton1(4)
CommandButton1(5)
и так еще несколько

@gaw · 12.02.2011, 22:10

CommandButton1(5)-----Command1(5)

@FRIM@N · 12.02.2011, 22:21 **[ТС]**

Command1(5)CommandButton

вот так я ошибся в описании

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

@gaw · 12.02.2011, 22:26

Сообщение от FRIM@N

просто копируя код

а у тебя сколько Command1

Добавлено через 1 минуту

Сообщение от FRIM@N

наверняка эти клоны были сделаны каким -то хитрым образом --кто знает поведайте каким

копируй Command1 на форме и там же вставляй, соглашаясь на создание массива

@FRIM@N · 12.02.2011, 22:49 **[ТС]**

Все понял,спасибо

Добавлено через 22 минуты
можно еще 1 вопрос

Visual Basic
1
2
3
For i = 0 To 7
        LED_on(i) = False
        Next i

вот формируется некий массив (по моему это называется так) как мне по умолчанию без нажатия кнопок CommandButton последние 2 бита сделать по умолчанию нулями? т.е. что бы не было на форме 2 лишних кнопок

@gaw · 12.02.2011, 23:02

Private LED_on(8) AS Boolean и больше ничего делать не надо (если последние 2 бита в дальнейшем меняться не будут)

@FRIM@N · 12.02.2011, 23:57 **[ТС]**

то есть просто убрать лишние кнопки и все?
и еще вот в этой строчке Command1(i).BackColor = &H80000000 я меняю цвет кнопок обратно на серый (после нажатия они красные,после сброса снова серые)
но программа подсвечивает в этом месте ошибку,хотя при первом запуске этого не было

Visual Basic
1
2
3
4
5
6
Private Sub Command3_Click() 'Обнуление
For i = 0 To 7
LED_on(i) = False
Command1(i).BackColor = &H80000000
Next i
End Sub

@gaw · 13.02.2011, 00:01

FOR i = 0 TO 7----7 по количеству кнопок

@FRIM@N · 13.02.2011, 13:23 **[ТС]**

это понятно но в порт то все равно будет отправлятся 8бит?

@FRIM@N · 04.03.2011, 19:06 **[ТС]**

а как управлять клонами?

Visual Basic
1
2
3
Private Sub Command1(0)_Click(Index As Integer)
       ' необходимое действие 
End Sub

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

Visual Basic
1
2
3
Private Sub Command1_Click(Index As Integer)
      
End Sub

как быть?

@gaw · 04.03.2011, 20:17

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 1
'...............
Case 2
'.............
'.
'.
End Select
End Sub

@FRIM@N · 05.03.2011, 12:57 **[ТС]**

Case 2 все что после этого опер. действие которое будет происходить после нажатия соответствующего клона?А как осуществить такое условие

Visual Basic
1
2
If Button1(0).Enabled = True Then
Button1(1).Enabled = False

вот так?

Visual Basic
1
2
Case 1.Enabled = True Then
Case 2.Enabled = False

т.е. что-бы запретить одновременное нажатие 2 кнопок-клонов

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@FRIM@N 0 / 0 / 0 Регистрация: 23.12.2010 Сообщений: 51
	12.02.2011, 20:56 [ТС]
	он по прежнему подсвечивает Private Sub Command1_Click(Index As Integer) и поле Index как будто под числовое значение , а не под True\False И если выпилить из скобок Index As Integer то программа компилируется но кнопка 1 и если нажать ошибка 0

@FRIM@N 0 / 0 / 0 Регистрация: 23.12.2010 Сообщений: 51
	12.02.2011, 22:04 [ТС]
	какой вопрос? у автора исходника 8 кнопок Command1_Click. в инспекторе объектов отображается как CommandButton1(0) CommandButton1(1) CommandButton1(2) CommandButton1(3) CommandButton1(4) CommandButton1(5) и так еще несколько 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	12.02.2011, 22:10
	CommandButton1(5)-----Command1(5) 0

@FRIM@N 0 / 0 / 0 Регистрация: 23.12.2010 Сообщений: 51
	12.02.2011, 22:21 [ТС]
	Command1(5)CommandButton вот так я ошибся в описании но все равно не понимаю как это все соорудить, я пробовал переименовывать вручную,бейсик ругается 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	12.02.2011, 23:02
	Private LED_on(8) AS Boolean и больше ничего делать не надо (если последние 2 бита в дальнейшем меняться не будут) 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	13.02.2011, 00:01
	FOR i = 0 TO 7----7 по количеству кнопок 0

@FRIM@N 0 / 0 / 0 Регистрация: 23.12.2010 Сообщений: 51
	13.02.2011, 13:23 [ТС]
	это понятно но в порт то все равно будет отправлятся 8бит? 0