Реферат: VBA Платежка

End Sub

Private Sub Выход_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = "Кнопка 'Выход' для выхода из программы. Если решили выйти смело жмите, программа сохранит результаты вашей работы."

End Sub

Private Sub УбитьКлиента_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " Нажав на эту кнопку Вы можете удалить выбранного Получателя из списка Получателей "

End Sub

Private Sub ПоНомеру_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " Введите номер платёжки в расположенное рядом с этой кнопкой небольшое поле. Затем нажмите на эту кнопку и вы перейдёте к платёжке с введённым вами номером. "

End Sub

Private Sub Вконец_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " Нажав на эту кнопку Вы осуществите переход к концу списка платёжек "

End Sub

Private Sub Измениния_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " Нажав на эту кнопку Вы внесёте изменения в список Получателей "

End Sub

Private Sub ДобавитьПол_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " Нажав на эту кнопку Вы внесёте в список Получателей Ваших денег данные о новом Получателе "

End Sub

Private Sub ИзмененияСТ_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " Нажав на эту кнопку Вы можете сохранить изменения в старом платёжном поручении"

End Sub

Private Sub КСтарПл_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " Нажав на эту кнопку Вы можете распечатать Ваше старое платёжное поручения" _

& " Не забудьте выбрать кол-во копий в выпадающем списке рядом с кнопкой"

End Sub

Private Sub СохранитьНов_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = "Эта кнопка предназначена для сохранения созданного платёжного поручения"

End Sub