VBNet - Форум - Инструмент полоса прокрутки

Вопрос: Инструмент полоса прокрутки Добавлено: 09.06.06 07:51

Автор вопроса: Ganst

Здравствуйте!

На форме помещена кнопка, текстовое поле и горизонтальная полоса прокрутки.
Когда перемещаем ползунок, то в текстовом поле изменяется скорость.
В общем когда я перемещаю ползунок числа не меняются в поле, а они должны меняться. Что-то надо добавить.

Вот мой код:
Private Sub Command1_Click()
End
Beep
End Sub

Private Sub HScroll1_Change()
Text1.Text = Str(HScroll1.Value) + "km/h"
End Sub
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #1	Добавлено: 09.06.06 11:26
	Смотря как перемещаешь. Ибо у скролла есть еще событие Scroll... Ответить

Номер ответа: 2 Автор ответа: Softer ICQ: 203660381 Вопросов: 29 Ответов: 205	Web-сайт: hware.org.ua Профиль \| \| #2	Добавлено: 09.06.06 12:24
	Private Sub Command1_Click() End Beep End Sub А ты хоть раз слышал чтоб ета прога BEEP-нула? Ответить

Номер ответа: 3 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848	Профиль \| \| #3	Добавлено: 09.06.06 12:30
	Запрограммируй событие HScroll1_Scroll, а Beep поставь перед End. Ответить

Номер ответа: 4 Автор ответа: Ganst Вопросов: 3 Ответов: 3	Профиль \| \| #4	Добавлено: 09.06.06 13:35
	Запрограммируй событие HScroll1_Scroll Т.е. как это сделать Ответить

Номер ответа: 5 Автор ответа: Z_of_X ICQ: 997550 Вопросов: 5 Ответов: 18	Профиль \| \| #5	Добавлено: 10.06.06 01:49
	Private Sub HScroll1_Change() замени на Private Sub HScroll1_Scroll() Ответить

Номер ответа: 6 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #6	Добавлено: 10.06.06 21:21
	Private Sub HScroll1_Change() Text1.Text = Str(HScroll1.Value) + "km/h" End Sub Private Sub HScroll1_Scroll() HScroll1_Change End Sub Ответить

Номер ответа: 7 Автор ответа: Nj ICQ: 223663115 Вопросов: 21 Ответов: 285	Профиль \| \| #7	Добавлено: 11.06.06 00:02
	Да и насчет Енд: Private Sub Command1_Click() End 'тут же (вот прямо в этом месте) прерывает (убивает) программу Beep 'А это все уже не выполняется - имей ввиду End Sub Ответить

Страница: 1 |