VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00004040&
   Caption         =   "Графический редактор"
   ClientHeight    =   4608
   ClientLeft      =   2916
   ClientTop       =   2400
   ClientWidth     =   6372
   LinkTopic       =   "Form1"
   PaletteMode     =   2  'Custom
   ScaleHeight     =   4608
   ScaleWidth      =   6372
   Begin VB.CommandButton cmdCircle 
      Caption         =   "Окружность"
      Height          =   495
      Left            =   120
      TabIndex        =   6
      Top             =   3840
      Width           =   1695
   End
   Begin VB.CommandButton cmdPoint 
      Caption         =   "Точка"
      Height          =   495
      Left            =   120
      TabIndex        =   5
      Top             =   960
      Width           =   1695
   End
   Begin VB.CommandButton cmdLineBF 
      Caption         =   "Закрашенный прямоугольник"
      Height          =   495
      Left            =   120
      TabIndex        =   4
      Top             =   3120
      Width           =   1695
   End
   Begin VB.CommandButton cmdLineB 
      Caption         =   "Прямоугольник"
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   2400
      Width           =   1695
   End
   Begin VB.CommandButton cmdLine 
      Caption         =   "Линия"
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   1680
      Width           =   1695
   End
   Begin VB.PictureBox picPaint 
      BackColor       =   &H00FFFFFF&
      DrawWidth       =   5
      Height          =   4000
      Left            =   2160
      ScaleHeight     =   3945
      ScaleMode       =   0  'User
      ScaleWidth      =   3495.017
      TabIndex        =   1
      Top             =   240
      Width           =   4000
   End
   Begin VB.CommandButton cmdScale 
      Caption         =   "Система координат"
      Height          =   495
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   1695
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bytX1, bytX2, bytY1, bytY2, bytC, bytR, bytG, bytB As Byte
Private Sub cmdScale_Click()
picPaint.Scale (0, 100)-(100, 0)
End Sub
Private Sub cmdPoint_Click()
bytX1 = InputBox("Введите координату Х", "Координата X")
bytY1 = InputBox("Введите координату Y", "Координата Y")
picPaint.PSet (bytX1, bytY1), vbRed
End Sub
Private Sub cmdLine_Click()
bytX1 = InputBox("Введите координату Х1", "Координата X1")
bytY1 = InputBox("Введите координату Y1", "Координата Y1")
bytX2 = InputBox("Введите координату Х2", "Координата X2")
bytY2 = InputBox("Введите координату Y2", "Координата Y2")
bytC = Val(InputBox("Введите цвет", "Цвет"))
picPaint.Line (bytX1, bytY1)-(bytX2, bytY2), QBColor(bytC)
End Sub
Private Sub cmdLineB_Click()
bytX1 = InputBox("Введите координату Х1", "Координата X1")
bytY1 = InputBox("Введите координату Y1", "Координата Y1")
bytX2 = InputBox("Введите координату Х2", "Координата X2")
bytY2 = InputBox("Введите координату Y2", "Координата Y2")
bytR = Val(InputBox("Введите интенсивность красного цвета", "Красный цвет"))
bytG = Val(InputBox("Введите интенсивность зеленого цвета", "Зеленый цвет"))
bytB = Val(InputBox("Введите интенсивность синего цвета", "Синий цвет"))
picPaint.Line (bytX1, bytY1)-(bytX2, bytY2), RGB(bytR, bytG, bytB), B
End Sub
Private Sub cmdLineBF_Click()
bytX1 = InputBox("Введите координату Х1", "Координата X1")
bytY1 = InputBox("Введите координату Y1", "Координата Y1")
bytX2 = InputBox("Введите координату Х2", "Координата X2")
bytY2 = InputBox("Введите координату Y2", "Координата Y2")
bytR = Val(InputBox("Введите интенсивность красного цвета", "Красный цвет"))
bytG = Val(InputBox("Введите интенсивность зеленого цвета", "Зеленый цвет"))
bytB = Val(InputBox("Введите интенсивность синего цвета", "Синий цвет"))
picPaint.Line (bytX1, bytY1)-(bytX2, bytY2), RGB(bytR, bytG, bytB), BF
End Sub
Private Sub cmdCircle_Click()
bytX = InputBox("Введите координату Х", "Координата X")
bytY = InputBox("Введите координату Y", "Координата Y")
bytR = InputBox("Введите величину радиуса", "Радиус")
bytR = Val(InputBox("Введите интенсивность красного цвета", "Красный цвет"))
bytG = Val(InputBox("Введите интенсивность зеленого цвета", "Зеленый цвет"))
bytB = Val(InputBox("Введите интенсивность синего цвета", "Синий цвет"))
picPaint.Circle (bytX, bytY), bytR, RGB(bytR, bytG, bytB)
End Sub

