VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form KомпьютерС 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00E0E0E0&
   Caption         =   "KомпьютерС"
   ClientHeight    =   5850
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   7965
   ForeColor       =   &H00C00000&
   LinkTopic       =   "Form2"
   ScaleHeight     =   5850
   ScaleWidth      =   7965
   StartUpPosition =   1  'CenterOwner
   Begin MSComDlg.CommonDialog Dlg1 
      Left            =   120
      Top             =   5160
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      DialogTitle     =   "Открытие файла"
      FileName        =   "Справка"
      Filter          =   ".txt"
      Flags           =   2
      FontBold        =   -1  'True
      FontItalic      =   -1  'True
      FontSize        =   10
      FontStrikeThru  =   -1  'True
      FontUnderLine   =   -1  'True
      InitDir         =   "C:\Комп\"
      Max             =   16
      Min             =   8
   End
   Begin RichTextLib.RichTextBox RTBox1 
      Height          =   5055
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7935
      _ExtentX        =   13996
      _ExtentY        =   8916
      _Version        =   393217
      Enabled         =   -1  'True
      ScrollBars      =   3
      TextRTF         =   $"KомпьютерС.frx":0000
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Menu Справка1 
      Caption         =   "Файл"
      Index           =   1
      Begin VB.Menu Справка12 
         Caption         =   "Открыть"
         Index           =   12
      End
   End
   Begin VB.Menu Справка2 
      Caption         =   "Шрифт"
      Index           =   2
      Begin VB.Menu Справка23 
         Caption         =   "Весь текст"
         Index           =   23
      End
      Begin VB.Menu Справка21 
         Caption         =   "Фрагмент"
         Index           =   21
      End
      Begin VB.Menu Справка22 
         Caption         =   "Цвет"
         Index           =   22
      End
   End
End
Attribute VB_Name = "KомпьютерС"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Click()
KомпьютерС.Visible = False
End Sub

Private Sub Form_Load()
'Dlg1.ShowOpen
Dlg1.FileName = "C:\Комп\Справка.txt"
RTBox1.LoadFile Dlg1.FileName
End Sub

Private Sub Form_Resize()
On Error GoTo метка

RTBox1.Height = ScaleHeight - 1200
RTBox1.Width = ScaleWidth - 200
метка:
End Sub

Private Sub Справка12_Click(Index As Integer)
On Error GoTo метка

Dlg1.ShowOpen
RTBox1.LoadFile Dlg1.FileName
метка:
End Sub

Private Sub Справка21_Click(Index As Integer)
On Error GoTo метка
Dlg1.ShowFont
RTBox1.SelBold = Dlg1.FontBold
RTBox1.SelFontName = Dlg1.FontName
RTBox1.SelUnderline = Dlg1.FontUnderline
RTBox1.SelFontSize = Dlg1.FontSize
RTBox1.SelItalic = Dlg1.FontItalic
метка:
End Sub

Private Sub Справка22_Click(Index As Integer)
On Error GoTo метка
Dlg1.ShowColor
RTBox1.SelColor = Dlg1.Color
метка:
End Sub

Private Sub Справка23_Click(Index As Integer)
On Error GoTo метка
Dlg1.ShowFont
 RTBox1.Font.Bold = Dlg1.FontBold
 RTBox1.Font.Size = Dlg1.FontSize
 RTBox1.Font.Italic = Dlg1.FontItalic
 RTBox1.Font.Name = Dlg1.FontName
 RTBox1.Font.Underline = Dlg1.FontUnderline
метка:
End Sub
