Mastering Visual Basic 6

home *** CD-ROM | disk | FTP | other *** search

/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch07 / paintpic / paintpic.frm (.txt) next >

Wrap

Visual Basic Form | 1998-07-03 | 22.7 KB | 682 lines

VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#2.0#0"; "MSCOMCTL.OCX" Begin VB.Form PaintPicForm BackColor = &H00C0C0C0& Caption = "PAINTPICTURE Demo" ClientHeight = 5175 ClientLeft = 285 ClientTop = 480 ClientWidth = 10605 BeginProperty Font Name = "Times New Roman" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty LinkTopic = "Form1" PaletteMode = 1 'UseZOrder ScaleHeight = 5175 ScaleWidth = 10605 Begin VB.PictureBox Target BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 2595 Left = 6570 ScaleHeight = 173 ScaleMode = 3 'Pixel ScaleWidth = 239 TabIndex = 1 Top = 1290 Width = 3585 End Begin VB.PictureBox Source BorderStyle = 0 'None BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 2625 Left = 300 Picture = "Paintpic.frx":0000 ScaleHeight = 175 ScaleMode = 3 'Pixel ScaleWidth = 242 TabIndex = 0 Top = 1275 Width = 3630 End Begin MSComDlg.CommonDialog CMDialog1 Left = 195 Top = 5340 _ExtentX = 847 _ExtentY = 847 _Version = 393216 Filter = "Bitmap|*.BMP;*.DIB" FontSize = 1.17491e-38 End Begin VB.PictureBox Panel3D11 BeginProperty Font Name = "Verdana" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 3825 Left = 4155 ScaleHeight = 3765 ScaleWidth = 2085 TabIndex = 2 Top = 750 Width = 2145 Begin VB.OptionButton RasterOpBox Caption = "NOTSRCINVERT" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 11 Left = 210 TabIndex = 12 Top = 3375 Width = 1620 End Begin VB.OptionButton RasterOpBox Caption = "NOTSRCCOPY" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 10 Left = 210 TabIndex = 11 Top = 855 Width = 1425 End Begin VB.OptionButton RasterOpBox Caption = "SRCERASE" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 9 Left = 210 TabIndex = 10 Top = 2625 Width = 1290 End Begin VB.OptionButton RasterOpBox Caption = "SRCCOPY" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 8 Left = 210 TabIndex = 9 Top = 1365 Width = 1380 End Begin VB.OptionButton RasterOpBox Caption = "SRCINVERT " BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 7 Left = 210 TabIndex = 8 Top = 3135 Width = 1500 End Begin VB.OptionButton RasterOpBox Caption = "NOTSRCERASE" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 6 Left = 210 TabIndex = 7 Top = 2865 Width = 1665 End Begin VB.OptionButton RasterOpBox Caption = "SRCPAINT " BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 5 Left = 210 TabIndex = 6 Top = 2370 Width = 1350 End Begin VB.OptionButton RasterOpBox Caption = "SRCAND " BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 3 Left = 210 TabIndex = 5 Top = 1875 Width = 1200 End Begin VB.OptionButton RasterOpBox Caption = "DSTINVERT " BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 2 Left = 210 TabIndex = 4 Top = 1620 Width = 1290 End Begin VB.OptionButton RasterOpBox Caption = "WHITENESS" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 1 Left = 210 TabIndex = 3 Top = 1125 Width = 1485 End Begin VB.OptionButton RasterOpBox Caption = "MERGEPAINT" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 4 Left = 210 TabIndex = 15 Top = 2115 Width = 1485 End Begin VB.OptionButton RasterOpBox Caption = "BLACKNESS" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 225 Index = 0 Left = 210 TabIndex = 16 Top = 600 Width = 1485 End Begin VB.CommandButton SSCommand2 Caption = "Copy Image" BeginProperty Font Name = "Verdana" Size = 11.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 390 Left = 120 TabIndex = 17 Top = 90 Width = 1890 End End Begin VB.Frame Panel3D12 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 2925 Left = 225 TabIndex = 13 Top = 1080 Width = 3780 End Begin VB.Frame Panel3D13 BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 2925 Left = 6480 TabIndex = 14 Top = 1080 Width = 3780 End Begin ComctlLib.Slider SliderSourceX Height = 300 Left = 1515 TabIndex = 18 Top = 150 Width = 2460 _ExtentX = 4339 _ExtentY = 529 _Version = 393216 LargeChange = 1 SmallChange = 10 Max = 250 TickFrequency = 50 End Begin ComctlLib.Slider SliderSourceY Height = 285 Left = 1515 TabIndex = 19 Top = 585 Width = 2460 _ExtentX = 4339 _ExtentY = 503 _Version = 393216 LargeChange = 1 SmallChange = 10 Max = 180 TickFrequency = 30 End Begin ComctlLib.Slider SliderSourceWidth Height = 300 Left = 1515 TabIndex = 22 Top = 4140 Width = 2460 _ExtentX = 4339 _ExtentY = 529 _Version = 393216 LargeChange = 1 SmallChange = 110 Max = 250 TickFrequency = 50 End Begin ComctlLib.Slider SliderSourceHeight Height = 285 Left = 1515 TabIndex = 23 Top = 4605 Width = 2460 _ExtentX = 4339 _ExtentY = 503 _Version = 393216 LargeChange = 1 SmallChange = 110 Max = 180 TickFrequency = 30 End Begin ComctlLib.Slider SliderDestX Height = 300 Left = 7740 TabIndex = 26 Top = 150 Width = 2415 _ExtentX = 4260 _ExtentY = 529 _Version = 393216 LargeChange = 1 Max = 250 TickFrequency = 50 End Begin ComctlLib.Slider SliderDestY Height = 300 Left = 7740 TabIndex = 27 Top = 570 Width = 2430 _ExtentX = 4286 _ExtentY = 529 _Version = 393216 LargeChange = 1 Max = 180 TickFrequency = 30 End Begin ComctlLib.Slider SliderDestWidth Height = 300 Left = 7725 TabIndex = 30 Top = 4125 Width = 2520 _ExtentX = 4445 _ExtentY = 529 _Version = 393216 LargeChange = 1 Max = 250 TickFrequency = 50 End Begin ComctlLib.Slider SliderDestHeight Height = 300 Left = 7740 TabIndex = 31 Top = 4590 Width = 2505 _ExtentX = 4419 _ExtentY = 529 _Version = 393216 LargeChange = 1 Max = 180 TickFrequency = 30 End Begin VB.Label lblDestHeight Caption = "Height" Height = 255 Left = 6480 TabIndex = 33 Top = 4620 Width = 1170 End Begin VB.Label lblDestWidth Caption = "Width" Height = 315 Left = 6510 TabIndex = 32 Top = 4125 Width = 1125 End Begin VB.Label lblDestY Caption = "Destination Y" Height = 285 Left = 6435 TabIndex = 29 Top = 578 Width = 1290 End Begin VB.Label lblDestX Caption = "Destination X" Height = 270 Left = 6420 TabIndex = 28 Top = 165 Width = 1335 End Begin VB.Label lblSourceHeight Caption = "Height" Height = 270 Left = 270 TabIndex = 25 Top = 4605 Width = 1140 End Begin VB.Label lblSourceWidth Caption = "Width" Height = 225 Left = 270 TabIndex = 24 Top = 4185 Width = 1170 End Begin VB.Label lblSourceY Caption = "SourceY" Height = 210 Left = 270 TabIndex = 21 Top = 615 Width = 1215 End Begin VB.Label lblSourceX Caption = "SourceX" Height = 270 Left = 270 TabIndex = 20 Top = 165 Width = 1275 End Attribute VB_Name = "PaintPicForm" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim RasterOp As Long Dim SourceX As Single, SourceY As Single Dim SourceWidth As Single, SourceHeight As Single Dim DestX As Single, DestY As Single Dim DestWidth As Single, DestHeight As Single Dim raster(16) As Long Private Sub Command2_Click() CMDialog1.Action = 1 CMDialog1.InitDir = App.Path If CMDialog1.FileName = "" Then Exit Sub On Error GoTo Error1 Source.Picture = LoadPicture(CMDialog1.FileName) Exit Sub Error1: MsgBox "Couldn't open file " + CMDialog1.FileName Exit Sub End Sub Private Sub Command3_Click() CMDialog1.Action = 1 CMDialog1.InitDir = App.Path If CMDialog1.FileName = "" Then Exit Sub On Error GoTo Error1 Target.Picture = LoadPicture(CMDialog1.FileName) Exit Sub Error1: MsgBox "Couldn't open file " + CMDialog1.FileName Exit Sub End Sub Private Sub Command4_Click() Target.Picture = LoadPicture("") End Sub Private Sub Form_Load() ChDir App.Path On Error Resume Next raster(0) = &H42 ' BLACKNESS raster(1) = &HFF0062 ' WHITENESS raster(2) = &H550009 ' DSTINVERT raster(3) = &H8800C6 ' SRCAND raster(4) = &HBB0226 ' MERGEPAINT raster(5) = &HEE0086 ' SRCPAINT raster(6) = &H1100A6 ' NOTSRCERASE raster(7) = &H660046 ' SRCINVERT (XOR PEN) raster(8) = &HCC0020 ' SRCCOPY (COPY PEN) raster(9) = &H440328 ' SRCERASE raster(10) = &H330008 ' NOTSRCCOPY raster(11) = &H990066 ' NOTSRCINVERT RasterOpBox(8).Value = True RasterOp = raster(8) SliderSourceX_Change SliderSourceY_Change SliderSourceWidth.Value = SliderSourceWidth.Max SliderSourceHeight.Value = SliderSourceHeight.Max SliderDestWidth.Value = 205 SliderDestHeight.Value = 140 SliderDestX.Value = 20 SliderDestY.Value = 20 End Sub Private Sub RasterOpBox_Click(Index As Integer) RasterOp = raster(Index) End Sub Private Sub SliderDestHeight_Scroll() DestHeight = SliderDestHeight.Value lblDestHeight.Caption = "Height" + Space$(4) + Format$(DestHeight, "000") End Sub Private Sub SliderDestWidth_Scroll() DestWidth = SliderDestWidth.Value lblDestWidth.Caption = "Width" + Space$(4) + Format$(DestWidth, "000") End Sub Private Sub SliderDestX_Scroll() DestX = SliderDestX.Value lblDestX.Caption = "Dest X" + Space$(2) + Format$(DestX, "000") End Sub Private Sub SliderDestY_Scroll() DestY = SliderDestY.Value lblDestY.Caption = "Dest Y" + Space$(2) + Format$(DestY, "000") End Sub Private Sub SliderSourceHeight_Scroll() SourceHeight = SliderSourceHeight.Value lblSourceHeight.Caption = "Height" + Space$(2) + Format$(SourceHeight, "000") End Sub Private Sub SliderSourceWidth_Scroll() SourceWidth = SliderSourceWidth.Value lblSourceWidth.Caption = "Width" + Space$(2) + Format$(SourceWidth, "000") End Sub Private Sub SliderSourceX_Change() SourceX = SliderSourceX.Value lblSourceX.Caption = "Source X" + Space$(2) + Format$(SourceX, "000") End Sub Private Sub SliderSourceX_Scroll() SourceX = SliderSourceX.Value lblSourceX.Caption = "Source X" + Space$(2) + Format$(SourceX, "000") End Sub Private Sub SliderSourceY_Change() SourceY = SliderSourceY.Value lblSourceY.Caption = "Source Y" + Space$(2) + Format$(SourceY, "000") End Sub Private Sub SliderSourceWidth_Change() SourceWidth = SliderSourceWidth.Value lblSourceWidth.Caption = "Width" + Space$(2) + Format$(SourceWidth, "000") End Sub Private Sub SliderSourceHeight_Change() SourceHeight = SliderSourceHeight.Value lblSourceHeight.Caption = "Height" + Space$(2) + Format$(SourceHeight, "000") End Sub Private Sub SliderDestX_Change() DestX = SliderDestX.Value lblDestX.Caption = "Dest X" + Space$(2) + Format$(DestX, "000") End Sub Private Sub SliderDestY_Change() DestY = SliderDestY.Value lblDestY.Caption = "Dest Y" + Space$(2) + Format$(DestY, "000") End Sub Private Sub SliderDestWidth_Change() DestWidth = SliderDestWidth.Value lblDestWidth.Caption = "Width" + Space$(4) + Format$(DestWidth, "000") End Sub Private Sub SliderDestHeight_Change() DestHeight = SliderDestHeight.Value lblDestHeight.Caption = "Height" + Space$(4) + Format$(DestHeight, "000") End Sub Private Sub SSCommand1_Click() Target.PaintPicture Source.Picture, DestX, DestY, DestWidth, DestHeight, SourceX, SourceY, SourceWidth, SourceHeight, RasterOp End Sub Private Sub SliderSourceY_Scroll() SourceY = SliderSourceY.Value lblSourceY.Caption = "Source Y" + Space$(2) + Format$(SourceY, "000") End Sub Private Sub SSCommand2_Click() Target.PaintPicture Source.Picture, DestX, DestY, DestWidth, DestHeight, SourceX, SourceY, SourceWidth, SourceHeight, RasterOp End Sub Private Sub Target_Click() Target.Picture = LoadPicture("") End Sub