Программирование на Visual Basic

Блокнот на visual basic

Сегодня мне ничего не шло в голову и поэтому я решил написать исходники вполне работающей программы ! Будем делать собственный Блокнот(NotePad). Добавим несколько своих вещей (по крайней мере одну =)). Подготовка:

  1. Создаем форму с именем frmNotePad
  2. Текстовое поле с именем txtTextBox
  3. Создайте меню:

    4. &Файл (File)

    ... &Открыть (OpenText)

    ... Сохранить &как (SaveAs)

    ... &Печать (Print)

    ... - (def1)

    ... В&ыход (Exit)

    &Вид (View)

    ... &Фон (BackColor)

    ... &Цвет текста (FontColor)

     

    Я надеюсь вы умеете создавать меню. В скобках это name !

  4. Компонент Microsoft Common Dialog c именем Cd1.
  5. У Cd1 делаем свойство Filter = "Текстовый документ ТХТ|*.txt"
  6. У txtTextBox свойство MultiLine = True и свойство ScrollBars = Verticals

Теперь пишем код:

Private Sub BackColor_Click()On Error GoTo error3" открываем стандартное окно выбора цветаCd1.ShowColor" присваиваем свойству BackColor значение, выбранное в окне выбора цветовtxtTextBox.BackColor = Cd1.Color" при ошибке ничего не делаемerror3: If Err <> 0 ThenEnd IfEnd SubPrivate Sub Exit_Click()" выходEndEnd SubPrivate Sub FontColor_Click()On Error GoTo error4" стандартное окно выбора цветаCd1.ShowColor" присваиваем свойству текстового поля ForeColor выбранный цветtxtTextBox.ForeColor = Cd1.Color" при ошибке ничего не делаемerror4: If Err <> 0 ThenEnd IfEnd SubPrivate Sub Form_Load()" при загрузке формы ее заголовок равен "Блокнот"Me.Caption = "Блокнот"End SubPrivate Sub OpenText_Click()On Error GoTo error1
" стандартное окно отрытия документаCd1.ShowOpen" открываем выбранный файлOpen Cd1.filename For Input As #1" вставляем выбранный файл в текстовое полеtxtTextBox.Text = Input(LOF(1), 1)" форма имеет заголовок "Блокнот - [путь к файлу]"Me.Caption = "Блокнот - [" & Cd1.filename & "]"Close" при ошибке ничего не делаемerror1: If Err <> 0 ThenEnd IfEnd SubPrivate Sub Print_Click()" добавляем текст из текстового поля в очередь для печатиPrinter.Print txtTextBox.Text;" печатаемPrinter.EndDocEnd SubPrivate Sub SaveAs_Click()On Error GoTo Error2" стандартное окно сохранения файлаCd1.ShowSave" открываем выбранный файл для записиOpen Cd1.filename For Output As #2" форма имеет заголовок "Блокнот - [путь куда сохраняем]"Me.Caption = "Блокнот - [" & Cd1.filename & "]"" пишем в файл текст из текстового поляPrint #2, txtTextBox" закрываем файлCloseError2: If Err <> 0 ThenEnd IfEnd Sub

Еще можно, например, вставить в конец текста дату или время. Делается это так:

TxtTextBox.Text = txtTextBox.Text & Date " вставляем дату

А если вы хотите вставить время, то вместо Date нужно поставить Time. Еще вы наверно заметили оператор vbCrLf - это перенос каретки на следующую строку (в начало). Теперь у вас почти полноценный Блокнот =). Шлите мне свои примеры или качайте мой от сюда !

Hosted by uCoz