Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/Fast_image47320182002.psc/Form1.frm

Visual Basic Form | 2002-01-09 | 5.8 KB | 191 lines

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form1
   Caption         =   "VB FastImage Processing Demo"
   ClientHeight    =   7575
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9660
   LinkTopic       =   "Form1"
   ScaleHeight     =   7575
   ScaleWidth      =   9660
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command12
      Caption         =   "CallBack Sample"
      Height          =   615
      Left            =   8160
      TabIndex        =   13
      Top             =   720
      Width           =   1335
   End
   Begin ComctlLib.ProgressBar ProgressBar1
      Height          =   375
      Left            =   120
      TabIndex        =   12
      Top             =   6600
      Width           =   7935
      _ExtentX        =   13996
      _ExtentY        =   661
      _Version        =   327682
      Appearance      =   1
   End
   Begin VB.CommandButton Command11
      Caption         =   "ligh soften kernel Example"
      Height          =   495
      Left            =   8160
      TabIndex        =   11
      Top             =   6120
      Width           =   1335
   End
   Begin VB.CommandButton Command10
      Caption         =   "Medium soften kernel Example"
      Height          =   495
      Left            =   8160
      TabIndex        =   10
      Top             =   5520
      Width           =   1335
   End
   Begin VB.CommandButton Command9
      Caption         =   "Clear"
      Height          =   255
      Left            =   8520
      TabIndex        =   9
      Top             =   360
      Width           =   735
   End
   Begin VB.CommandButton Command8
      Caption         =   "Emboss kernel Example"
      Height          =   495
      Left            =   8160
      TabIndex        =   8
      Top             =   4320
      Width           =   1335
   End
   Begin VB.CommandButton Command7
      Caption         =   "FishEye"
      Height          =   375
      Left            =   8160
      TabIndex        =   7
      Top             =   3840
      Width           =   1335
   End
   Begin VB.CommandButton Command6
      Caption         =   "Blur"
      Height          =   375
      Left            =   8160
      TabIndex        =   6
      Top             =   3360
      Width           =   1335
   End
   Begin VB.CommandButton Command5
      Caption         =   "Lighten"
      Height          =   375
      Left            =   8160
      TabIndex        =   5
      Top             =   2880
      Width           =   1335
   End
   Begin VB.CommandButton Command4
      Caption         =   "Darken"
      Height          =   375
      Left            =   8160
      TabIndex        =   4
      Top             =   2400
      Width           =   1335
   End
   Begin VB.CommandButton Command3
      Caption         =   "GrayScale"
      Height          =   375
      Left            =   8160
      TabIndex        =   3
      Top             =   1920
      Width           =   1335
   End
   Begin VB.CommandButton Command2
      Caption         =   "Heavy soften kernel Example"
      Height          =   495
      Left            =   8160
      TabIndex        =   2
      Top             =   4920
      Width           =   1335
   End
   Begin VB.CommandButton Command1
      Caption         =   "InvertDC"
      Height          =   375
      Left            =   8160
      TabIndex        =   1
      Top             =   1440
      Width           =   1335
   End
   Begin VB.PictureBox Picture1
      Height          =   6015
      Left            =   240
      Picture         =   "Form1.frx":0000
      ScaleHeight     =   397
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   517
      TabIndex        =   0
      Top             =   360
      Width           =   7815
   End
   Begin VB.Menu mFIL
      Caption         =   "File"
      Begin VB.Menu mLoad
         Caption         =   "Load image"
      End
      Begin VB.Menu mKuit
         Caption         =   "Exit"
      End
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'===========================================
' This code show how to make fast image processing
'  and check the progression thanks to a CallBack function
'The filter engine use 3*3 KernelMatrix
'and a devide and adcolor parameters
'so it's possible to generate infinite filters
'  If u want to modifiate this code please let me know
' if u want tips for more filters write me at
' [e-mail]
'============================================
Private PIC_WIDTH As Integer
Private PIC_HEIGHT As Integer
Private Sub Command1_Click()
Call Module1.GetPixelData
Module1.InvertRVB RVBarray(0, 0), PIC_WIDTH, PIC_HEIGHT ', AddressOf Module1.Progress
Module1.Blit
End Sub
Private Sub Command10_Click()
Dim KER(9) As Single
Dim v As Variant
v = Array(10, 10, 10, _
           10, 20, 10, _
          10, 10, 10)
For c't  75cmiEIGHT As Integer
Private Sub Command1_Click()
End aate Sub Command1_Click()
End aate Sne
eWks   10)
For c't  75cmiEIG75cmiEIGHT As Integer
Private Sub Command10_Click()
Dim KER(9) As Single
Dim v As Variant
- 20,_ommEIGHT As Integer
Private SuuemiEIGHT As Integer
Privateger
Private SuuemiEIGHT 1c0 n1IFow to maitAstT As Integer
PrivatnFow to maitAstT As Integer
     D1teger
     D1teger
     D1teger
     D1teBntege
 Command5
      Caption    e3e S0_Click()
Dim KER(    Caw to maitAstT Aeingle
Dim HcHteger
0roatn  =   "Iw to maitAa)6a=   "Iw to 7S lar-dMr