Programming Tool Box

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

/ Programming Tool Box / SIMS_2.iso / code / game / jig3 / jig3.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-02-27 | 28.0 KB | 990 lines

VERSION 2.00 Begin Form Form1 Caption = "Very Simple Graphic Jigsaw Puzzle" ClientHeight = 6510 ClientLeft = 1245 ClientTop = 405 ClientWidth = 7080 Height = 6915 Left = 1185 LinkTopic = "Form3" ScaleHeight = 6510 ScaleWidth = 7080 Top = 60 Width = 7200 Begin PictureBox Picture2 Height = 1095 Left = 7200 Picture = JIG3.FRX:0000 ScaleHeight = 1065 ScaleWidth = 1185 TabIndex = 86 Top = 3240 Width = 1215 End Begin SSCommand Command3D3 Caption = "Quit" Height = 255 Left = 2520 TabIndex = 84 Top = 4800 Width = 1815 End Begin SSCommand Command3D2 Caption = """I give up"" button" Height = 255 Left = 2520 TabIndex = 83 Top = 720 Width = 1815 End Begin SSCommand Command3D1 Caption = "OK" Height = 255 Left = 6360 TabIndex = 82 Top = 120 Width = 615 End Begin PictureClip PicClip2 Cols = 5 Location = "1095,975,2040,7560" Rows = 8 End Begin TextBox Text1 Height = 285 Left = 3480 TabIndex = 80 Text = "filename.bmp" Top = 120 Width = 2775 End Begin PictureClip PicClip1 Cols = 5 Location = "1335,1215,600,7440" Rows = 8 End Begin PictureBox Picture1 Height = 495 Index = 79 Left = 5880 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 79 Top = 4320 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 78 Left = 5400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 78 Top = 4320 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 77 Left = 4920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 77 Top = 4320 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 76 Left = 4440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 76 Top = 4320 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 75 Left = 3960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 75 Top = 960 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 74 Left = 3960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 74 Top = 4320 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 73 Left = 5880 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 73 Top = 3840 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 72 Left = 5400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 72 Top = 3840 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 71 Left = 4920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 71 Top = 3840 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 70 Left = 4440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 70 Top = 3840 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 69 Left = 3960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 69 Top = 3840 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 68 Left = 5880 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 68 Top = 3360 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 67 Left = 5400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 67 Top = 3360 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 66 Left = 4920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 66 Top = 3360 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 65 Left = 4440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 65 Top = 3360 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 64 Left = 3960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 64 Top = 3360 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 63 Left = 5880 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 63 Top = 2880 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 62 Left = 5400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 62 Top = 2880 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 61 Left = 4920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 61 Top = 2880 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 60 Left = 4440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 60 Top = 2880 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 59 Left = 3960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 59 Top = 2880 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 58 Left = 5880 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 58 Top = 2400 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 57 Left = 5400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 57 Top = 2400 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 56 Left = 4920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 56 Top = 2400 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 55 Left = 4440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 55 Top = 2400 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 54 Left = 3960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 54 Top = 2400 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 53 Left = 5880 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 53 Top = 1920 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 52 Left = 5400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 52 Top = 1920 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 51 Left = 4920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 51 Top = 1920 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 50 Left = 4440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 50 Top = 1920 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 49 Left = 3960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 49 Top = 1920 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 48 Left = 5880 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 48 Top = 1440 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 47 Left = 5400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 47 Top = 1440 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 46 Left = 4920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 46 Top = 1440 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 45 Left = 4440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 45 Top = 1440 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 44 Left = 3960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 44 Top = 1440 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 43 Left = 5880 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 43 Top = 960 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 42 Left = 5400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 42 Top = 960 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 41 Left = 4920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 41 Top = 960 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 40 Left = 4440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 40 Top = 960 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 39 Left = 2400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 39 Top = 4320 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 38 Left = 1920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 38 Top = 4320 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 37 Left = 1440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 37 Top = 4320 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 36 Left = 960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 36 Top = 4320 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 0 Left = 480 ScaleHeight = 31 ScaleMode = 3 'Pixel ScaleWidth = 31 TabIndex = 35 Top = 960 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 35 Left = 480 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 34 Top = 4320 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 34 Left = 2400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 33 Top = 3840 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 33 Left = 1920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 32 Top = 3840 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 32 Left = 1440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 31 Top = 3840 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 31 Left = 960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 30 Top = 3840 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 30 Left = 480 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 29 Top = 3840 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 29 Left = 2400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 28 Top = 3360 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 28 Left = 1920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 27 Top = 3360 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 27 Left = 1440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 26 Top = 3360 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 26 Left = 960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 25 Top = 3360 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 25 Left = 480 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 24 Top = 3360 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 24 Left = 2400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 23 Top = 2880 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 23 Left = 1920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 22 Top = 2880 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 22 Left = 1440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 21 Top = 2880 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 21 Left = 960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 20 Top = 2880 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 20 Left = 480 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 19 Top = 2880 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 19 Left = 2400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 18 Top = 2400 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 18 Left = 1920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 17 Top = 2400 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 17 Left = 1440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 16 Top = 2400 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 16 Left = 960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 15 Top = 2400 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 15 Left = 480 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 14 Top = 2400 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 14 Left = 2400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 13 Top = 1920 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 13 Left = 1920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 12 Top = 1920 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 12 Left = 1440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 11 Top = 1920 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 11 Left = 960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 10 Top = 1920 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 10 Left = 480 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 9 Top = 1920 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 9 Left = 2400 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 8 Top = 1440 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 8 Left = 1920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 7 Top = 1440 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 7 Left = 1440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 6 Top = 1440 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 6 Left = 960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 5 Top = 1440 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 5 Left = 480 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 4 Top = 1440 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 4 Left = 2400 ScaleHeight = 31 ScaleMode = 3 'Pixel ScaleWidth = 31 TabIndex = 3 Top = 960 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 3 Left = 1920 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 2 Top = 960 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 2 Left = 1440 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 1 Top = 960 Width = 495 End Begin PictureBox Picture1 Height = 495 Index = 1 Left = 960 ScaleHeight = 465 ScaleWidth = 465 TabIndex = 0 Top = 960 Width = 495 End Begin Label Label3 Caption = "Freeware. By Jay Farrel Weiss. Compuserve ID: 70244,2130." Height = 255 Left = 720 TabIndex = 87 Top = 6240 Width = 5535 End Begin Label Label2 Caption = "Object: Click once on a graphic section you want to move, then click once on the empty spot for which you want it moved to. Continue moving around graphic sections until the picture is completely unscrambled on the left side." Height = 855 Left = 360 TabIndex = 85 Top = 5160 Width = 6255 End Begin Label Label1 Caption = "Enter bmp file to load and press OK (or play with the sample already loaded):" Height = 495 Left = 0 TabIndex = 81 Top = 120 Width = 3375 End Option Explicit Dim tmpint As Integer Dim lastindex As Integer Dim xmode As Integer Sub command3d1_click () Dim tmprow As Integer Dim tmpcol As Integer Dim tmpcell As Integer ' Initialize and scramble... If xmode = True Then picclip2.Picture = picture2 Else picclip2.Picture = LoadPicture(text1) End If picclip2.ClipHeight = 30 * 8 picclip2.ClipWidth = 30 * 5 picclip1.Rows = 1 picclip1.Cols = 1 picclip1.Picture = picclip2.Clip picclip1.Rows = 8 picclip1.Cols = 5 ' Initialize sections to empty For tmpint = 0 To 79 picture1(tmpint).Picture = LoadPicture() Next tmpint ' This is not exactly random, but you get the idea... tmpcell = 0 For tmpcol = 0 To 4 For tmprow = 0 To 7 picture1((tmprow * 5) + tmpcol).Picture = picclip1.GraphicCell(tmpcell) tmpcell = tmpcell + 1 Next tmprow DoEvents Next tmpcol End Sub Sub Command3D2_Click () Dim tmprow As Integer Dim tmpcol As Integer Dim tmpcell As Integer ' Load picture without any scrambling... If xmode = True Then picclip2.Picture = picture2 Else picclip2.Picture = LoadPicture(text1) End If picclip2.ClipHeight = 30 * 8 picclip2.ClipWidth = 30 * 5 picclip1.Rows = 1 picclip1.Cols = 1 picclip1.Picture = picclip2.Clip picclip1.Rows = 8 picclip1.Cols = 5 For tmpint = 0 To 79 picture1(tmpint).Picture = LoadPicture() Next tmpint tmpcell = 0 For tmpcol = 0 To 4 For tmprow = 0 To 7 picture1((tmprow * 5) + tmpcol).Picture = picclip1.GraphicCell((tmprow * 5) + tmpcol) tmpcell = tmpcell + 1 Next tmprow DoEvents Next tmpcol End Sub Sub Command3D3_Click () ' Quit End End Sub Sub Form_Load () ' Initialize lastindex = -1 For tmpint = 0 To 79 picture1(tmpint).ScaleMode = 3 Next tmpint picclip1.Rows = 8 picclip1.Cols = 5 xmode = True command3d1_click End Sub Sub Picture1_Click (index As Integer) ' Move a section... If lastindex <> -1 Then If picture1(index).Picture = LoadPicture() Then If picture1(lastindex).Picture <> LoadPicture() Then picture1(index).Picture = picture1(lastindex).Picture picture1(lastindex).Picture = LoadPicture() End If End If End If lastindex = index End Sub Sub Text1_Change () If xmode = True Then picture2 = LoadPicture() End If xmode = False End Sub