Текстовый редактор - VB

Формулировка задачи:

Здрасте. помогите пож. я VBasic недавно начал изучать. вобщем надо сделать текстовый редактор. надо чтоб в нём была возможность открывать текст из файла, сохранять текст. и ещё надо чтоб можно было изменить размер шрифта. заранее спасибо за помощь.

Код к задаче: «Текстовый редактор - VB»

textual
Option Explicit 
 
Private Sub Form_Load()
  Static FlagFormPainted As Integer
  Dim i As Integer
  ' При первом запуске — сделать разметку формы
  If FlagFormPainted <> True Then
    For i = 1 To 5  ' установить массив переключателей
      Load Option1(i)
      Option1(i).Top = Option1(i - 1).Top + 350
      Option1(i).Visible = True
    Next I
    ' Сделать надписи на  каждом переключателе
    Option1(0).Caption =  "Open"
    Option1(1).Caption =  "Save"
    Option1(2).Caption =  "Color"
    Option1(3).Caption =  "Font"
    Option1(4).Caption =  "Printer"
    Option1(5).Caption =  "Help"
    Command1.Caption = "Показать диалоговое окно"
  End If
  FlagFormPainted = True
End Sub 
 
Private Sub Command1_Click()
  If Option1(0).Value Then commonDialog1.ShowOpen
  If Option1(1).Value Then commonDialog1.ShowSave
  If Option1(2).Value Then commonDialog1.ShowColor
  If Option1(3).Value Then 
    commonDialog1.Flags = cdlCFBoth 
    commonDialog1.ShowFont
  End If
  If Option1(4).Value Then commonDialog1.ShowPrinter
  If Option1(5).Value Then 
    commonDialog1.HelpFile = "VB4.HLP" 
    commonDialog1.HelpCommand = cdlHelpContents 
    commonDialog1.ShowHelp
  End If
End Sub

15   голосов, оценка 3.733 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы