Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Процедура для команды сохранить как




Private Sub Сохранить_как_Click()CommonDialog1.ShowSavetext1.SaveFile CommonDialog1.FileName End Sub

Я не буду описывать все процедуры остальные как вы уже догадалить добавляются анологично остальным.

Ну вот пожалуй и все вот код редактора

Option ExplicitPublic sFind As String Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) Select Case Button.Key Case Is = " Копировать" Clipboard.ClearClipboard.SetText Form1.text1.SelText Case Is = " Удалить" Form1.text1.SelText = " " Case Is = " Открыть" CommonDialog1.ShowOpentext1.LoadFile CommonDialog1.FileName Case Is = " Сохранить" CommonDialog1.ShowSave If CommonDialog1.FileName = " " Then Сохранить_Click Else text1.SaveFile CommonDialog1.FileName End IfCase Is = " Вырезать" Clipboard.ClearClipboard.SetText Form1.text1.SelTextForm1.text1.SelText = " " Case Is = " Поиск" sFind = InputBox(" × ò î á ó ä å ì è ñ ê à ò ü ", sFind)text1.Find sFind Case Is = " Время" Form1.text1 = Now Case Is = " Шрифт" CommonDialog1.ShowFonttext1.Font.Size = CommonDialog1.FontSizetext1.Font.Bold = CommonDialog1.FontBoldtext1.Font.Name = CommonDialog1.FontNametext1.Font.Underline = CommonDialog1.FontUnderlinetext1.Font.Italic = CommonDialog1.FontItalic Case Is = " Цвет_шрифта" CommonDialog1.ShowColortext1.SelColor = CommonDialog1.Color Case Is = " Строка" Shell " cmd" Case Is = " À дмин" Shell " control userpasswords2" End SelectEnd Sub Private Sub Дата_и_время_Click()Form1.text1 = Now End Sub Private Sub Вставить_Click()Form1.text1.SelText = Clipboard.GetText End Sub Private Sub Выделить_все_Click()text1.SelStart = 0text1.SelLength = Len(text1.Text) End Sub Private Sub Вырезать_Click()Clipboard.ClearClipboard.SetText Form1.text1.SelTextForm1.text1.SelText = " " End Sub Private Sub Выход_Click() EndEnd Sub Private Sub Копировать_Click()Clipboard.ClearClipboard.SetText Form1.text1.SelText End Sub Private Sub Открыть_Click()CommonDialog1.ShowOpentext1.LoadFile CommonDialog1.FileName End Sub Private Sub Сохранить_Click()CommonDialog1.ShowSave If CommonDialog1.FileName = " " Then Сохранить_Click Else text1.SaveFile CommonDialog1.FileName End IfEnd Sub Private Sub Сохранить_как_Click()CommonDialog1.ShowSavetext1.SaveFile CommonDialog1.FileName End Sub Private Sub Удалить_Click()Form1.text1.SelText = " " End Sub Private Sub Цвет_Click()CommonDialog1.ShowColortext1.SelColor = CommonDialog1.Color End Sub Private Sub Открыть_Click()CommonDialog1.ShowColortext1.BackColor = CommonDialog1.Color End Sub Private Sub Шрифт_Click()CommonDialog1.ShowFonttext1.Font.Size = CommonDialog1.FontSizetext1.Font.Name = CommonDialog1.FontNametext1.Font.Bold = CommonDialog1.FontBoldtext1.Font.Italic = CommonDialog1.FontItalictext1.Font.Underline = CommonDialog1.FontUnderline End Sub

 


Данная страница нарушает авторские права?





© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.