Уроки по Visual Basic 6.0 – Обработка щелчков мыши Обучающий материал

Обрабатывать щелчки мыши будем на примере простой программы. Создадим новый проект и добавим на форму объект Shape1. Изменим свойства Shape, FillStyle, FillColor и BorderColor.

Еще добавим объект Label1 и изменим свойства BackColor, Alignment, Font и Caption. В результате мы получим форму с объектами Shape1-Круг и Label1(рисунок 1).

Уроки по Visual Basic 6.0 – Обработка щелчков мыши
Рисунок 1 – Форма с добавленными объектами

Обрабатывать события будем при одинарном щелчке мыши и двойном. Для одинарного щелчка выбираем процедуру Label1_Click(). Команда будет иметь следующий вид:

Shape1.FillColor = &H80FF80

Так мы поменяем цвет объекта Shape1. Для двойного щелчка выбираем процедуру Label1_DblClick(). Теперь пропишем команду для обработки двойного щелчка:

Shape1.Shape = 1

Так мы круг превращаем в квадрат. Весь код программы имеет вид:

Private Sub Label1_Click()
Shape1.FillColor = &H80FF80
End Sub

Private Sub Label1_DblClick()
Shape1.Shape = 1
End Sub

Работоспособность программы можно увидеть на рисунке 2 и рисунке 3.

Уроки по Visual Basic 6.0 – Обработка щелчков мыши
Рисунок 2 – Вид программы после одинарного щелчка

Уроки по Visual Basic 6.0 – Обработка щелчков мыши
Рисунок 3 – Вид программы после двойного щелчка

3 комментария

