frmmain.frm

大量优秀的vb编程

VERSION 5.00
Begin VB.Form frmMain 
   Caption         =   "将彩色位图转化为灰度图"
   ClientHeight    =   3975
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5520
   LinkTopic       =   "Form1"
   ScaleHeight     =   265
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   368
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdRestore 
      Caption         =   "还原位图"
      Height          =   330
      Left            =   3240
      TabIndex        =   1
      Top             =   3480
      Width           =   1200
   End
   Begin VB.CommandButton cmdChange 
      Caption         =   "转换为灰度图"
      Height          =   330
      Left            =   1320
      TabIndex        =   0
      Top             =   3480
      Width           =   1800
   End
   Begin VB.PictureBox picSrc 
      AutoSize        =   -1  'True
      Height          =   11580
      Left            =   60
      Picture         =   "frmMain.frx":0000
      ScaleHeight     =   768
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   1024
      TabIndex        =   2
      Top             =   64
      Width           =   15420
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdChange_Click()
    DrawGrayBitmap picSrc.hdc, 0, 0, 1024, 768
End Sub

Private Sub cmdRestore_Click()
    picSrc.Cls
End Sub