Книга: Офис програмиране
Този учебник е написан в съответствие с държавната програма за изучаване на дисциплината за средни специализирани учебни заведения по специалността 230103 "Автоматизирани системи за обработка и управление на информация".
Ръководството предоставя достатъчно материал за провеждане на практически занятия по дисциплината, както и основния теоретичен материал, необходим за изучаване на определен проблем. Въз основа на предложения материал е възможно да се изгради провеждането на различни видове класове.
Учебникът има за цел да подпомогне пълноценното изучаване на тази дисциплина, отговаряйки на изискванията на държавния стандарт за дисциплината.
Предназначен е за учители и студенти от средни специализирани учебни заведения и може да се използва и от студенти от висши учебни заведения, изучаващи тази дисциплина.
Урокът обхваща повече от 60 задачи, придружени от 130 рисунки и подробни обяснения.
Книга: Офис програмиране
4.2. Контроли ComboBox, OptionButton и Frame
Секции на тази страница:
4.2. Контроли ComboBox, OptionButton и Frame
Комбинирана кутия
КонтролирайтеCellIn
(разгъващ се списък) се създава с помощта на съответния елемент. КонтролатаCostBoxсе използва за съхраняване на списък със стойности. Той съчетава функционалността наListBoxиTextBox.За разлика от контролатаListBox,, контролатаCostBoxпоказва само един елемент от списъка. Освен това той няма режим на множествен избор за списък, но ви позволява да въведете стойност, като използвате поле за въвеждане, точно както прави контрола.Текстово поле.
Свойствата на обекта ComboBox, като ListIndex, ListCount, Enabled, List и методите Clear, RemoveItem и AddItem са подобни на съответните свойства и методи на ListBox. В допълнение, той има редица уникални свойства:
DropButtonStyle - задава външния вид на падащия списък. Валидни стойности:
• fmDropButtonStylePlain – бутон без символи;
• fmDropButtonStyleArrowDisplays – бутон със стрелка;
• fmDropButtonStyleEllips – бутон с елипса;
• fmDropButtonStyleReduce – бутон с линия.
ListRows - задава броя на елементите, показвани в падащия списък.
MatchRequired - Валидни стойности са True (не могат да се въвеждат стойности) и False (в противен случай).
MatchFound - валидни стойности: True (има елемент сред елементите на падащия списък, който съответства на въведения в полето за въвеждане на падащия списък) и False (в противен случай).
Превключване и рамка
КонтролБутон за опции
(превключвател) се създава с помощта на съответния елемент. Тя ви позволява да изберете една от няколко взаимно изключващи се опции или действия. Бутоните за избор обикновено се показват в групи, като предоставят опция за избор на алтернативна опция (вижте раздел 3.3).
КонтролРамка
(рамка) се създава с помощта на съответния елемент. Използва се за визуално групиране на контроли. Основното свойство на рамката еcaption,което показва надписа на рамката.
Проблеми при подсилване на материала
Пример 22.[1] Създайте програма, която позволява, когато изберете формата на няколко числа от списъка, да извършите сумиране, да намерите произведението или средната стойностстойност в зависимост от избора на действие (операция).
Натискането на бутона "Изчисли" трябва да доведе до извършване на избраната операция върху избраните числа и извеждане на резултата в полето "Резултат" (фиг. 40).
Фиг. 40. Проектирана форма от пример 22 в работно състояние
Технология на изпълнение
Нека обсъдим как програмата по-долу решава изброените точки на проблема и какво се случва в програмата.
1. Активира диалоговия прозорец
2. Забранява въвеждането на данни в полетоРезултат.
3. Асоциира се с бутониИзчислииЗатвори, както и с подсказки за радио бутони
Натискането на бутонаИзчислистартира процедуратаCommandButton1_Click
Определя кой радио бутон е избран. В зависимост от избрания превключвател, извършва действие върху номерата, избрани в списъка. Намереното число се показва в полетоРезултат
Натискането на бутонаCloseстартира процедуратаCommandButton2_Click
Затваря диалоговия прозорец
Процедурата с натискане на бутон"Изчисли"извършва изчисления с елементите от списъка в зависимост от избраната операция. Въвеждат се променливите n и i, където n играе ролята на брояч на броя избрани елементи от списъка, а i е спомагателна променлива. Въведени са и променливи, които ще съдържат резултата от изчисленията:sum, productиaverage. Всички получени изчисления се присвояват на променливатаРезултат, която се показва в текстовото поле.
Процедура за натискане на бутона Изчисли
Private Sub CommandButton1_Click()
Dim i като цяло число
Dim n като цяло число
Dim Sum като двойно
Dim Artwork като двойно
Dim Mean AsДвойна
Dim Резултат като двойно
' Избирането на първия бутон за избор изчислява сумата
Ако OptionButton1.Value = True Тогава
За i = 0 To.ListCount - 1
Сума = Сума +.List(i)
' Когато е избран вторият радио бутон, се изчислява произведението на избраните елементи
Ако OptionButton2.Value = True Тогава
За i = 0 To.ListCount - 1
Продукт=Продукт *.Списък(i)
' Избирането на третия бутон за избор изчислява средното аритметично
Ако OptionButton3.Value = True Тогава
За i =0 To.ListCount - 1
Средно = Средно + .List(i)
Резултат = средно /n
Получената стойностРезултатсе показва в текстовото поле
TextBox1.Text = CStr(Format(Result, "Fixed"))
Процедура при щракване върху бутона за затваряне
Private Sub CommandButton2_Click()
Процедурата за инициализиране на диалоговия прозорец се състои в попълване на списъка и показването му във формуляра, организиране на изскачащи подсказки и забрана на въвеждане на текст в полето за резултат на формуляра.
Private Sub UserForm_Initialize()
Списък = масив (1, 3, 4, 5, 6, 7, 8, 10)
ListIndex = 0 'начален индекс на масив
' Първоначален избор на радиобутонаСумапри инициализиране на диалоговия прозорец и задаване на текста на подсказката за радио бутоните С OptionButton1.Value = True
ControlTipText ="Сума от избраните елементи"
OptionButton2.ControlTipText = "Продукт от избрани елементи"
OptionButton3.ControlTipText = "Средна стойност на избраните елементи"
' Полето за резултат не е достъпно за потребителя
' Присвоете функция на бутонаИзчисликъм ключа и задайте текст на подсказка
ControlTipText = "Намиране на резултат"
' Задайте функцията на бутона за затваряне на клавиша и задайте текста на подсказката
' Задайте заглавието на потребителската форма
UserForm1.Caption = "Операции върху елементи от списък"
Забележка:Интересна характеристика на тази процедура за инициализация на UserForm_initialize е, че заглавието на диалоговия прозорец се въвежда програмно чрез свойството Caption, вместо ръчно чрез прозореца Properties.
Пример 23. Разработете програма за намиране на GPA на учениците, избрани от списъка в диалоговия прозорец GPA. Списъкът съдържа фамилното име на ученика и неговия среден резултат (двумерен масив) (фиг. 41).
Фиг. 41. Проектирана форма по пример 23 в работно състояние
Освен това за всяка контрола трябва да напишете процедури за внедряване на подсказки.
Обърнете се към бележките по-долу, докато изпълнявате заданието.