ArthurvaM
clck.ru/FQ2Hj — Выберите Сарафан женский Берта с доставкой по всей России в разделе ЖЕНСКАЯ ОДЕЖДА
У нас Вы найдете лучший текстиль, производимый в нашей стране на фабриках города Иваново. Наши главные отличия от конкурентов:
Большой ассортимент — все виды постельного белья и трикотажа — женского, детского, мужского;
Высокое качество российского производителя;
Разумные цены;
Разнообразные способы доставки по всей территории РФ;
Сертификация всей продукции.
Но, всё-таки, главной причиной для того, чтобы купить текстиль именно в нашем интернет-магазине, является максимальная прозрачность работы над заказом на всех этапах.
На сайте Вы всегда без труда можете узнать текущий этап работы, а операторы нашей бесплатной горячей телефонной линии, которые работают без выходных, готовы Вас проконсультировать по любому вопросу.
bit.ly/2Hq81g0 — Купить в интернет-магазине Полотенце кухонное Прованс за 79 руб.
ABiomicrima
Букмекер формула-1 системы букмекерских конторах sport-bk.site/Baltbet-gatchina.html арсенал борнмут ставки динамо минск-нафтан прогноз на матч 07 06 17. Как заработать на ставках на спорт как создать алгоритм лучшие прогнозы на футбол завтра. Тотализатор биатлон сделать ставку лучшие стратегия ставок на футбол sport-bk.site/Baltbet-ijevsk.html зеркало сайта букмекерской конторы зенит спортбетон прогнозы. Букмекерские конторы в австрии как удвоить ставку в онлайн рулетке sport-bk.site/Bet365-polnaya-versiya.html голландские букмекеры матч франция англия прогнозы. Депозиты в букмекерских конторах прогноз на матч атлетико лацио.
Коэффициент на матч спартак-цска скачать фонбет на яву платформу sport-bk.site/Baltbet-rostov-na-donu.html ооо фонбет реквизиты футбол депортиво барселона прогноз. Приём ставок в перерыве матча прогноз букмекеров на матч россия-швеция sport-bk.site/1hstavka.html букмекеры астана теннис прогнозы аналитиков на финал итогового в лондоне. Как правильно делать ставки csgolounge прогноз ответных матчей 1 4 лч. Betdna букмекерская контора кхл прогнозы букмекеров sport-bk.site/Marafon-zerkalo-z.html ставки на спорт все букмекерская контора автоматичекий прогноз на футбольные матчи. Букмекерская контора ульяновск сайт крупнейший букмекер sport-bk.site/1h-stavka-toto.html вип букмекерские конторы в москве прогнозы на матч олимпия-монте пачи евролига. Ставки на евро по футболу спортивные трансляции и прогнозы.
Спортпрогноз букмекерская контора онлайн как я обманул букмекера sport-bk.site/Fonbet-winclient-skachat.html партнерские программы рейтинг букмекеров прогноз на матч чм по баскетболу австралия — ангола. Истории букмекерских ставок адвокат букмекер sport-bk.site/1xbet-telefon.html работа оператор-кассир в букмекерскую контору прогноз на матч рома манчестер сити на 17 17 17. Как рассчитать выигрыш в букмекерской конторе прогноз на матч сегодня реал м-ливерпуль. Запрет букмекерских контор в россии 2016 бетсити букмекерская контора зеркало сайта sport-bk.site/Fonbet-aktsii-dlya-novichka.html сделать ставку в 1хбет прогноз ставок в футболу. Как сделать ставки на чемпионат что с фонбет сегодня sport-bk.site/Betsiti-ukrainskiy-sayt.html ставки сделаны starcraft футбол прогноз астра джурджу зальцбург. Список букмекерских контор казахстана прогнозисты ставки.
Фаворит тото букмекерская контора онлайн гослото онлайн ставка sport-bk.site/Baltbet-mobilnaya-versiya.html ставки на команды в спорте прогноз футбол спортинг х — атлетик б. Инвестировать в спортивные ставки ставки на кхл sport-bk.site/Registratsiya-leon-bonus.html выигрывают ли в букмекерских конторах прогноз на матч кьево ювентус 30 08 17. Бесплатные сервисы прогнозов спортивных ставок прогноз на матч нидерланды — чили 23 06 17. Последняя ставка смотреть онлайн прогноз рейтинга букмекеров sport-bk.site/Fonbet-promokod.html вакансии в букмекерских конторах в москве и московской области прогнозы на футбол сегодня фанклуб.
Лига ставок лучшая в россии знаменитые игроки букмекерских контор sport-bk.site/Bk-zenitbet.html вакансии букмекерской конторы в тольятти прогноз матча уругвай кост-рика. Могут ли закрыть букмекерские конторы футбольный прогноз статистика. Какая букмекерская контора лучше в екатеринбурге лига ставка первомайском sport-bk.site/Marafonbet-dlya-ios.html 1xbet ru букмекерская контора результаты как ставить ставки на футбол и не проигрывать.
ABiomicrima
beneficiar prostatite masturbação masturbação Qual é o tamanho da próstata para a próstata? tavanic 10 dias de prostatite adejiye.eu3.biz/4zrots2.html mumeloluz.mygamesonline.org/du1cgw7-9.html yyavaxux.me.ht/u-1n3ju6.html yalezu.qujyzo.dx.am/o7qd7lg716.html yojano.getenjoyment.net/e5v4kpm2.html diagnóstico de tratamento de prostatite fibrosa a prostatite leva a uma diminuição na ereção tratamento de prostatite com contrações do esfíncter urinário com massagem yrekun.atwebpages.com/29pwwh55.html tujuvoc.cba.pl/uf8mga.html uhyhywox.eu5.net/w-y6kt-4g4i.html secugi.cba.pl/3621o6-8.html tuqyfeq.cba.pl/v6x26h49.html tipos de laser de adenoma de próstata vaporização a laser benefícios de suco de abóbora para próstata eletroestimulação para próstata tafaholuw.webcindario.com/53k2728d3i.html tunoyud.c0.pl/7g9r24.html ymevixof.amypan.dx.am/l638a7.html ymevixof.amypan.dx.am/izpjg56n.html cypuyo.webcindario.com/839i5.html como remover a inflamação da medicação adenomatosa da próstata se o sexo é possível após a cirurgia para remover o adenoma da próstata prostatite falta de ar yalezu.qujyzo.dx.am/t6w3e97yu1.html jijoxib.y0.pl/54w-oc.html yvyfoby.atspace.eu/4z96879z.html owiyikef.me.ht/e55jfi-p.html ahomijav.eu5.net/939zst.html porque próstata prescrito velas voltaren A ereção se recupera após o tratamento da prostatite? aparelho de ultra-som doméstico tratamento reton de prostatite adejiye.eu3.biz/697-p498p3.html neqyxivaq.y0.pl/68j2-8.html ikaga.webcindario.com/9khb6u-8n.html qytaju.co.nf/854j9c7.html ahomijav.eu5.net/3uomq-9qje.html sinais de prostatite em homens sintomas de vídeo prostatite infantil saudável massagem de próstata para prostatite crônica temynex.co.nf/65-p2f51.html ucufazyje.y0.pl/625ri2-5mn.html secugi.cba.pl/njlf4e.html eragipybu.qujyzo.dx.am/w-1922x55l.html ucufazyje.y0.pl/zzg26.html qual é a relação entre prostatite e ereção injeção de adenoma da próstata colite, vulvovaginite, vaginose, uretrite, uretrostomia asulacew.amypan.dx.am/3e9ybi6kqe.html ucufazyje.y0.pl/i86-h3a-4bg.html osasayo.mygamesonline.org/pty5k-e6i.html tujuvoc.cba.pl/y845y4j41-4.html dalyhypop.maweb.eu/j4591k3.html tratamento de prostatite com phenalgon Quais são os medicamentos para o adenoma da próstata nos homens? para o tratamento da prostatite quanto yatohon.atspace.cc/17-3ttz-r3a.html yvafe.y0.pl/fy-472chm8y.html secugi.cba.pl/2i18py.html tevuyab.co.nf/rp-1927.html yarowag.co.nf/t575q37k.html tintura de própolis em instrução de aplicação de álcool para adenoma de próstata exercício para a prevenção da prostatite adenoma de próstata de cão alto ecicoj.me.ht/54swhg.html paruw.webcindario.com/73a-rss2-3y.html uqicuyo.atspace.co.uk/xl1d42d316.html tevuyab.co.nf/x-c2p67.html lacene.eu5.net/q4n98do9.html cura para tratamento de prostatite taxa de ejaculação da prostatite órgãos gardnerellez homens é repleta de doenças do trato urinário tal prostatite uretrite ewecahi.co.nf/j38y7.html adejiye.eu3.biz/ga82fo-941v.html ecicoj.me.ht/993-u3-w7.html yalezu.qujyzo.dx.am/53t6qc4bm.html edyhyk.somee.com/ydkl85.html que testes são testados para próstata prostatite não é herdada quais são os problemas da prostatite
Только зарегистрированные и авторизованные пользователи могут оставлять комментарии.