VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form6 
   Caption         =   "Maikelson1  Form6  Просмотр фото и видео файлов"
   ClientHeight    =   13830
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   20880
   Icon            =   "Form6.frx":0000
   LinkTopic       =   "Form6"
   ScaleHeight     =   922
   ScaleMode       =   3  'Пиксель
   ScaleWidth      =   1392
   Begin VB.Frame Frame2 
      Height          =   495
      Left            =   4920
      TabIndex        =   60
      Top             =   720
      Width           =   5295
      Begin VB.CheckBox Check1 
         Caption         =   "+ создать эту папку"
         Height          =   255
         Left            =   3360
         TabIndex        =   64
         Top             =   160
         Value           =   1  'Отмечено
         Width           =   1815
      End
      Begin VB.TextBox Text16 
         Height          =   285
         Left            =   2160
         TabIndex        =   63
         Text            =   "m5p10_1"
         Top             =   150
         Width           =   1095
      End
      Begin VB.OptionButton Option4 
         Caption         =   "в папку"
         Height          =   195
         Left            =   1200
         TabIndex        =   62
         Top             =   200
         Width           =   975
      End
      Begin VB.OptionButton Option3 
         Caption         =   "на экран"
         Height          =   195
         Left            =   120
         TabIndex        =   61
         Top             =   200
         Value           =   -1  'True
         Width           =   975
      End
   End
   Begin VB.CommandButton Command14 
      Caption         =   "Закрыть видеофайл"
      Height          =   255
      Left            =   120
      TabIndex        =   59
      Top             =   480
      Width           =   1815
   End
   Begin VB.TextBox Text17 
      Height          =   285
      Left            =   4200
      TabIndex        =   55
      Text            =   "0"
      Top             =   840
      Width           =   615
   End
   Begin VB.Timer Timer1 
      Left            =   11640
      Top             =   0
   End
   Begin VB.TextBox Text15 
      Height          =   285
      Left            =   2520
      TabIndex        =   53
      Text            =   "20"
      Top             =   840
      Width           =   615
   End
   Begin VB.CommandButton Command13 
      Caption         =   "Сделать раскадровку через"
      Height          =   255
      Left            =   120
      TabIndex        =   52
      Top             =   840
      Width           =   2415
   End
   Begin VB.CommandButton Command12 
      Caption         =   "Продолжить"
      Height          =   255
      Left            =   3360
      TabIndex        =   51
      Top             =   480
      Width           =   1215
   End
   Begin VB.CommandButton Command11 
      Caption         =   "Остановить"
      Height          =   255
      Left            =   2040
      TabIndex        =   50
      Top             =   480
      Width           =   1215
   End
   Begin VB.TextBox Text14 
      Height          =   285
      Left            =   8160
      TabIndex        =   49
      Text            =   "Text14"
      Top             =   480
      Width           =   615
   End
   Begin VB.TextBox Text13 
      Height          =   285
      Left            =   12480
      TabIndex        =   47
      Text            =   "1"
      Top             =   120
      Width           =   495
   End
   Begin VB.TextBox Text12 
      Height          =   285
      Left            =   11880
      TabIndex        =   46
      Text            =   "480"
      Top             =   840
      Width           =   735
   End
   Begin VB.TextBox Text11 
      Height          =   285
      Left            =   10800
      TabIndex        =   44
      Text            =   "640"
      Top             =   840
      Width           =   615
   End
   Begin VB.CommandButton Command10 
      Caption         =   "Задать размер картинки"
      Height          =   255
      Left            =   10440
      TabIndex        =   42
      Top             =   480
      Width           =   2175
   End
   Begin VB.Frame Frame1 
      Height          =   735
      Left            =   9120
      TabIndex        =   39
      Top             =   0
      Width           =   1095
      Begin VB.OptionButton Option2 
         Caption         =   "Назад"
         Height          =   195
         Left            =   120
         TabIndex        =   41
         Top             =   480
         Width           =   855
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Вперед"
         Height          =   195
         Left            =   120
         TabIndex        =   40
         Top             =   240
         Value           =   -1  'True
         Width           =   1095
      End
   End
   Begin VB.CommandButton Command9 
      Caption         =   "Сместить на 1 кадр"
      Height          =   255
      Left            =   4680
      TabIndex        =   38
      Top             =   480
      Width           =   1815
   End
   Begin VB.TextBox Text10 
      Height          =   285
      Left            =   8160
      TabIndex        =   37
      Text            =   "10"
      Top             =   120
      Width           =   615
   End
   Begin VB.TextBox Text4 
      Height          =   285
      Left            =   6240
      TabIndex        =   35
      Text            =   "0"
      Top             =   120
      Width           =   735
   End
   Begin VB.CommandButton Command8 
      Caption         =   "Начать просмотр с кадра №"
      Height          =   255
      Left            =   3840
      TabIndex        =   34
      Top             =   120
      Width           =   2415
   End
   Begin VB.CommandButton Command7 
      Caption         =   "Открыть видеофайл avi"
      Height          =   255
      Left            =   120
      TabIndex        =   32
      Top             =   120
      Width           =   2055
   End
   Begin VB.PictureBox Picture4 
      Height          =   6000
      Left            =   120
      ScaleHeight     =   396
      ScaleMode       =   3  'Пиксель
      ScaleWidth      =   1373
      TabIndex        =   30
      Top             =   1200
      Width           =   20655
      Begin VB.HScrollBar HScroll1 
         Height          =   200
         LargeChange     =   1000
         Left            =   10320
         Max             =   10000
         SmallChange     =   100
         TabIndex        =   58
         Top             =   5760
         Width           =   10335
      End
      Begin VB.PictureBox Picture2 
         BackColor       =   &H8000000E&
         Height          =   7200
         Left            =   0
         ScaleHeight     =   476
         ScaleMode       =   3  'Пиксель
         ScaleWidth      =   636
         TabIndex        =   57
         Top             =   0
         Width           =   9600
      End
      Begin VB.VScrollBar VScroll1 
         Height          =   5655
         LargeChange     =   1000
         Left            =   20400
         Max             =   10000
         SmallChange     =   100
         TabIndex        =   31
         Top             =   0
         Width           =   255
      End
   End
   Begin VB.PictureBox Picture1 
      Height          =   735
      Index           =   8
      Left            =   120
      ScaleHeight     =   45
      ScaleMode       =   3  'Пиксель
      ScaleWidth      =   1373
      TabIndex        =   29
      Top             =   13080
      Width           =   20655
   End
   Begin VB.PictureBox Picture1 
      Height          =   735
      Index           =   7
      Left            =   120
      ScaleHeight     =   45
      ScaleMode       =   3  'Пиксель
      ScaleWidth      =   1373
      TabIndex        =   28
      Top             =   12240
      Width           =   20655
   End
   Begin VB.PictureBox Picture1 
      Height          =   735
      Index           =   6
      Left            =   120
      ScaleHeight     =   45
      ScaleMode       =   3  'Пиксель
      ScaleWidth      =   1373
      TabIndex        =   27
      Top             =   11400
      Width           =   20655
   End
   Begin VB.TextBox Text9 
      Height          =   285
      Left            =   18480
      TabIndex        =   26
      Text            =   "Text9"
      Top             =   840
      Width           =   735
   End
   Begin VB.TextBox Text8 
      Height          =   285
      Left            =   16800
      TabIndex        =   24
      Text            =   "Text8"
      Top             =   840
      Width           =   735
   End
   Begin VB.TextBox Text7 
      Height          =   285
      Left            =   15720
      TabIndex        =   22
      Text            =   "Text7"
      Top             =   840
      Width           =   735
   End
   Begin VB.TextBox Text6 
      Height          =   285
      Left            =   17640
      TabIndex        =   15
      Text            =   "10"
      Top             =   480
      Width           =   615
   End
   Begin VB.CommandButton Command6 
      Caption         =   "Рассчитать ширину полос для выбранного участка из"
      Height          =   255
      Left            =   13200
      TabIndex        =   14
      Top             =   480
      Width           =   4335
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Закрыть форму"
      Height          =   255
      Left            =   19320
      TabIndex        =   13
      Top             =   840
      Width           =   1455
   End
   Begin VB.TextBox Text5 
      Height          =   285
      Left            =   19080
      TabIndex        =   12
      Text            =   "Text5"
      Top             =   480
      Width           =   1095
   End
   Begin VB.TextBox Text3 
      Height          =   285
      Left            =   19920
      TabIndex        =   11
      Text            =   "2,2"
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   14640
      TabIndex        =   10
      Text            =   "Text2"
      Top             =   840
      Width           =   735
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   13440
      TabIndex        =   9
      Text            =   "Text1"
      Top             =   840
      Width           =   855
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Скопировать в окно №"
      Height          =   255
      Left            =   10440
      TabIndex        =   8
      Top             =   120
      Width           =   2055
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Предыдущий"
      Height          =   255
      Left            =   17040
      TabIndex        =   7
      Top             =   120
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Следующий"
      Height          =   255
      Left            =   15720
      TabIndex        =   6
      Top             =   120
      Width           =   1215
   End
   Begin MSComDlg.CommonDialog CD1 
      Left            =   12120
      Top             =   0
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Открыть фотофайл (bmp, jpg)"
      Height          =   255
      Left            =   13200
      TabIndex        =   5
      Top             =   120
      Width           =   2415
   End
   Begin VB.PictureBox Picture1 
      Height          =   735
      Index           =   5
      Left            =   120
      ScaleHeight     =   45
      ScaleMode       =   3  'Пиксель
      ScaleWidth      =   1373
      TabIndex        =   4
      Top             =   10560
      Width           =   20655
   End
   Begin VB.PictureBox Picture1 
      Height          =   735
      Index           =   4
      Left            =   120
      ScaleHeight     =   45
      ScaleMode       =   3  'Пиксель
      ScaleWidth      =   1373
      TabIndex        =   3
      Top             =   9720
      Width           =   20655
   End
   Begin VB.PictureBox Picture1 
      Height          =   735
      Index           =   3
      Left            =   120
      ScaleHeight     =   45
      ScaleMode       =   3  'Пиксель
      ScaleWidth      =   1373
      TabIndex        =   2
      Top             =   8880
      Width           =   20655
   End
   Begin VB.PictureBox Picture1 
      Height          =   735
      Index           =   2
      Left            =   120
      ScaleHeight     =   45
      ScaleMode       =   3  'Пиксель
      ScaleWidth      =   1373
      TabIndex        =   1
      Top             =   8040
      Width           =   20655
   End
   Begin VB.PictureBox Picture1 
      Height          =   735
      Index           =   1
      Left            =   120
      ScaleHeight     =   45
      ScaleMode       =   3  'Пиксель
      ScaleWidth      =   1373
      TabIndex        =   0
      Top             =   7200
      Width           =   20655
   End
   Begin VB.Line Line2 
      X1              =   872
      X2              =   872
      Y1              =   8
      Y2              =   72
   End
   Begin VB.Line Line1 
      X1              =   688
      X2              =   688
      Y1              =   8
      Y2              =   72
   End
   Begin VB.Label Label16 
      Caption         =   "мс"
      Height          =   255
      Left            =   8760
      TabIndex        =   56
      Top             =   120
      Width           =   375
   End
   Begin VB.Label Label14 
      Caption         =   "кадров с №"
      Height          =   255
      Left            =   3240
      TabIndex        =   54
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Label13 
      Caption         =   "текущий кадр N="
      Height          =   255
      Left            =   6720
      TabIndex        =   48
      Top             =   480
      Width           =   1455
   End
   Begin VB.Label Label12 
      Caption         =   "hPic"
      Height          =   255
      Left            =   11520
      TabIndex        =   45
      Top             =   840
      Width           =   495
   End
   Begin VB.Label Label11 
      Caption         =   "wPic"
      Height          =   255
      Left            =   10440
      TabIndex        =   43
      Top             =   840
      Width           =   495
   End
   Begin VB.Label Label10 
      Caption         =   "с интервалом"
      Height          =   255
      Left            =   7020
      TabIndex        =   36
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label Label6 
      Caption         =   "Nmax= xxx кадров"
      Height          =   255
      Left            =   2280
      TabIndex        =   33
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label Label9 
      Caption         =   "X2"
      Height          =   255
      Left            =   15480
      TabIndex        =   25
      Top             =   840
      Width           =   495
   End
   Begin VB.Label Label8 
      Caption         =   "Y2"
      Height          =   255
      Left            =   16560
      TabIndex        =   23
      Top             =   840
      Width           =   375
   End
   Begin VB.Label Label7 
      Caption         =   "L, пиксель"
      Height          =   255
      Left            =   17640
      TabIndex        =   21
      Top             =   840
      Width           =   855
   End
   Begin VB.Label Label5 
      Caption         =   "ML, мкм/пиксель"
      Height          =   255
      Left            =   18360
      TabIndex        =   20
      Top             =   120
      Width           =   1575
   End
   Begin VB.Label Label4 
      Caption         =   "Y1"
      Height          =   255
      Left            =   14400
      TabIndex        =   19
      Top             =   840
      Width           =   375
   End
   Begin VB.Label Label3 
      Caption         =   "X1"
      Height          =   255
      Left            =   13200
      TabIndex        =   18
      Top             =   840
      Width           =   375
   End
   Begin VB.Label Label2 
      Caption         =   " мкм"
      Height          =   255
      Left            =   20280
      TabIndex        =   17
      Top             =   480
      Width           =   495
   End
   Begin VB.Label Label1 
      Caption         =   " полос ="
      Height          =   255
      Left            =   18360
      TabIndex        =   16
      Top             =   480
      Width           =   735
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim wPic&, hPic&
Dim md          As MediaDet
Dim sFrameFile  As String
Dim iFrameCnt   As Integer
Dim lCurFrame   As Long
Dim FileName    As String
Dim StreamLen   As Double

