Програмирование на Visual BasicРефераты >> Кибернетика >> Програмирование на Visual Basic
Sub Form_Resize ()
txtEditBox.Height = ScaleHeight txtEditBox.Width = ScaleWidth
End Sub
Sub mnuEditCopy_Click ()
Clipboard.Clear 'очистить буфер
Clipboard.SetText txtEditBox.SeiText
'поместить 'выделенный текст в буфер End Sub
Sub mnuEditCut_Click ()
Clipboard.Clear 'очистить буфер Clipboard.SetText txtEditBox.SeiText
'поместить 'выделенный текст в буфер txtEditBox.SeiText = “”
'удаление выделенного
'текста End Sub
Sub mnuEditPaste_Click ()
txtEditBox.SeiText = Clipboard.GetText() End Sub
Sub mnuFileExit_Click ()
If MsgBox(“Выход?”,1+32,”Подтвердить”)=lThen End
End Sub
Sub mnuHelpAbout_Click ()
MsgBox “Мой редактор на Visual Basic”,64,”О программе” • End Sub
Sub Form_Unload (Cancel As Integer)
Cancel = 1
mnuFileExit_Click End Sub Процедура Form_Resiy (обработка события изменения размера формы) обеспечивает автоматическое изменение размеров текстового окна при изменении размеров формы. Процедура mnuEditCopy_Click (обработка события щелчка мыши по пункту меню “Копировать”) обеспечивает запись выделенного текста в буфер. Используются рассмотренные выше методы для объекта Clipboard и методы для текстового окна (операторы Clipboard. Clear и Clipboard.SetText txtEditBox. SeiText). Во втором операторе txtEditBox. SeiText присваивается выделенный текст. 
Рис. 2.29 Процедура mnuEditCut_Click (обработка события щелчка мыши по пункту меню “Вырезать”) обеспечивает перед удалением сохранение выделенного текста в буфере. Процедура mnuEditPaste_Click (обработка события щелчка мыши по пункту меню “Вставить”) обеспечивает вставку текста из буфера (в данном случае отсутствие при вставке выделения означает вставку в позицию курсора). Процедура mniiFileExit_Click (обработка события щелчка мыши по пункту меню “Выход”) обеспечивает выход из редактора. Оператор End обеспечивает корректный выход из приложения (закрывает файлы и освобождает память). В процедуре используется функция MsgBox для вывода окна сообщения. Синтаксис ее применения следующий: MsgBox сообщение [, тип окна] [, заголовок окна] где сообщение - текст сообщения; тип окна - это сумма значений, определяющих число и тип кнопок на диалоговом окне, стиль пиктограмм, используемых в окне, и др. спецификации. В таблице приведены некоторые значения аргументов и их описание:
| Значение типа | Описание |
| 0 | Выводить только кнопку OK |
| | | Выводить кнопки OK и Cancel |
| 2 | Выводить кнопки Abort, Retry, Ignore |
| 3 | Выводить кнопки Yes, No, Cancel |
| 4 | Выводить кнопки Yes, No |
| 5 | Выводить кнопки Retry, Cancel |
| 16 | Выводить пиктограмму “Стоп” |
| 32 | Выводить пиктограмму “?” |
| 48 | Выводить пиктограмму “!” |
| 64 | Выводить пиктограмму информации |
| 0 | Кнопка по умолчанию - первая |
| 256 | Кнопка по умолчанию - вторая |
| 512 | Кнопка по умолчанию - третья |
| 0 | Программное ведущее диалоговое окно |
| 4096 | Системное ведущее диалоговое окно |
| Константа | ||
| vbOK | 1 | ОК |
| 2 | Cancel | |
| vbAbort | 3 | Abort |
| vbRetry | 4 | Retry |
| vblgnore | 5 | Ignore |
| vbYes | 6 | Yes |
| vbNo | 7 | No |
Рис. 2.30 Разработанная программа имеет меню пользователя и обеспечивает функции удаления, вставки и копирования при редактировании и выдачу сообщения о программе (рис. 2.30—2.32). 
Рис. 2.31 
Рис. 2.32 Глава 3. Программирование на VISUAL BASIC 4 3.1. АЛФАВИТ Visual Basic является языком программирования. Как любой другой язык, например, русский, английский или язык программирования Pascal, он имеет свой алфавит, используемый для написания операторов или предложений Visual Basic. Алфавит Visual Basic включает: - 26 латинских букв: А, В, С, D, Е, F, G, H, I, J, К, L, М, N, О, Р, Q, R, S, Т, U, V, W, X, Y, Z;
- 10 арабских цифр: 1, 2, 3, 4, 5, 6, 7, 8, 9, 0;
- 26 символов: !#$%&л*()+-/\<>=?@_|:'.,“ ” пробел.
Скачать реферат
