Студопедия

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

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

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






  • Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
    Начать продвижение сайта

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


    Стр 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 :: Мои Лекции
    Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
    Копирование текстов разрешено только с указанием индексируемой ссылки на источник.