VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmForm1 
   AutoRedraw      =   -1  'True
   ClientHeight    =   4380
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   7230
   Icon            =   "Spy_Form3.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4380
   ScaleWidth      =   7230
   StartUpPosition =   1  'CenterOwner
   Begin VB.TextBox Text2 
      Height          =   1980
      Left            =   0
      TabIndex        =   8
      Text            =   "Text2"
      Top             =   2070
      Width           =   7215
   End
   Begin VB.TextBox Text1 
      Height          =   1980
      Left            =   0
      TabIndex        =   7
      Text            =   "Text1"
      Top             =   0
      Width           =   7215
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Выход"
      Height          =   315
      Left            =   5880
      TabIndex        =   6
      Top             =   4080
      Width           =   1335
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Вставить"
      Height          =   315
      Left            =   0
      TabIndex        =   5
      Top             =   4080
      Width           =   1215
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Копировать"
      Height          =   315
      Left            =   4320
      TabIndex        =   4
      Top             =   4080
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Выделить текст"
      Height          =   315
      Left            =   2640
      TabIndex        =   3
      Top             =   4080
      Width           =   1575
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Транслит"
      Height          =   315
      Left            =   1320
      TabIndex        =   2
      Top             =   4080
      Width           =   1215
   End
   Begin RichTextLib.RichTextBox RichTextBox2 
      Height          =   2070
      Left            =   0
      TabIndex        =   1
      Top             =   2040
      Visible         =   0   'False
      Width           =   7215
      _ExtentX        =   12726
      _ExtentY        =   3651
      _Version        =   393217
      Enabled         =   -1  'True
      ScrollBars      =   3
      TextRTF         =   $"Spy_Form3.frx":0442
   End
   Begin RichTextLib.RichTextBox RichTextBox1 
      Height          =   2055
      Left            =   -15
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   7230
      _ExtentX        =   12753
      _ExtentY        =   3625
      _Version        =   393217
      ScrollBars      =   3
      TextRTF         =   $"Spy_Form3.frx":04D3
   End
   Begin VB.Menu mnuFile 
      Caption         =   "Ф&айл"
      Begin VB.Menu mnuExit 
         Caption         =   "В&ыход"
      End
   End
   Begin VB.Menu mnuDecoding 
      Caption         =   "Д&ешифровка"
      Begin VB.Menu mnuTranslit 
         Caption         =   "Тр&анслит"
         Begin VB.Menu mnuEn 
            Caption         =   "Английский"
         End
         Begin VB.Menu mnuRus 
            Caption         =   "Русский"
         End
      End
      Begin VB.Menu mnuChange 
         Caption         =   "Поменять"
      End
   End
   Begin VB.Menu mnuVeiw 
      Caption         =   "Вид"
      Begin VB.Menu mnuTextBox 
         Caption         =   "Обычный"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuRichTextBox 
         Caption         =   "Расширенный"
      End
   End
End
Attribute VB_Name = "frmForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ChangeText As String

Private Sub Command1_Click()
If mnuTextBox.Checked = True Then
text = Text1.text 'Присвоение переменной text значения всех символов, содержащихся в активной форме в первом текстовом окне
If ReadingOfTheInitialText = False Then Exit Sub 'Чтение исходного текста
PresenceСodeOfTheInitialText 'Преобразование исходного текста в 16-ричный код
TranslitEn 'Шифрование или замена 16-ричного кода исходного текста в 16-ричный код латинского транслита и замена на латинский транслит
Text2.text = code 'Присвоение всем символам, содержащимся в активной форме во втором текстовом окне значения переменной code
Else
text = Me.RichTextBox1.text 'Присвоение переменной text значения всех символов, содержащихся в активной форме в первом текстовом окне
If ReadingOfTheInitialText = False Then Exit Sub 'Чтение исходного текста
PresenceСodeOfTheInitialText 'Преобразование исходного текста в 16-ричный код
TranslitEn 'Шифрование или замена 16-ричного кода исходного текста в 16-ричный код латинского транслита и замена на латинский транслит
Me.RichTextBox2.text = code 'Присвоение всем символам, содержащимся в активной форме во втором текстовом окне значения переменной code
End If
End Sub

