Надоел Блокнот и его сжатый интерфейс? Word слишком медленный, хоть и красивый, WordPad Вам тоже не по душе. Что же делать? Конечно же писать свой текстовый редактор!
Этот текстовый редактор будет написан на Visual Basiv. Начнем!
Что нам потребуется:
1. Сам Visual Basic
2. Компонент commondialog Скачать:
comdlg32.ocx (137,2 KiB, 1 430 hits)
Итак, запускаем бейсик, создаем новый проект «Standart EXE»
делаем что-то типа такого:
Теперь подробнее про этот commondialog. в нашем случаем этот компонент позволяет сделать интерфейс открытия файла более похожим на windows, а точнее полностью с ним совпадать 
Обычно данный компонент находится в:
где c:\windows — ваша системная папка.
Если компонент не удалось обнаружить его можно скачать
и по традиции кинуть в:
Где c:\windows\ ваша системная папка
Теперь о подключении компонента в программе:
В бейсике выбираем:
project -> components…
или просто ctrl + T
и там ищем Microsoft Common Dialog Control
Теперь компонент появился слева в строке General
Нажимаем на него мышкой и вставляем на форму.
Следующие шаги:
1. Щелкнике 2 раза по форме (именно по форме)
2. Удалите весь код,что там появился.
3. Вставьте этот:
01.Private Sub backcolor_Click()02.CommonDialog1.ShowColor03.Text1.backcolor = CommonDialog1.color04.End Sub05.Private Sub color_Click()06.CommonDialog1.ShowColor07.Text1.ForeColor = CommonDialog1.color08.End Sub09.Private Sub Command1_Click()10.Text1.Text = ""11.End Sub12.Private Sub Command2_Click()13.CommonDialog1.Filter = "Текстовый файл "14.CommonDialog1.ShowOpen15.If CommonDialog1.FileName = "" Then GoTo 416.nf = CommonDialog1.FileName17.Label1.Caption = CommonDialog1.FileName18.Open nf For Input As #119.ks = LOF(1)20.Text1.Text = Input(ks, #1)21.4: End Sub22.Private Sub Command3_Click()23.CommonDialog1.Filter = "Текстовый файл "24.CommonDialog1.ShowSave25.If CommonDialog1.FileName = "" Then GoTo 526.nf = CommonDialog1.FileName + ".txt"27.Open nf For Output As #228.Write #2, Text1.Text29.Close #230.5: End Sub31.Private Sub Command4_Click()32.Clipboard.SetText (Text1.SelText)33.Text1.SelText = ""34.End Sub35.Private Sub Command5_Click()36.Clipboard.SetText (Text1.SelText)37.End Sub38.Private Sub Command6_Click()39.Text1.SelText = Clipboard.GetText40.End Sub41.Private Sub copy_Click()42.Clipboard.SetText (Text1.SelText)43.End Sub44.Private Sub cut_Click()45.Clipboard.SetText (Text1.SelText)46.Text1.SelText = ""47.End Sub48.Private Sub new_Click()49.Text1.Text = ""50.End Sub51.Private Sub open_Click()52.CommonDialog1.Filter = "Текстовый файл "53.CommonDialog1.ShowOpen54.If CommonDialog1.FileName = "" Then GoTo 155.nf = CommonDialog1.FileName56.Label1.Caption = CommonDialog1.FileName57.Open nf For Input As #158.ks = LOF(1)59.Text1.Text = Input(ks, #1)60.1: End Sub61.Private Sub paste_Click()62.Text1.SelText = Clipboard.GetText63.End Sub64.Private Sub font_Click()65.CommonDialog1.ShowFont66.Text1.FontSize = CommonDialog1.FontSize67.Text1.FontName = CommonDialog1.FontName68.Text1.FontBold = CommonDialog1.FontBold69.Text1.FontItalic = CommonDialog1.FontItalic70.End Sub71.Private Sub save_Click()72.CommonDialog1.Filter = "Текстовый файл "73.CommonDialog1.ShowSave74.If CommonDialog1.FileName = "" Then GoTo 275.nf = CommonDialog1.FileName + ".txt"76.Open nf For Output As #277.Write #2, Text1.Text78.Close #279.2: End SubГде названия компонентов типа text1.text замените на свои, если таковое требуется.
Готовый проект:
redaktor.rar (34,9 KiB, 1 100 hits)
Comments ( 0 )