Программирование
Веб программирование

Текстовый редактор и сохранение файла

 
 

Всем доброго времени суток! =)

Решил написать свою первую статью, точнее выложить скрипт.В  архиве есть сама программа, исходник и отдельный код. 

Суть программы:

Пишешь такст в текстовом поле и сохраняешь в выбранную папку, при этом выбираешь имя и расширение файла.

Уловили? Ок, дальше.

И так, создаем новый проект, выкидываем на форму:
DirListBox
DrivListBox

Label

4 TextBox'a

CommandButton

Добавили? Ок да? Дальше.

У вас должно получиться примерно такая картина:

Получили? Хорошо.

Настраиваем элементы:

Дадим кнопке капт "Сохранить". 

TextBox1 убираем текст

TextBox2 убираем текст

TextBox3 пишем текст "Имя файла"

TextBox4 пишем текст "Формат"

Label1 пишем капт "Подсказки"

Заходим в код формы и вставляем код:

Private Sub Form_Load()  'Пи загрузке формы'
PathSearch = App.Path
Drive1.Drive = PathSearch
Dir1.Path = PathSearch
End Sub

Не закрывайте окно кода, перейдите в General и вставьте код:

Option Explicit
Dim 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.Drive
Dir1.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

Программа готова!

Скачать файл [6604 кб]


Есть вопросы? Спроси на нашем форуме!!
ilyapoh9530 [17.01.2013 01:16]

Вот исходник. подзабыл выложить files.mail.
соедините эти ссылки
ru/E395C8C7697F4BBAAA99C9FA957C28D3

RFSkyliner10 [17.01.2013 02:31]

Ну что, прикольно)

RFSkyliner10 [17.01.2013 02:41]

мда.. немного кривовато работает... когда пытаюсь выбрать другой диск

RFSkyliner10 [17.01.2013 03:07]

вот...нашел в чем ошибка...
ты в архиве написал в процедуре

Private Sub Drive1_Change() 'нужно для того, чтобы указать путь к другому диску. если просто использопать DirListBox, то мы сможем ориентироваться только в диске С'
DiskName = Drive1.Drive
Dir1.Path = DiskName & ""

в кавычках не нужно было писать... хотя на сайте все нормально, мб забыл исправить?)

RFSkyliner10 [17.01.2013 03:09]

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

ilyapoh9530 [17.01.2013 15:08]

Не судите строго, я в первый раз статью пишу, да и программировать недавно начал. Просто когда мне нужно было сделать подобие этой проги, я весь нет перерыл, не нашел. Вот и решил скинуть исходники =)

Stertor, это тема на компе такая =) если интересуешься что за винда, в личку напиши=)

RFSkyliner, не знаю, может и кривой код, но у меня робит хорошо. Я программировать недавно начал.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.