Private Sub Command2_Click()
If mnuTextBox.Checked = True Then
Text2.SetFocus 'Курсор ставим в Text2
Text2.SelStart = 0 'Эта функция задает начальную позицию курсора в тексте
Text2.SelLength = Len(RichTextBox2.TextRTF) 'Теперь выделяем 5 символов, т.е. Basic, т.к. начинаем выделять с того места, где стоит курсор, а курсор стоит перед B
Else
RichTextBox2.SetFocus 'Курсор ставим в Text2
RichTextBox2.SelStart = 0 'Эта функция задает начальную позицию курсора в тексте
RichTextBox2.SelLength = Len(RichTextBox2.TextRTF) 'Теперь выделяем 5 символов, т.е. Basic, т.к. начинаем выделять с того места, где стоит курсор, а курсор стоит перед B
End If
End Sub

Private Sub Command3_Click()
If mnuTextBox.Checked = True Then
Clipboard.Clear
Clipboard.SetText Text2.text ' Копируем в буфер содержимое текстового поля
Else
Clipboard.Clear
Clipboard.SetText RichTextBox2.TextRTF ' Копируем в буфер содержимое текстового поля
End If
End Sub

Private Sub Command4_Click()
If mnuTextBox.Checked = True Then
Text1.text = Clipboard.GetText ' Вставляем в текстовое поле содержимое буфера
Else
RichTextBox1.TextRTF = Clipboard.GetText ' Вставляем в текстовое поле содержимое буфера
End If
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Form_Load()
Text1.text = ""
Text2.text = ""
Text1.Visible = True
Text2.Visible = True
RichTextBox1.Visible = False
RichTextBox1.Visible = False
RichTextBox1.TextRTF = ""
RichTextBox2.TextRTF = ""
Me.Caption = "Транслятор v1.00"
Height = 5070
Width = 7350
WindowState = 0
End Sub

Private Sub mnuChange_Click()
If mnuTextBox.Checked = True Then
ChangeText = Text1.text
Text1.text = Text2.text
Text2.text = ChangeText
Else
ChangeText = Me.RichTextBox1.text
Me.RichTextBox1.text = Me.RichTextBox2.text
Me.RichTextBox2.text = ChangeText
End If
End Sub

Private Sub mnuEn_Click()
If mnuTextBox.Checked = True Then
text = Text1.text 'Присвоение переменной text значения всех символов, содержащихся в активной форме в первом текстовом окне
If ReadingOfTheInitialText = False Then Exit Sub 'Чтение исходного текста
PresenceСodeOfTheInitialText 'Преобразование исходного текста в 16-ричный код
TranslitEn 'Шифрование или замена 16-ричного кода исходного текста в 16-ричный код латинского транслита и замена на латинский транслит
Text2.text = code 'Присвоение всем символам, содержащимся в активной форме во втором текстовом окне значения переменной code
Else
text = Me.RichTextBox1.text 'Присвоение переменной text значения всех символов, содержащихся в активной форме в первом текстовом окне
If ReadingOfTheInitialText = False Then Exit Sub 'Чтение исходного текста
PresenceСodeOfTheInitialText 'Преобразование исходного текста в 16-ричный код
TranslitEn 'Шифрование или замена 16-ричного кода исходного текста в 16-ричный код латинского транслита и замена на латинский транслит
Me.RichTextBox2.text = code 'Присвоение всем символам, содержащимся в активной форме во втором текстовом окне значения переменной code
End If
End Sub

Private Sub mnuExit_Click()
End
End Sub

Private Sub mnuRichTextBox_Click()
mnuTextBox.Checked = False
mnuRichTextBox.Checked = True
If mnuTextBox.Checked = False Then
Text1.Visible = False
Text2.Visible = False
RichTextBox1.Visible = True
RichTextBox2.Visible = True
End If
End Sub

