form1.frm

vb电子书籍

   VERSION 5.00
   Begin VB.Form Form1
      BackColor       =   &H80000000&
      Caption         =   "象素操作"
      ClientHeight    =   2400
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   5700
      FillColor       =   &H00FF0000&
      BeginProperty Font
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Icon            =   "Form1.frx":0000
      LinkTopic       =   "Form1"
      ScaleHeight     =   2400
      ScaleWidth      =   5700
      StartUpPosition =   2  '屏幕中心
      Begin VB.CommandButton Command4
         Caption         =   "旋转"
         Height          =   375
         Left            =   4560
         TabIndex        =   4
         Top             =   1920
         Width           =   975
      End
      Begin VB.CommandButton Command3
         Caption         =   "翻转放大"
         Height          =   375
         Left            =   3000
         TabIndex        =   3
         Top             =   1920
         Width           =   1335
      End
      Begin VB.CommandButton Command2
         Caption         =   "水平翻转"
         Height          =   375
         Left            =   1440
         TabIndex        =   2
         Top             =   1920
         Width           =   1335
      End
      Begin VB.CommandButton Command1
         Caption         =   "复制"
         Height          =   375
         Left            =   240
         TabIndex        =   1
         Top             =   1920
         Width           =   975
      End
      Begin VB.PictureBox Picture1
         Height          =   975
         Left            =   1680
         Picture         =   "Form1.frx":000C
         ScaleHeight     =   915
         ScaleWidth      =   915
         TabIndex        =   0
         Top             =   240
         Width           =   975
      End
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
    Form1.PaintPicture Picture1, 0, 0
    
End Sub
    
'##################################################################
'## 过程名称：Command4_Click
'## 参数： 无
'##################################################################
Private Sub Command4_Click()
    For i = 1 To sw Step 15
        For j = 1 To sh Step 15
            Form1.PaintPicture Picture1, j, i, 15, 15, i, j, 15, 15
        Next j
    Next i
End Sub
'##################################################################
'## 过程名称：Form_Initialize
'## 参数： 无
'##################################################################
Private Sub Form_Initialize()
    sw = Picture1.ScaleWidth
    sh = Picture1.ScaleHeight
End Sub