Запуск UserForm2:
Сначала проверяется наличие рассчитанных значений в соответствующих окнах Textbox,при отсутствии хотя бы одного числа программа выдает предупреждающее окно.Если же все значения присутствует,то программа открывает Userform2.
Private Sub CommandButton3_Click()
If TextBox5.Text = Empty Or TextBox6.Text = Empty Or TextBox7.Text = Empty Or TextBox8.Text = Empty Or TextBox9.Text = Empty Or TextBox10.Text = Empty Or TextBox11.Text = Empty Then
MsgBox "Подсчитайте итоги", vbCritical, "Ошибка"
Else
UserForm2.Show
End If
End Sub
Выход из UserForm1 :
Выход осуществляется при нажатии кнопки Commandbutton4(ВЫХОД) и при помощи команды Unload UserForm1
Private Sub CommandButton4_Click()
Unload UserForm1
End Sub
3
.3.3.Результаты
работы формы (заполненная форма)
3
.4.Общий
вид формы “Параметры диаграммы”
3.4.1.Описание элементов управления, представленных на форме, их назначение и уникальные имена, используемые в процедурах
В данной форме мы использовали следующие элементы управления пользовательской формы: Label, CommandButton , TextBox, Optionbutton, Frame, Checkbox.
Label (надпись) используется для отображения надписей, например, заголовков элементов управления.
TextBox (поле) используется для ввода текста пользователем.
CommandButton (кнопка) используется для запуска программы построения диаграммы.
Frame используется в качестве контейнера для группирования элементов управления.
Checkbox используется для выбора элементов, необходимых для построения диаграммы.
3.4.2Описание функционирование формы (события) с приведением листинга соответствующих процедур Инициализация формы:
При помощи команды CheckBox1.Value = True отображается флажок в соответствующем CheckBox.
Private Sub UserForm_Initialize()
CheckBox1.Value = True
CheckBox2.Value = True
CheckBox3.Value = True
CheckBox4.Value = True
CheckBox5.Value = True
CheckBox6.Value = True
End Sub
Изменение цвета Checkbox при выборе либо снятии флажка:
Если флажок стоит то соответствующее текстовое выражение(Label оно же “t” в моей программе)горит благодаря команде t1.Enabled = True в противном случае оно затухает.
Option Explicit
Dim rez As String
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
t1.Enabled = False
Else
t1.Enabled = True
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = False Then
t2.Enabled = False
Else
t2.Enabled = True
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = False Then
t3.Enabled = False
Else
t3.Enabled = True
End If
End Sub
Private Sub CheckBox4_Click()
If CheckBox4.Value = False Then
t4.Enabled = False
Else
t4.Enabled = True
End If
End Sub
Private Sub CheckBox5_Click()
If CheckBox5.Value = False Then
t5.Enabled = False
Else
t5.Enabled = True
End If
End Sub
Private Sub CheckBox6_Click()
If CheckBox6.Value = False Then
t6.Enabled = False
Else
t6.Enabled = True
End If
End Sub