Воскресенье
04.12.2016
02:50
Категории каталога
общая физика [11]
механика [2]
молекулярная физика и термодинамика [0]
электричество и магнетизм [2]
колебания и волны [4]
оптика, квантовая физика [2]
атомная и ядерная физика [0]
общая информатика [21]
архитектура компьютера [5]
обучение работе с программами [14]
информационные процессы [5]
программирование [6]
моделирование и формализация [3]
коммуникационные технологии [4]
математика [17]
музыка [19]
другие [13]
планы и программы [28]
стихи [2]
аттестация учителей [15]
сценарии к мероприятиям [4]
Форма входа
Поиск
Статистика посещений
Нижний Новгород Online
Проголосуй за наш сайт

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Сопутствующие сайты
Наши сайты: Наши странички на других сайтах: Наши соседи:
Наш опрос
Что заставляет вас учиться?
Всего ответов: 1373
Мини-чат
200
Моим ученикам
Главная » Файлы » текстовые файлы » программирование

ответы к заданиям по VB
[ Скачать с сервера (37.7Kb) ] 09.04.2012, 22:02

  5.2. Форма и размещение на ней управляющих элементов 


5.1.  Проект «Перемещение кнопок по форме» хранится в папке prjZ5_1.1
Изменить код событийных процедур. Код событийной процедуры  cmd3_Click():Private Sub cmd3_Click()cmd3.Left = frm1.Width - cmd3.Widthcmd3.Top = frm1.Height - cmd3.HeightEnd Sub  

5.2.  Проект «Перемещение надписи» хранится в папке prjZ5_2.1
Модернизировать проект «Перемещение кнопок по форме». Поместить на форму метку lbl1 с надписью, например,Перемещение надписи. 2Изменить код событийных процедур. Код событийной процедуры  cmd3_Click():Private Sub cmd3_Click()lbl1.Left = frm1.Width - lbl1.Widthlbl1.Top = frm1.Height - lbl1.HeightEnd Sub  

5.3.  Проект «Перемещение надписи-2» хранится в папке prjZ5_3.1
Модернизировать проект «Перемещение надписи». Удалить кнопки и поместить на форму четыре переключателя (OptionButton). Присвоить им имена opt1, opt2, opt3 и opt4. 2Создать для каждого из переключателей событийную процедуру. Код событийной процедуры  opt3_Click():Private Sub opt3_Click()lbl1.Left = frm1.Width - lbl1.Widthlbl1.Top = frm1.Height - lbl1.HeightEnd Sub   

5.4.  Проект «Перемещение надписи-3» хранится  в папке prjZ5_4.1
Модернизировать проект «Перемещение надписи-2». Удалить переключатели и поместить на форму список (ListBox). 2Активизировать список lst1 и с помощью окна Свойства объекта установить для свойства List перечень значений:·     Левый верхний;·     Правый верхний;·     Левый нижний;·     Правый нижний. 3 Создать событийную процедуру lst1_DblClick(), которая обеспечит перемещение надписи с помощью двойного щелчка по элементу списка. Для реализации перемещений в различные углы формы использовать конструкцию выбора Select Case: Private Sub lst1_DblClick()Select Case lst1.TextCase Is = "Левый верхний"lbl1.Top = 0lbl1.Left = 0Case Is = "Правый верхний"lbl1.Left = frm1.Width - lbl1.Widthlbl1.Top = 0Case Is = "Левый нижний"lbl1.Left = 0lbl1.Top = frm1.Height - lbl1.HeightCase Is = "Правый нижний"lbl1.Left = frm1.Width - lbl1.Widthlbl1.Top = frm1.Height - lbl1.HeightEnd SelectEnd Sub  

5.5.  Проект «Перемещение формы на экране» хранится в папке prjZ5_5.vbp.1
В углах формы разместить четыре кнопки.2Присвоить свойству Name для каждой кнопки следующие значения:cmdUpLeft            - для левой верхней;cmdDownLeft       - для левой нижней;cmdUpRight          - для правой верхней;cmdDownRight   - для правой нижней.3Использовать процедуру Form_Load() для установки значений свойства Caption:Private Sub Form_Load()cmdDownLeft.Caption = "Левый нижний угол”cmdDownRight.Caption = "Правый нижний угол”cmdUpRight.Caption = "Правый верхний угол”cmdUpLeft.Caption = "Левый верхний угол”End Sub4Создать процедуры обработки событий Click для перемещения формы на экране монитора для каждой командной кнопки.Так, при щелчке по кнопке cmdDownLeft необходимо, чтобы нижний край формы совместился с нижним краем экрана. Тогда свойство Top формы будет равно высоте экрана минус высота формы, т. е.frm1.Top = Screen.Height – frm1.HeightСвойство Left формы должно быть равно координате левого края экрана, т.е.frm1.Left = 05Для вывода текста на метке необходимо присвоить свойству Caption соответствующее значение текста:lblVar.Caption="Форма перемещена в левый нижний угол"6Код обработки события Click для кнопки cmdDownLeft будет выглядеть следующим образом:Private Sub cmdDownLeft_Click()frm1.Top = Screen.Height – frm1.Heightfrm1.Left = 0lblVar.Caption="Форма перемещена в левый нижний угол"End Sub7Составьте коды обработки события Click для других кнопок самостоятельно.  

5.6.  Проект хранится в папке prjZ5_6.vbp1Открыть проект prjZ5_5.vbp. 
Для этого ввести команду [File-Open Project…] и с помощью диалоговой панели Open Projectвыбрать проект.2Изменить код  событийных процедур для каждой командной кнопки. Код процедуры для кнопки cmdDownLeft будет иметь следующий вид:Private Sub cmdDownLeft_Click()frm1.Move 0,Screen.Height – frm1.HeightEnd Sub
Категория: программирование | Добавил: mychildren
Просмотров: 711 | Загрузок: 182 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]