Private Sub Form_Load()
Timer1.Enabled = False
wPic = 640: hPic = 480 '                устанавливаем начальные размеры окна просмотра изображений
End Sub

Private Sub Command10_Click() '         изменить размер рисунка для загружаемой картинки
wPic = Text11.Text: hPic = Text12.Text
Picture2.Width = wPic: Picture2.Height = hPic: Picture2.Refresh
End Sub



'                                                    РАБОТА С ВИДЕОФАЙЛАМИ


Private Sub Command7_Click() '        открыть файл для покадрового просмотра
On Error GoTo 10
    With CD1
        .Filter = "Video files (*.*)|*.*"
        .DialogTitle = "Select File"
        .CancelError = True
        .ShowOpen
        FileName = .FileName
        Call Reload
        md.CurrentStream = 0
Label6.Caption = "Nmax= " & md.StreamLength \ 1 & " кадров" '         максимальное количество кадров, которое можно извлечь из файла
Text4.Text = 0: N = 0: Nk = md.StreamLength \ 1 '                     номер первого кадра и конечного
sFrameFile = App.Path & "\Frame.bmp" '                      не понял зачем все время записывать этот промежуточный файл
    End With
Vpered
GoTo 20
10: Info = "ОШИБКА ОТКРЫТИЯ": MsgBox Info, , "Maikelson"
20: End Sub

Private Sub Command8_Click() '           начать покадровый просмотр
N = Text4.Text
Timer1.Interval = Text10.Text '   задаем интервал срабатывания таймера в миллисекундах, через который кадры будут выводиться на рисунок
Timer1.Enabled = True
End Sub

Private Sub Command11_Click() '          остановить покадровый просмотр
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer() '            по таймеру периодически идем или на 1 кадр вперед или на 1 кадр назад
If Option1.Value = True Then Vpered
If Option2.Value = True Then Nazad
End Sub

Private Sub Command9_Click() '           сместить на 1 кадр
If Option1.Value = True Then Vpered
If Option2.Value = True Then Nazad
End Sub

Private Sub Nazad() '                   сместить на 1 кадр назад
If N >= 1 Then
N = N - 1
GoToFrame N
End If
End Sub

Private Sub Vpered() '                  сместить на 1 кадр вперед
If N <= (StreamLen - 1) Then N = N + 1
GoToFrame N
End Sub

Function Reload() As Boolean
    If Len(FileName) = 0 Then Exit Function
    If Not (md Is Nothing) Then Reload = True: Exit Function
    Set md = New MediaDet
    md.FileName = FileName
    StreamLen = md.StreamLength
    Reload = True
End Function

Sub GoToFrame(lFrame As Long)
On Error GoTo 10
    If Not Reload() Then Exit Sub
    md.WriteBitmapBits lFrame, Picture2.Width, Picture2.Height, sFrameFile
'    md.WriteBitmapBits lFrame, Picture2.Width \ Screen.TwipsPerPixelX, Picture2.Height \ Screen.TwipsPerPixelY, sFrameFile
    Picture2.Picture = LoadPicture(sFrameFile)
PicLine
Text14.Text = N
    Reload
GoTo 20
10: Info = "ОШИБКА в GoToFrame": MsgBox Info, , "Maikelson"
20: End Sub

Private Sub Command12_Click() '                 продолжить просмотр
Timer1.Interval = Text10.Text '   задаем интервал срабатывания таймера в миллисекундах
Timer1.Enabled = True
End Sub

Private Sub Command13_Click() '      сделать раскадровку через заданное количество кадров NP
On Error GoTo 90
NP = Text15.Text: jj = Text17.Text
If Option4.Value = True And Check1.Value = 1 Then MkDir App.Path & "\Raskadrovka\" & Text16.Text
For N = 0 To Nk Step NP
If N <= Nk Then
GoToFrame N
If Option3.Value = True Then Command4_Click
If Option4.Value = True Then SavePicture Picture2.Image, App.Path & "\Raskadrovka\" & Text16.Text & "\Frame" & Right$("00" & jj, 3) & ".bmp"
End If
Text13.Text = jj: jj = jj + 1
Next N
GoTo 100
90: MsgBox "Ошибка записи в файл" & vbCrLf & "или такая папка уже существует", , "Maikelson": Exit Sub
100: End Sub




Private Sub Command4_Click() 'скопировать изображение
ii = Text13.Text + 1
If ii <= 8 Then
Picture1(ii).Picture = Picture2.Picture '          копируем изображение  (нет линий)
'Picture1(ii).Picture = Picture2.Image '           копируем изображение  (нет линий)
Picture1(ii).Line (wPic / 4, 0)-(wPic / 4, hPic), RGB(0, 0, 250) '        придется рисовать линии по новой
Picture1(ii).Line (wPic / 2, 0)-(wPic / 2, hPic), RGB(0, 0, 250)
Picture1(ii).Line (3 * wPic / 4, 0)-(3 * wPic / 4, hPic), RGB(0, 0, 250)
Picture1(ii).Line (wPic - 1, 0)-(wPic - 1, hPic), RGB(0, 0, 250)
End If
End Sub

Private Sub PicLine() '                                   наносим отметки на загруженную картинку через 1/4 ее ширины
Picture2.Line (wPic / 4, 0)-(wPic / 4, hPic), RGB(0, 0, 250)
Picture2.Line (wPic / 2, 0)-(wPic / 2, hPic), RGB(0, 0, 250)
Picture2.Line (3 * wPic / 4, 0)-(3 * wPic / 4, hPic), RGB(0, 0, 250)
Picture2.Line (wPic - 1, 0)-(wPic - 1, hPic), RGB(0, 0, 250)
End Sub

Private Sub Command14_Click() ' закрыть видео файл
Set md = Nothing
'Set md = New MediaDet '          это под вопросом, т.к. после этого вылетает ошибка
End Sub






'                                                    РАБОТА С ФОТОФАЙЛАМИ

Private Sub Command1_Click() '              открыть первый фотофайл серии (с разными номерами файлов)
On Error GoTo 90 '                                      Если возникнет ошибка при чтении файла отправиться к обработчику ошибки
CD1.CancelError = True '                                Обеспечиваем генерацию ошибки при нажатии на Cancel
Info = "All Files (*.*)|*.*|BMP Files (*.bmp)|*.bmp|GIF Files (*.gif)|*.gif|"
Info = Info & "ICO Files (*.ico)|*.ico|JPG Files (*.jpg)|*.jpg|"
CD1.Filter = Info '                                     задаем свойства Filter
CD1.FilterIndex = 1 '                                   Устанавливаем необходимый индекс (1-значит All)
'CD1.InitDir = "c:\Program Files\Maikelson1" '          Присваиваем начальную директорию свойству InitDir
CD1.FileName = Empty '                                  Обеспечиваем защиту от неправильного введенного имени файла или дериктории
CD1.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly ' скрываем флажек Read Only
CD1.ShowOpen '                                          Вызываем диалоговое окно Open (можно CD1.Action = 1)
Info = CD1.FileName
Form6.Caption = "Maikelson1  Form6  файл   " & Info
Picture2.Picture = LoadPicture(Info) '                                загрузка картинки из файла

IGold = Len(Info): Info1 = "": Info2 = "": IGnew = 0
Info2 = Right(Info, 4) '                                              это расширение файла (с точкой)
If Mid(Info, IGold - 5, 1) = "_" Then IGnew = IGold - 5 '             это позиция с которой записан номер файла
If IGnew = 0 And Mid(Info, IGold - 6, 1) = "_" Then IGnew = IGold - 6
If IGnew = 0 And Mid(Info, IGold - 7, 1) = "_" Then IGnew = IGold - 7
Info1 = Left(Info, IGnew) '                                           это путь и имя файла (с подчеркиванием) до его номера
Info = Mid(Info, IGnew + 1, IGold - IGnew - 4): i = Info
wPic = 640: hPic = 480
Picture2.Line (wPic / 4, 0)-(wPic / 4, hPic), RGB(0, 0, 250)
Picture2.Line (wPic / 2, 0)-(wPic / 2, hPic), RGB(0, 0, 250)
Picture2.Line (3 * wPic / 4, 0)-(3 * wPic / 4, hPic), RGB(0, 0, 250)
GoTo 100
90: MsgBox "Не могу открыть файл", , "Maikelson"
100: End Sub

Private Sub Command2_Click() '                   открыть следующий файл, если его имя отличается только номером
On Error GoTo 90
i = i + 1
Info = Info1 & i & Info2
Picture2.Picture = LoadPicture(Info) '         загрузка картинки из файла
PicLine
Form6.Caption = "Maikelson1  Form6  файл   " & Info
GoTo 100
90: MsgBox "Не могу открыть файл " & Info, , "Maikelson"
100: End Sub

Private Sub Command3_Click() '                  открыть предыдущий файл, если его имя отличается только номером
On Error GoTo 90
i = i - 1
Info = Info1 & i & Info2
Picture2.Picture = LoadPicture(Info) '         загрузка картинки из файла
PicLine
Form6.Caption = "Maikelson1  Form6  файл   " & Info
GoTo 100
90: MsgBox "Не могу открыть этот файл " & Info, , "Maikelson"
100: End Sub

Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' поставить на рисунке 2-е точки  там,
On Error GoTo 90 '                                                                    где ткнули мышкой (желательно на одной высоте)
If Button = 1 Then  '               если нажата левая кнопка в начале участка, где посчитано количество полос
Text1.Text = X: Text2.Text = Y: X0(1) = X: Y0(1) = Y
Picture2.Circle (X, Y), 5.2, RGB(0, 0, 250)
End If
If Button = 2 Then  '               если нажата правая кнопка в конце участка, где посчитано количество полос
Text7.Text = X: Text8.Text = Y: X0(2) = X: Y0(2) = Y
Picture2.Circle (X, Y), 5.2, RGB(0, 0, 250)
End If
GoTo 100
90: MsgBox "Не могу найти эту точку", , "Maikelson"
100: End Sub

Private Sub Command6_Click() '         находим шириу полос на интервале где ткнули мышкой
On Error GoTo 90
Nv0 = Text6.Text '                                                             количество полос на выбранном участке
ML = Text3.Text '                                                              масштаб по ширине и высоте рисунка (общий)
X0(3) = Sqr((X0(2) - X0(1)) ^ 2 + (Y0(2) - Y0(1)) ^ 2): Text9.Text = X0(3) '   длина выбранного участка в пикселях
Text5.Text = X0(3) * ML / Nv0 '                                                ширина одной полосы в микрометрах
GoTo 100
90: MsgBox "Задайте две точки на рисунке", , "Maikelson"
100: End Sub

Private Sub HScroll1_Change()
Picture2.Left = -HScroll1.Value
Picture2.Refresh
End Sub
Private Sub HScroll1_Scroll()
Picture2.Left = -HScroll1.Value
Picture2.Refresh
End Sub

Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
Picture2.Refresh
End Sub
Private Sub VScroll1_Scroll()
Picture2.Top = -VScroll1.Value
Picture2.Refresh
End Sub

Private Sub Command5_Click() '                     закрыть форму
Unload Me
End Sub

Private Sub Form(Cancel As Integer) '         закрыть форму крестиком

End Sub