Private Sub mnuRus_Click()
If mnuTextBox.Checked = True Then
text = Text1.text 'Присвоение переменной text значения всех символов, содержащихся в активной форме в первом текстовом окне
If ReadingOfTheInitialText = False Then Exit Sub 'Чтение исходного текста
PresenceСodeOfTheInitialText 'Преобразование исходного текста в 16-ричный код
TranslitRu 'Шифрование или замена 16-ричного кода исходного текста в 16-ричный код русского транслита и замена на русский транслит
Text2.text = code 'Присвоение всем символам, содержащимся в активной форме во втором текстовом окне значения переменной code
Else
text = Me.RichTextBox1.text 'Присвоение переменной text значения всех символов, содержащихся в активной форме в первом текстовом окне
If ReadingOfTheInitialText = False Then Exit Sub 'Чтение исходного текста
PresenceСodeOfTheInitialText 'Преобразование исходного текста в 16-ричный код
TranslitRu 'Шифрование или замена 16-ричного кода исходного текста в 16-ричный код русского транслита и замена на русский транслит
Me.RichTextBox2.text = code 'Присвоение всем символам, содержащимся в активной форме во втором текстовом окне значения переменной code
End If
End Sub

Private Sub mnuTextBox_Click()
mnuTextBox.Checked = True
mnuRichTextBox.Checked = False
If mnuTextBox.Checked = True Then
Text1.Visible = True
Text2.Visible = True
RichTextBox1.Visible = False
RichTextBox2.Visible = False
End If
End Sub

Private Sub RichTextBox1_Click()
text = Me.RichTextBox1.text 'Присвоение переменной text значения всех символов, содержащихся в активной форме в первом текстовом окне
If ReadingOfTheInitialText = False Then Exit Sub 'Чтение исходного текста
PresenceСodeOfTheInitialText 'Преобразование исходного текста в 16-ричный код
TranslitEn 'Шифрование или замена 16-ричного кода исходного текста в 16-ричный код латинского транслита и замена на латинский транслит
Me.RichTextBox2.text = code 'Присвоение всем символам, содержащимся в активной форме во втором текстовом окне значения переменной code
End Sub

Private Sub RichTextBox1_DblClick()
RichTextBox1.TextRTF = ""
End Sub

Private Sub RichTextBox2_Click()
text = Me.RichTextBox1.text 'Присвоение переменной text значения всех символов, содержащихся в активной форме в первом текстовом окне
If ReadingOfTheInitialText = False Then Exit Sub 'Чтение исходного текста
PresenceСodeOfTheInitialText 'Преобразование исходного текста в 16-ричный код
TranslitEn 'Шифрование или замена 16-ричного кода исходного текста в 16-ричный код латинского транслита и замена на латинский транслит
Me.RichTextBox2.text = code 'Присвоение всем символам, содержащимся в активной форме во втором текстовом окне значения переменной code
End Sub

Private Sub RichTextBox2_DblClick()
RichTextBox2.TextRTF = ""
End Sub

Private Sub Text1_Click()
text = Me.Text1.text 'Присвоение переменной text значения всех символов, содержащихся в активной форме в первом текстовом окне
If ReadingOfTheInitialText = False Then Exit Sub 'Чтение исходного текста
PresenceСodeOfTheInitialText 'Преобразование исходного текста в 16-ричный код
TranslitEn 'Шифрование или замена 16-ричного кода исходного текста в 16-ричный код латинского транслита и замена на латинский транслит
Me.Text2.text = code 'Присвоение всем символам, содержащимся в активной форме во втором текстовом окне значения переменной code
End Sub

Private Sub Text1_DblClick()
Text1.text = ""
End Sub

Private Sub Text2_Click()
text = Me.Text1.text 'Присвоение переменной text значения всех символов, содержащихся в активной форме в первом текстовом окне
If ReadingOfTheInitialText = False Then Exit Sub 'Чтение исходного текста
PresenceСodeOfTheInitialText 'Преобразование исходного текста в 16-ричный код
TranslitEn 'Шифрование или замена 16-ричного кода исходного текста в 16-ричный код латинского транслита и замена на латинский транслит
Me.Text2.text = code 'Присвоение всем символам, содержащимся в активной форме во втором текстовом окне значения переменной code
End Sub

Private Sub Text2_DblClick()
Text2.text = ""
End Sub