Студопедия

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

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

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






💸 Как сделать бизнес проще, а карман толще?
VisitTime
Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

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


Стр 1 из 29Следующая ⇒




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

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

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

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

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

И так, создаем новый проект, выкидываем на форму:
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

 


12345678910Следующая ⇒




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