Our Blog

Свой текстовый редактор на Visual Basic

Надоел Блокнот и  его сжатый интерфейс? Word слишком медленный, хоть и красивый, WordPad Вам тоже не по душе. Что же делать? Конечно же писать свой текстовый редактор!

Этот текстовый редактор будет написан на Visual Basiv. Начнем!

Что нам потребуется:
1. Сам Visual Basic
2. Компонент commondialog Скачать: 

  comdlg32.ocx (137,2 KiB, 795 hits)

Итак, запускаем бейсик, создаем новый проект «Standart EXE»
делаем что-то типа такого:

Теперь подробнее про этот commondialog. в нашем случаем этот компонент позволяет сделать интерфейс открытия файла более похожим на windows, а точнее полностью с ним совпадать :) Обычно данный компонент находится в:

c:\windows\system32\comdlg32.ocx

где c:\windows — ваша системная папка.
Если компонент не удалось обнаружить его можно скачать
и по традиции кинуть в:

c:\windows\system32\

Где c:\windows\ ваша системная папка :)
Теперь о подключении компонента в программе:

В бейсике выбираем:
project -> components…
или просто ctrl + T
и там ищем Microsoft Common Dialog Control

Теперь компонент появился слева в строке General

Нажимаем на него мышкой и вставляем на форму.

Следующие  шаги:
1. Щелкнике 2 раза по форме (именно по форме)
2. Удалите весь код,что там появился.
3. Вставьте этот:

Private Sub backcolor_Click()
CommonDialog1.ShowColor
Text1.backcolor = CommonDialog1.color
End Sub
Private Sub color_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.color
End Sub
Private Sub Command1_Click()
Text1.Text = ""
End Sub
Private Sub Command2_Click()
CommonDialog1.Filter = "Текстовый файл "
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then GoTo 4
nf = CommonDialog1.FileName
Label1.Caption = CommonDialog1.FileName
Open nf For Input As #1
ks = LOF(1)
Text1.Text = Input(ks, #1)
4: End Sub
Private Sub Command3_Click()
CommonDialog1.Filter = "Текстовый файл "
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then GoTo 5
nf = CommonDialog1.FileName + ".txt"
Open nf For Output As #2
Write #2, Text1.Text
Close #2
5: End Sub
Private Sub Command4_Click()
Clipboard.SetText (Text1.SelText)
Text1.SelText = ""
End Sub
Private Sub Command5_Click()
Clipboard.SetText (Text1.SelText)
End Sub
Private Sub Command6_Click()
Text1.SelText = Clipboard.GetText
End Sub
Private Sub copy_Click()
Clipboard.SetText (Text1.SelText)
End Sub
Private Sub cut_Click()
Clipboard.SetText (Text1.SelText)
Text1.SelText = ""
End Sub
Private Sub new_Click()
Text1.Text = ""
End Sub
Private Sub open_Click()
CommonDialog1.Filter = "Текстовый файл "
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then GoTo 1
nf = CommonDialog1.FileName
Label1.Caption = CommonDialog1.FileName
Open nf For Input As #1
ks = LOF(1)
Text1.Text = Input(ks, #1)
1: End Sub
Private Sub paste_Click()
Text1.SelText = Clipboard.GetText
End Sub
Private Sub font_Click()
CommonDialog1.ShowFont
Text1.FontSize = CommonDialog1.FontSize
Text1.FontName = CommonDialog1.FontName
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
End Sub
Private Sub save_Click()
CommonDialog1.Filter = "Текстовый файл "
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then GoTo 2
nf = CommonDialog1.FileName + ".txt"
Open nf For Output As #2
Write #2, Text1.Text
Close #2
2: End Sub

Где названия компонентов типа text1.text замените на свои, если таковое требуется.

Готовый проект: 

  redaktor.rar (34,9 KiB, 598 hits)

Comments ( 0 )
    -->