Visual Basic Source Code

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

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tab100 / tabboard.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-09-06 | 14.8 KB | 491 lines

VERSION 2.00 Begin Form Form1 BackColor = &H0000C000& Caption = "Tablenette" ClientHeight = 5400 ClientLeft = 885 ClientTop = 1770 ClientWidth = 8655 Height = 6090 Icon = TABBOARD.FRX:0000 Left = 825 LinkMode = 1 'Source LinkTopic = "Form1" ScaleHeight = 5400 ScaleWidth = 8655 Top = 1140 Width = 8775 Begin PictureBox Picture4 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 6 Left = 6120 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 16 Top = 6000 Visible = 0 'False Width = 1095 End Begin PictureBox Picture4 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 5 Left = 4920 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 15 Top = 6000 Visible = 0 'False Width = 1095 End Begin PictureBox Picture4 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 4 Left = 3720 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 14 Top = 6000 Visible = 0 'False Width = 1095 End Begin PictureBox Picture4 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 3 Left = 2520 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 13 Top = 6000 Visible = 0 'False Width = 1095 End Begin PictureBox Picture4 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 2 Left = 1320 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 12 Top = 6000 Visible = 0 'False Width = 1095 End Begin PictureBox Picture4 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 1 Left = 120 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 11 Top = 6000 Visible = 0 'False Width = 1095 End Begin PictureBox Picture3 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Height = 1455 Index = 1 Left = 7440 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 10 Top = 3840 Visible = 0 'False Width = 1095 End Begin PictureBox Picture2 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 6 Left = 6120 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 9 Top = 3840 Visible = 0 'False Width = 1095 End Begin PictureBox Picture2 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 5 Left = 4920 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 8 Top = 3840 Visible = 0 'False Width = 1095 End Begin PictureBox Picture2 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 4 Left = 3720 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 7 Top = 3840 Visible = 0 'False Width = 1095 End Begin PictureBox Picture2 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 3 Left = 2520 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 6 Top = 3840 Visible = 0 'False Width = 1095 End Begin PictureBox Picture2 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 2 Left = 1320 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 5 Top = 3840 Visible = 0 'False Width = 1095 End Begin PictureBox Picture2 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None DragMode = 1 'Automatic Height = 1455 Index = 1 Left = 120 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 4 Top = 3840 Visible = 0 'False Width = 1095 End Begin Timer Timer1 Interval = 1 Left = 5040 Top = 3240 End Begin CommandButton ComputerMove Caption = "Computer Move" Height = 495 Left = 3120 TabIndex = 29 Top = 3240 Visible = 0 'False Width = 1815 End Begin PictureBox Picture5 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Enabled = 0 'False Height = 1455 Index = 1 Left = 6120 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 30 Top = 1680 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Enabled = 0 'False Height = 1455 Index = 12 Left = 4920 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 24 Top = 1680 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Enabled = 0 'False Height = 1455 Index = 11 Left = 3720 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 23 Top = 1680 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Enabled = 0 'False Height = 1455 Index = 10 Left = 2520 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 22 Top = 1680 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Enabled = 0 'False Height = 1455 Index = 9 Left = 1320 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 21 Top = 1680 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Enabled = 0 'False Height = 1455 Index = 8 Left = 120 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 20 Top = 1680 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Enabled = 0 'False Height = 1455 Index = 7 Left = 7320 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 19 Top = 120 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Enabled = 0 'False Height = 1455 Index = 6 Left = 6120 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 18 Top = 120 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Height = 1455 Index = 5 Left = 4920 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 17 Top = 120 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Height = 1455 Index = 4 Left = 3720 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 3 Top = 120 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Height = 1455 Index = 3 Left = 2520 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 2 Top = 120 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Height = 1455 Index = 2 Left = 1320 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 1 Top = 120 Visible = 0 'False Width = 1095 End Begin PictureBox Picture1 AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Height = 1455 Index = 1 Left = 120 ScaleHeight = 1455 ScaleWidth = 1095 TabIndex = 0 Top = 120 Visible = 0 'False Width = 1095 End Begin Label ComputerScore BackColor = &H0000FFFF& BorderStyle = 1 'Fixed Single Height = 255 Left = 7200 TabIndex = 28 Top = 3360 Width = 1335 End Begin Label Label2 BackColor = &H0000FFFF& Caption = "Computer Score :" Height = 255 Left = 5520 TabIndex = 27 Top = 3360 Width = 1575 End Begin Label PlayerScore BackColor = &H0000FFFF& BorderStyle = 1 'Fixed Single Height = 255 Left = 1440 TabIndex = 26 Top = 3360 Width = 1335 End Begin Label Label1 BackColor = &H0000FFFF& Caption = "Player Score:" Height = 255 Left = 120 TabIndex = 25 Top = 3360 Width = 1215 End Begin Menu File Caption = "&File" Begin Menu FileNew Caption = "&New Game" Shortcut = {F2} End Begin Menu FileExit Caption = "E&xit" End End Begin Menu Help Caption = "Help" Begin Menu HelpAbout Caption = "&About" End End Sub ComputerMove_Click () MakeComputerMove End Sub Sub FileExit_Click () End End Sub Sub FileNew_Click () NewGame FirstDeal End Sub Sub HelpAbout_Click () AboutForm.Show MODAL End Sub Sub Picture1_DragDrop (Index As Integer, Source As Control, X As Single, Y As Single) MakeMove Index, Source, X, Y End Sub Sub Timer1_Timer () LoadSuits NewGame FirstDeal Timer1.Enabled = False HelpAbout_Click End Sub