Visual Basic Source Code

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

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

Wrap

Visual Basic Form | 1994-07-31 | 9.6 KB | 312 lines

VERSION 2.00 Begin Form Roller1 AutoRedraw = -1 'True BackColor = &H00FFFFFF& Caption = "Roller" ClientHeight = 3870 ClientLeft = 1815 ClientTop = 1620 ClientWidth = 3255 Height = 4305 Left = 1740 LinkTopic = "Form2" ScaleHeight = 258 ScaleMode = 3 'Pixel ScaleWidth = 217 Top = 1260 Width = 3405 Begin PictureBox DiePic AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Height = 2880 Left = 3540 Picture = ROLLER1.FRX:0000 ScaleHeight = 192 ScaleMode = 3 'Pixel ScaleWidth = 96 TabIndex = 15 Top = 1200 Width = 1440 End Begin PictureBox DieBox Height = 675 Left = 180 ScaleHeight = 645 ScaleWidth = 2865 TabIndex = 9 Top = 1440 Width = 2895 Begin PictureBox Die5 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 480 Left = 2340 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 14 Top = 60 Width = 480 End Begin PictureBox Die4 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 480 Left = 1740 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 13 Top = 60 Width = 480 End Begin PictureBox Die3 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 480 Left = 1200 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 12 Top = 60 Width = 480 End Begin PictureBox Die2 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 480 Left = 660 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 11 Top = 60 Width = 480 End Begin PictureBox Die1 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 480 Left = 120 ScaleHeight = 32 ScaleMode = 3 'Pixel ScaleWidth = 32 TabIndex = 10 Top = 60 Width = 480 End End Begin PictureBox NumPic AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H00FFFFFF& BorderStyle = 0 'None Height = 1035 Left = 3420 Picture = ROLLER1.FRX:247A ScaleHeight = 69 ScaleMode = 3 'Pixel ScaleWidth = 130 TabIndex = 7 Top = 60 Width = 1950 End Begin PictureBox NumBox BackColor = &H00000000& Height = 495 Left = 180 ScaleHeight = 31 ScaleMode = 3 'Pixel ScaleWidth = 75 TabIndex = 1 Top = 180 Width = 1155 Begin PictureBox Num5 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 345 Left = 840 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 13 TabIndex = 6 Top = 60 Width = 195 End Begin PictureBox Num4 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 345 Left = 645 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 13 TabIndex = 5 Top = 60 Width = 195 End Begin PictureBox Num3 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 345 Left = 450 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 13 TabIndex = 4 Top = 60 Width = 195 End Begin PictureBox Num2 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 345 Left = 255 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 13 TabIndex = 3 Top = 60 Width = 195 End Begin PictureBox Num1 AutoRedraw = -1 'True BorderStyle = 0 'None Height = 345 Left = 60 ScaleHeight = 23 ScaleMode = 3 'Pixel ScaleWidth = 13 TabIndex = 2 Top = 60 Width = 195 End End Begin CommandButton Command1 Caption = "Roll" Height = 495 Left = 300 TabIndex = 0 Top = 3180 Width = 1215 End Begin Frame Frame1 BackColor = &H00FFFFFF& Height = 1095 Left = 60 TabIndex = 8 Top = 0 Width = 3135 Begin OptionButton WhiteNum BackColor = &H00FFFFFF& Caption = "White" Height = 255 Left = 1860 TabIndex = 20 Top = 660 Width = 1155 End Begin OptionButton GreenNum BackColor = &H00FFFFFF& Caption = "Green" Height = 255 Left = 1860 TabIndex = 19 Top = 420 Width = 1095 End Begin OptionButton RedNum BackColor = &H00FFFFFF& Caption = "Red" Height = 255 Left = 1860 TabIndex = 18 Top = 180 Value = -1 'True Width = 1095 End End Begin Frame Frame2 BackColor = &H00FFFFFF& Height = 1875 Left = 60 TabIndex = 16 Top = 1200 Width = 3135 Begin OptionButton RedDie BackColor = &H00FFFFFF& Caption = "Red" Height = 255 Left = 1740 TabIndex = 23 Top = 1500 Width = 1035 End Begin OptionButton GreenDie BackColor = &H00FFFFFF& Caption = "Green" Height = 255 Left = 1740 TabIndex = 22 Top = 1260 Width = 975 End Begin OptionButton WhiteDie BackColor = &H00FFFFFF& Caption = "White" Height = 255 Left = 1740 TabIndex = 21 Top = 1020 Value = -1 'True Width = 1155 End Begin CommandButton Command2 Caption = "Roll" Height = 495 Left = 0 TabIndex = 17 Top = 2940 Width = 1215 End End Begin Label Label1 Caption = "Pull right side over to Reveal BitMaps >>>>>" Height = 615 Left = 1800 TabIndex = 24 Top = 3120 Width = 1335 End Option Explicit Sub Command1_Click () Dim I As Integer Dim DieColor As Integer Dim NumColor As Integer If RedDie.Value = True Then DieColor = 3 ElseIf GreenDie.Value = True Then DieColor = 2 Else DieColor = 1 End If If RedNum.Value = True Then NumColor = 1 ElseIf GreenNum.Value = True Then NumColor = 2 Else NumColor = 3 End If For I = 1 To 10 RollNum NumPic, NumColor, Num1, Num2, Num3, Num4, Num5 RollDice DiePic, DieColor, Die1, Die2, Die3, Die4, Die5 Next I End Sub Sub Form_Load () RollNum NumPic, 1, Num1, Num2, Num3, Num4, Num5 RollDice DiePic, 1, Die1, Die2, Die3, Die4, Die5 End Sub