Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Текстовый редактор и сохранение файла
|
|
Всем доброго времени суток! =)
Решил написать свою первую статью, точнее выложить скрипт.В архиве есть сама программа, исходник и отдельный код.
Суть программы:
Пишешь такст в текстовом поле и сохраняешь в выбранную папку, при этом выбираешь имя и расширение файла.
Уловили? Ок, дальше.
И так, создаем новый проект, выкидываем на форму:
DirListBox
DrivListBox
Label
4 TextBox'a
CommandButton
Добавили? Ок да? Дальше.
У вас должно получиться примерно такая картина: 
Получили? Хорошо.
Настраиваем элементы:
Дадим кнопке капт " Сохранить".
TextBox1 убираем текст
TextBox2 убираем текст
TextBox3 пишем текст " Имя файла"
TextBox4 пишем текст " Формат"
Label1 пишем капт " Подсказки"
Заходим в код формы и вставляем код:
Private Sub Form_Load() 'Пи загрузке формы' PathSearch = App.PathDrive1.Drive = PathSearchDir1.Path = PathSearch End SubНе закрывайте окно кода, перейдите в General и вставьте код:
Option ExplicitDim PathSearch As String 'переменная для хранения значения пути Dim DiskName As String 'переменная для имени дискаНастраиваем кнопку:
Private Sub Command1_Click() 'делаем кнопку сохранения' Open (Text1.Text & Text3.Text & "." & Text4.Text) For Output As #1 Print #1, Form1.Text2 Close #1 Label1.Caption = " Фаил сохранен" 'Выдает подсказку' End SubТеперь настраиваем DirListBox:
Private Sub Dir1_Change()Text1.Text = Dir1.Path & " " 'делаем отображение папки в TextBox' End SubНастраиваем DriveListBox:
Private Sub Drive1_Change() 'нужно для того, чтобы указать путь к другому диску. если просто использовать DirListBox, то мы сможем ориентироваться только в диске С' DiskName = Drive1.DriveDir1.Path = DiskName & " " End SubНастраиваем подсказки. Подсказки будут отображаться в Label. Также делаем так, чтобы при клике на имя файла и Формата, они исчезали. Дабы это сделаем для удобства.
Пишем код:
Private Sub Text1_Click()Label1.Caption = " Путь к файлу" 'подсказка' End Sub Private Sub Text2_Click()Label1.Caption = " Текст поле" 'подсказка' End Sub Private Sub Text3_Click()Text3.Text = " " Label1.Caption = " Введите имя файла" 'подсказка' End Sub Private Sub Text4_Click()Text4.Text = " " Label1.Caption = " Например: 'txt', 'html' без кавычек" 'подсказка' End Sub