VERSION 5.00
Begin VB.Form HelpOpenForm 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Справка"
   ClientHeight    =   6180
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9090
   Icon            =   "CT-HelpOpenForm.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   412
   ScaleMode       =   3  'Пиксель
   ScaleWidth      =   606
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text1 
      Appearance      =   0  'Плоска
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4140
      Left            =   75
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Вертикаль
      TabIndex        =   4
      Text            =   "CT-HelpOpenForm.frx":75CF
      Top             =   1545
      Visible         =   0   'False
      Width           =   8955
   End
   Begin VB.Label Label10 
      BackStyle       =   0  'Прозрачно
      Caption         =   "Проект Национального Исследовательского Университета Информационных Технологий, Механики и Оптики (НИУ ИТМО)"
      Height          =   405
      Left            =   120
      TabIndex        =   11
      Top             =   1125
      Width           =   8895
   End
   Begin VB.Label Label9 
      BackStyle       =   0  'Прозрачно
      Caption         =   "от 11.IV.2019 г.             Разработка с 2001 по 2019 г."
      Height          =   255
      Left            =   1560
      TabIndex        =   10
      Top             =   405
      Width           =   6255
   End
   Begin VB.Image Image13 
      Height          =   855
      Left            =   7800
      Picture         =   "CT-HelpOpenForm.frx":7B83
      Top             =   120
      Width           =   1230
   End
   Begin VB.Label Label8 
      Alignment       =   1  'Правая привязка
      BackStyle       =   0  'Прозрачно
      Caption         =   "Сайт:"
      Height          =   255
      Left            =   4800
      TabIndex        =   9
      Top             =   885
      Width           =   855
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Прозрачно
      Caption         =   "http://teh-zren.ru"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   204
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   255
      Left            =   5760
      TabIndex        =   8
      Top             =   885
      Width           =   2055
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Прозрачно
      Caption         =   "Научный руководитель: Алексеев Сергей Андреевич"
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   885
      Width           =   4695
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Прозрачно
      Caption         =   "Автор: Пасяда Александр Васильевич   "
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   645
      Width           =   7695
   End
   Begin VB.Label lblVersion 
      BackStyle       =   0  'Прозрачно
      Caption         =   "Версия 2.Х"
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   405
      Width           =   1335
   End
   Begin VB.Image Image14 
      Height          =   390
      Left            =   3840
      Top             =   5715
      Width           =   405
   End
   Begin VB.Image Image12 
      Height          =   390
      Left            =   6840
      Picture         =   "CT-HelpOpenForm.frx":A1E2
      Top             =   5760
      Visible         =   0   'False
      Width           =   405
   End
   Begin VB.Image Image11 
      Height          =   390
      Left            =   7080
      Picture         =   "CT-HelpOpenForm.frx":A404
      Top             =   5760
      Visible         =   0   'False
      Width           =   405
   End
   Begin VB.Image Image10 
      Height          =   390
      Left            =   7800
      Picture         =   "CT-HelpOpenForm.frx":A626
      Top             =   5760
      Visible         =   0   'False
      Width           =   405
   End
   Begin VB.Image Image9 
      Height          =   390
      Left            =   6120
      Picture         =   "CT-HelpOpenForm.frx":A848
      Top             =   5760
      Visible         =   0   'False
      Width           =   405
   End
   Begin VB.Image Image8 
      Height          =   375
      Left            =   4920
      Top             =   5715
      Width           =   1815
   End
   Begin VB.Image Image7 
      Height          =   390
      Left            =   6840
      Picture         =   "CT-HelpOpenForm.frx":AA6A
      Top             =   5640
      Visible         =   0   'False
      Width           =   1950
   End
   Begin VB.Image Image6 
      Height          =   390
      Left            =   7440
      Picture         =   "CT-HelpOpenForm.frx":B1D4
      Top             =   5760
      Visible         =   0   'False
      Width           =   1950
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Центровка
      AutoSize        =   -1  'True
      BackStyle       =   0  'Прозрачно
      Caption         =   "Яркости точек (к примеру) красной составляющей"
      Height          =   240
      Left            =   2700
      TabIndex        =   3
      Top             =   1800
      Width           =   5175
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Прозрачно
      Caption         =   "Исходный файл (например, tyu2.bmp)"
      Height          =   195
      Left            =   75
      TabIndex        =   2
      Top             =   1800
      Width           =   2820
   End
   Begin VB.Line Line1 
      X1              =   504
      X2              =   8
      Y1              =   105
      Y2              =   105
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Прозрачно
      Caption         =   "Действие программы - преобразование яркостей изображения в таблицу:"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   204
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   120
      TabIndex        =   1
      Top             =   1560
      Width           =   7725
   End
   Begin VB.Image Image5 
      Height          =   150
      Left            =   2100
      Top             =   2670
      Width           =   300
   End
   Begin VB.Image Image4 
      Height          =   150
      Left            =   375
      Picture         =   "CT-HelpOpenForm.frx":B93E
      Top             =   2085
      Width           =   300
   End
   Begin VB.Image Image3 
      Height          =   3600
      Left            =   2430
      Picture         =   "CT-HelpOpenForm.frx":BBD8
      Top             =   2070
      Width           =   6630
   End
   Begin VB.Image Image2 
      Height          =   1350
      Left            =   720
      Picture         =   "CT-HelpOpenForm.frx":EC04
      Top             =   2070
      Width           =   1350
   End
   Begin VB.Image Image1 
      Height          =   225
      Left            =   120
      Picture         =   "CT-HelpOpenForm.frx":11024
      Top             =   2040
      Width           =   225
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Прозрачно
      Caption         =   "Программа выводит яркость точек изображения *.bmp в таблицу Excel или сохраняет в файл CSV."
      Height          =   390
      Left            =   120
      TabIndex        =   0
      Top             =   30
      Width           =   7485
   End
End
Attribute VB_Name = "HelpOpenForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'для открытия страницы сайта
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
Image5.Picture = Image4.Picture
Image8.Picture = Image6.Picture
Image14.Picture = Image9.Picture
lblVersion.Caption = "Версия " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = RGB(0, 0, 128)
End Sub

Private Sub Form_Unload(Cancel As Integer)
OpenForm.Image3.Picture = OpenForm.Image4.Picture
End Sub

Private Sub Image14_Click()
SendKeys "A"
If Text1.Visible = False Then

  Text1.Visible = True
  Image1.Visible = False
  Image2.Visible = False
  Image3.Visible = False
  Image4.Visible = False
  Image5.Visible = False
  Label2.Visible = False
  Label3.Visible = False
  Label4.Visible = False
 Else
  Text1.Visible = False
  Image1.Visible = True
  Image2.Visible = True
  Image3.Visible = True
  Image4.Visible = True
  Image5.Visible = True
  Label2.Visible = True
  Label3.Visible = True
  Label4.Visible = True
End If
End Sub

Private Sub Image14_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Text1.Visible = False Then
 Image14.Picture = Image10.Picture
 Else
 Image14.Picture = Image12.Picture
End If
End Sub

Private Sub Image14_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Text1.Visible = False Then
 Image14.Picture = Image11.Picture
 Else
 Image14.Picture = Image9.Picture
End If
End Sub

Private Sub Image8_Click()
Unload HelpOpenForm
End Sub

Private Sub Image8_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image8.Picture = Image7.Picture
End Sub

Private Sub Label7_Click()
Call ShellExecute(GetDesktopWindow, "Open", "http://teh-zren.ru", "", "c:\", SW_SHOWNORMAL)
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = RGB(0, 0, 255)
End Sub
