![]() Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Робота з прапорцями
Наступний приклад показує, як працюють прапорці в усіх трьох станах: 1. Створіть новий проект командою File > New Project. 2. У вікні властивостей заміните значення властивості Name з Form1 на frmMain. 3. Помістите на форму прапорець. Задайте його властивості Name значення chkOptions, а властивості Caption - текст задайте «начинку для сандвіча»:. 4. Двічі клацніть на прапорці chkOptions, щоб відкрити вікно програми. Виберіть із списків об'єктів і процедур рядка (General) і (Declarations) і додайте наступний фрагмент:
Public PeanutButter As Boolean Public Jelly As Boolean
5. Додайте в процедуру події MouseUp події chkOptions наступний фрагмент: Private Sub chkOptions_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As, Single) frmOptions.Show vbModal If PeanutButter And Jelly Then chkOptions.Value = 1 Exit Sub End If If PeanutButter Or Jelly Then chkOptions.Value = 2 Exit Sub End If
If PeanutButter And Not Jelly Then chkOptions.Value = 3 Exit Sub End If End Sub
6. Клацніть у вікні проекту правою кнопкою миші і виберіть з контекстного меню команду Add > Form. Виберіть нову форму (значок Form) у вікні Add Form. 7. У вікні властивостей задайте властивості Name нової форми значення frmOptions, а властивості Caption - значення Set Options. 8. Створіть на формі frmOptions прапорець. Задайте властивості Name значення chk - PeanutButter, а властивості Caption - значення Арахісове масло. 9. Створіть на формі ще один прапорець. Задайте властивості Name значення chkJelly, а властивості Caption - значення Мармелад. 10. Двічі клацніть на формі frmOptions, щоб відкрити вікно програми. Додайте в процедуру події Load форми наступний фрагмент:
Private Sub Form_Load() If frmMain.PeanutButter Then ChkPeanutButter.Value = 1 Else chkPeanutButter.Value = 0 Забиваем Сайты В ТОП КУВАЛДОЙ - Уникальные возможности от SeoHammer
Каждая ссылка анализируется по трем пакетам оценки: SEO, Трафик и SMM.
SeoHammer делает продвижение сайта прозрачным и простым занятием.
Ссылки, вечные ссылки, статьи, упоминания, пресс-релизы - используйте по максимуму потенциал SeoHammer для продвижения вашего сайта.
Что умеет делать SeoHammer
— Продвижение в один клик, интеллектуальный подбор запросов, покупка самых лучших ссылок с высокой степенью качества у лучших бирж ссылок. — Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта. — Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы). — SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание. SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Зарегистрироваться и Начать продвижение End If If frmMain.Jelly Then chkJelly.Value = 1 Else chkJelly.Value = 0 End If End Sub 11. Додайте в процедуру події Click перемикача chkPeanutButter наступний фрагмент:
Private Sub chkPeanutButter_Click() If chkPeanutButter.Value = 1 Then frmMain.PeanutButter = True Else frmMain.PeanutButter = False End If End Sub
12. Додайте в процедуру події Click перемикача chkJelly наступний фрагмент:
Private Sub chkJelly_Click() If chkJelly.Value = 1 Then frmMain.Jelly = True Else frmMain.Jelly = False End If End Sub
13. Запустіть додаток командою Run > Start. Якщо тепер клацнути на прапорці, що знаходиться на формі frmMain, відкривається діалогове вікно, в якому можна вибрати «начинку для сандвічу», - арахісове масло і мармелад. Одні віддають перевагу сендвічам із двома видами начинки, інші обмежуються чимось одним. Якщо встановити обидва прапорці і закрити діалогове вікно, то прапорець на формі буде встановлений, а якщо вибрати лише один прапорець (арахісове масло або мармелад), він знаходитиметься в невизначеному стані. Якщо взагалі відмовитися від начинки, прапорець буде знятий. Рамки
Сервис онлайн-записи на собственном Telegram-боте
Попробуйте сервис онлайн-записи VisitTime на основе вашего собственного Telegram-бота:— Разгрузит мастера, специалиста или компанию; — Позволит гибко управлять расписанием и загрузкой; — Разошлет оповещения о новых услугах или акциях; — Позволит принять оплату на карту/кошелек/счет; — Позволит записываться на групповые и персональные посещения; — Поможет получить от клиента отзывы о визите к вам; — Включает в себя сервис чаевых. Для новых пользователей первый месяц бесплатно. Зарегистрироваться в сервисе Імена рамок зазвичай мають префікси fга. Рамки повинні поміщатися на форму раніше елементів, що знаходяться усередині них.
|