Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.83
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.83

Private Sub CornmandButton2 Click () 1 Процедура закрытия диалогового окна UserForml.Hide End Sub

Private Sub OptionButtonl_Click!)

1 Процедура скрывает название, поле и

* счетчик для ввода

' кратности амортизации

Labelб.Visible = False TextBox6.Visible = False SpinButtonl.Visible = False End Sub

Private Sub 0ptionButton2_Click()

1 Процедура делает видимыми название, поле для ввода

4 кратности амортизации и счетчик

Label б.Visible = True TextBox6.Visible = _

True SpinButtonl.Visible = True End Sub

Private Sub SpinButtonl Change()

1 Процедура вводит значение счетчика в поле ввода TextBox6.Text = CStr(SpinButtonl.Value) ) End Sub

Private Sub UserForm.Initialized

' Процедура активизирует диалоговое окно

* Расчет амортизации

' При инициализации окна выбран х первый переключатель OptionButtonl.Value = True

' Первоначально название, поле и счетчик для ввода х кратности амортизации не отображаются Л в диалоговом окне

18. Расчет амортизации

TextBox5.Enabled = False TextBox6.Visible = False

Label6.Visible = False SpinButtonl.Visible = False

' Минимальное значение и шаг,

х с которым изменяются значения счетчика

With SpinButtonl.Min = 2 .SmallChange = 2

End With

1 Функция кнопки Отмена выполняется по умолчанию

CommandButton2.Default = True

' Нажатие клавиши Esc эквивалентно

* нажатию кнопки Отмена CommandButton2.Cancel = True

' Функция кнопки Вычислить выполняется

* по нажатии клавиш Alt+D

* или на русской клавиатуре Alt+B CommandButtonl.Accelerator = "D"

1 Функция кнопки Отмена выполняется х по нажатии клавиш Alt+J

* или на русской клавиатуре Alt+0 CommandButton2.Accelerator = "J" UserForml.Show

End Sub

Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications

Рис. 18.4. Отчет, выводимый на рабочем листе программой расчета амортизации

Программирование в среде Visual Basic for Applications

При написании программ с внедренными графическими объектами лучше всего воспользоваться средством MacroRecorder.

Для активизации MacroRecorder выберите команду Сервис/Макрос/Начать запись и запустите MacroRecorder на запись. После задания всех параметров в появившемся диалоговом окне Запись макроса и нажатия кнопки ОК появится плавающая панель инструментов с кнопкой Остановить запись. Теперь все производимые действия будут записываться до тех пор, пока не будет нажата эта кнопка. Выполните построение объекта WordArt по следующему алгоритму:


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta