Блок-схема по программному коду - VB

Узнай цену своей работы

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

Решение задачи: «Блок-схема по программному коду»

textual
Листинг программы
Dim mas(100) As String, i As Integer, n As Integer, dr As String, nf As String, j As Integer, ret As Integer
Private Sub Form_Activate()
yst
End Sub
Private Sub Form_Resize()
Image1.Left = Form1.Left
Image1.Top = Form1.Top
Image1.Height = Form1.Height
Image1.Width = Form1.Width
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo 1:
If Button.Key = "kl3" Then
    i = 0
    Do
        CommonDialog1.FileName = ""
        CommonDialog1.ShowOpen
        Toolbar1.Buttons(1).Enabled = False
        nm = CommonDialog1.FileName
        If nm = "" Then
            Exit Do
        End If
        i = i + 1
        mas(i) = nm
        ret = MsgBox("Продолжить выборку файлов?", 1 + 32 + 0 + 0, "Выборка файлов")
        If ret <> 1 Then
            Exit Do
        End If
    Loop
    If i = 0 Then
        MsgBox "Ни выбрано ни одного файла!", 0, ""
        yst
        Exit Sub
    End If
    n = i
    i = 1
    nm = mas(i)
    Image1.Picture = LoadPicture(nm)
    Image1.Left = Form1.Left
    Image1.Top = Form1.Top
    Image1.Height = Form1.Height
    Image1.Width = Form1.Width
    StatusBar1.SimpleText = "Полное имя файла: " & nm
    Toolbar1.Buttons(4).Enabled = True
    If i <> 1 Then
        Toolbar1.Buttons(2).Enabled = True
        Else
        Toolbar1.Buttons(2).Enabled = False
    End If
    If i <> n Then
        Toolbar1.Buttons(3).Enabled = True
        Else
        Toolbar1.Buttons(3).Enabled = False
    End If
End If
If Button.Key = "kl1" Then
    If i <> 1 Then
        i = i - 1
        nm = mas(i)
        Image1.Picture = LoadPicture(nm)
        StatusBar1.SimpleText = " Полное имя файла: " & nm
    End If
    If i <> 1 Then
        Toolbar1.Buttons(2).Enabled = True
        Else
        Toolbar1.Buttons(2).Enabled = False
    End If
    If i <> n Then
        Toolbar1.Buttons(3).Enabled = True
        Else
        Toolbar1.Buttons(3).Enabled = False
    End If
End If
If Button.Key = "kl2" Then
    If i <> n Then
        i = i + 1
        nm = mas(i)
        Image1.Picture = LoadPicture(nm)
        StatusBar1.SimpleText = " Полное имя файла: " & nm
    End If
    If i <> 1 Then
        Toolbar1.Buttons(2).Enabled = True
        Else
        Toolbar1.Buttons(2).Enabled = False
    End If
    If i <> n Then
        Toolbar1.Buttons(3).Enabled = True
        Else
        Toolbar1.Buttons(3).Enabled = False
    End If
End If
If Button.Key = "kl4" Then
    Image1.Picture = LoadPicture()
    StatusBar1.SimpleText = ""
    yst
End If
Exit Sub
1:
If Button.Key = "kl2" Or Button.Key = "kl3" Then
    MsgBox "Файл " & nm & " Не является изображением!", 0, ""
    If Button.Key = "kl2" Then
        i = i - 1
    End If
    If Button.Key = "kl3" Then
        yst
    End If
End If
End Sub
Sub yst()
Toolbar1.Buttons(1).Enabled = True
Toolbar1.Buttons(2).Enabled = False
Toolbar1.Buttons(3).Enabled = False
Toolbar1.Buttons(4).Enabled = False
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.6 из 5