Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
💸 Как сделать бизнес проще, а карман толще?
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
|
|
Процедура для команды сохранить как
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
Данная страница нарушает авторские права?