288 lines
11 KiB
VB.net
288 lines
11 KiB
VB.net
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
|
Partial Class Form1
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
'Form overrides dispose to clean up the component list.
|
|
<System.Diagnostics.DebuggerNonUserCode()>
|
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
Try
|
|
If disposing AndAlso components IsNot Nothing Then
|
|
components.Dispose()
|
|
End If
|
|
Finally
|
|
MyBase.Dispose(disposing)
|
|
End Try
|
|
End Sub
|
|
|
|
'Required by the Windows Form Designer
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'NOTE: The following procedure is required by the Windows Form Designer
|
|
'It can be modified using the Windows Form Designer.
|
|
'Do not modify it using the code editor.
|
|
<System.Diagnostics.DebuggerStepThrough()>
|
|
Private Sub InitializeComponent()
|
|
HitButton = New Button()
|
|
StandButton = New Button()
|
|
PlayerCard1 = New PictureBox()
|
|
PlayerCard2 = New PictureBox()
|
|
PlayerCard3 = New PictureBox()
|
|
PlayerCard4 = New PictureBox()
|
|
PlayerCard5 = New PictureBox()
|
|
PlayerCard6 = New PictureBox()
|
|
PlayerCard7 = New PictureBox()
|
|
PlayerCard8 = New PictureBox()
|
|
PlayerCard9 = New PictureBox()
|
|
PlayerCard10 = New PictureBox()
|
|
StartGame = New Button()
|
|
PlayerTotal = New Label()
|
|
DealerTotal = New Label()
|
|
WinMessage = New Label()
|
|
CType(PlayerCard1, ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(PlayerCard2, ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(PlayerCard3, ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(PlayerCard4, ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(PlayerCard5, ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(PlayerCard6, ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(PlayerCard7, ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(PlayerCard8, ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(PlayerCard9, ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(PlayerCard10, ComponentModel.ISupportInitialize).BeginInit()
|
|
SuspendLayout()
|
|
'
|
|
' HitButton
|
|
'
|
|
HitButton.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
HitButton.Enabled = False
|
|
HitButton.Font = New Font("Segoe UI", 36.0F, FontStyle.Regular, GraphicsUnit.Point)
|
|
HitButton.Location = New Point(100, 490)
|
|
HitButton.Name = "HitButton"
|
|
HitButton.Size = New Size(400, 150)
|
|
HitButton.TabIndex = 0
|
|
HitButton.Text = "Hit"
|
|
HitButton.UseVisualStyleBackColor = True
|
|
'
|
|
' StandButton
|
|
'
|
|
StandButton.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
StandButton.Enabled = False
|
|
StandButton.Font = New Font("Segoe UI", 36.0F, FontStyle.Regular, GraphicsUnit.Point)
|
|
StandButton.Location = New Point(780, 490)
|
|
StandButton.Name = "StandButton"
|
|
StandButton.Size = New Size(400, 150)
|
|
StandButton.TabIndex = 1
|
|
StandButton.Text = "Stand"
|
|
StandButton.UseVisualStyleBackColor = True
|
|
'
|
|
' PlayerCard1
|
|
'
|
|
PlayerCard1.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
PlayerCard1.ErrorImage = My.Resources.Resources.blue2
|
|
PlayerCard1.Image = My.Resources.Resources.blue
|
|
PlayerCard1.InitialImage = My.Resources.Resources.blue2
|
|
PlayerCard1.Location = New Point(150, 284)
|
|
PlayerCard1.Name = "PlayerCard1"
|
|
PlayerCard1.Size = New Size(125, 175)
|
|
PlayerCard1.TabIndex = 2
|
|
PlayerCard1.TabStop = False
|
|
'
|
|
' PlayerCard2
|
|
'
|
|
PlayerCard2.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
PlayerCard2.ErrorImage = My.Resources.Resources.blue2
|
|
PlayerCard2.Image = My.Resources.Resources.blue
|
|
PlayerCard2.InitialImage = My.Resources.Resources.blue2
|
|
PlayerCard2.Location = New Point(375, 284)
|
|
PlayerCard2.Name = "PlayerCard2"
|
|
PlayerCard2.Size = New Size(125, 175)
|
|
PlayerCard2.TabIndex = 3
|
|
PlayerCard2.TabStop = False
|
|
'
|
|
' PlayerCard3
|
|
'
|
|
PlayerCard3.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
PlayerCard3.ErrorImage = Nothing
|
|
PlayerCard3.InitialImage = Nothing
|
|
PlayerCard3.Location = New Point(578, 284)
|
|
PlayerCard3.Name = "PlayerCard3"
|
|
PlayerCard3.Size = New Size(125, 175)
|
|
PlayerCard3.TabIndex = 4
|
|
PlayerCard3.TabStop = False
|
|
'
|
|
' PlayerCard4
|
|
'
|
|
PlayerCard4.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
PlayerCard4.ErrorImage = Nothing
|
|
PlayerCard4.InitialImage = Nothing
|
|
PlayerCard4.Location = New Point(780, 284)
|
|
PlayerCard4.Name = "PlayerCard4"
|
|
PlayerCard4.Size = New Size(125, 175)
|
|
PlayerCard4.TabIndex = 5
|
|
PlayerCard4.TabStop = False
|
|
'
|
|
' PlayerCard5
|
|
'
|
|
PlayerCard5.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
PlayerCard5.ErrorImage = Nothing
|
|
PlayerCard5.InitialImage = Nothing
|
|
PlayerCard5.Location = New Point(1005, 284)
|
|
PlayerCard5.Name = "PlayerCard5"
|
|
PlayerCard5.Size = New Size(125, 175)
|
|
PlayerCard5.TabIndex = 6
|
|
PlayerCard5.TabStop = False
|
|
'
|
|
' PlayerCard6
|
|
'
|
|
PlayerCard6.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
PlayerCard6.BackgroundImageLayout = ImageLayout.None
|
|
PlayerCard6.ErrorImage = My.Resources.Resources.blue2
|
|
PlayerCard6.Image = My.Resources.Resources.blue
|
|
PlayerCard6.InitialImage = My.Resources.Resources.blue2
|
|
PlayerCard6.Location = New Point(1005, 12)
|
|
PlayerCard6.Name = "PlayerCard6"
|
|
PlayerCard6.Size = New Size(125, 175)
|
|
PlayerCard6.SizeMode = PictureBoxSizeMode.Zoom
|
|
PlayerCard6.TabIndex = 11
|
|
PlayerCard6.TabStop = False
|
|
'
|
|
' PlayerCard7
|
|
'
|
|
PlayerCard7.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
PlayerCard7.ErrorImage = My.Resources.Resources.blue2
|
|
PlayerCard7.Image = My.Resources.Resources.blue
|
|
PlayerCard7.InitialImage = My.Resources.Resources.blue2
|
|
PlayerCard7.Location = New Point(780, 12)
|
|
PlayerCard7.Name = "PlayerCard7"
|
|
PlayerCard7.Size = New Size(125, 175)
|
|
PlayerCard7.TabIndex = 10
|
|
PlayerCard7.TabStop = False
|
|
'
|
|
' PlayerCard8
|
|
'
|
|
PlayerCard8.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
PlayerCard8.ErrorImage = Nothing
|
|
PlayerCard8.InitialImage = Nothing
|
|
PlayerCard8.Location = New Point(578, 12)
|
|
PlayerCard8.Name = "PlayerCard8"
|
|
PlayerCard8.Size = New Size(125, 175)
|
|
PlayerCard8.TabIndex = 9
|
|
PlayerCard8.TabStop = False
|
|
'
|
|
' PlayerCard9
|
|
'
|
|
PlayerCard9.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
PlayerCard9.ErrorImage = Nothing
|
|
PlayerCard9.InitialImage = Nothing
|
|
PlayerCard9.Location = New Point(375, 12)
|
|
PlayerCard9.Name = "PlayerCard9"
|
|
PlayerCard9.Size = New Size(125, 175)
|
|
PlayerCard9.TabIndex = 8
|
|
PlayerCard9.TabStop = False
|
|
'
|
|
' PlayerCard10
|
|
'
|
|
PlayerCard10.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
PlayerCard10.ErrorImage = Nothing
|
|
PlayerCard10.InitialImage = Nothing
|
|
PlayerCard10.Location = New Point(150, 12)
|
|
PlayerCard10.Name = "PlayerCard10"
|
|
PlayerCard10.Size = New Size(125, 175)
|
|
PlayerCard10.TabIndex = 7
|
|
PlayerCard10.TabStop = False
|
|
'
|
|
' StartGame
|
|
'
|
|
StartGame.Anchor = AnchorStyles.Top Or AnchorStyles.Right
|
|
StartGame.Font = New Font("Segoe UI", 26.25F, FontStyle.Regular, GraphicsUnit.Point)
|
|
StartGame.Location = New Point(535, 490)
|
|
StartGame.Name = "StartGame"
|
|
StartGame.Size = New Size(210, 70)
|
|
StartGame.TabIndex = 12
|
|
StartGame.Text = "Start Game"
|
|
StartGame.UseVisualStyleBackColor = True
|
|
'
|
|
' PlayerTotal
|
|
'
|
|
PlayerTotal.AutoSize = True
|
|
PlayerTotal.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point)
|
|
PlayerTotal.Location = New Point(535, 561)
|
|
PlayerTotal.Name = "PlayerTotal"
|
|
PlayerTotal.Size = New Size(141, 30)
|
|
PlayerTotal.TabIndex = 13
|
|
PlayerTotal.Text = "Player Total: 0"
|
|
'
|
|
' DealerTotal
|
|
'
|
|
DealerTotal.AutoSize = True
|
|
DealerTotal.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point)
|
|
DealerTotal.Location = New Point(535, 610)
|
|
DealerTotal.Name = "DealerTotal"
|
|
DealerTotal.Size = New Size(145, 30)
|
|
DealerTotal.TabIndex = 14
|
|
DealerTotal.Text = "Dealer Total: 0"
|
|
'
|
|
' WinMessage
|
|
'
|
|
WinMessage.AutoSize = True
|
|
WinMessage.Font = New Font("Segoe UI", 15.75F, FontStyle.Regular, GraphicsUnit.Point)
|
|
WinMessage.Location = New Point(565, 221)
|
|
WinMessage.Name = "WinMessage"
|
|
WinMessage.Size = New Size(0, 30)
|
|
WinMessage.TabIndex = 15
|
|
'
|
|
' Form1
|
|
'
|
|
AutoScaleMode = AutoScaleMode.Inherit
|
|
ClientSize = New Size(1264, 681)
|
|
Controls.Add(WinMessage)
|
|
Controls.Add(DealerTotal)
|
|
Controls.Add(PlayerTotal)
|
|
Controls.Add(StartGame)
|
|
Controls.Add(PlayerCard6)
|
|
Controls.Add(PlayerCard7)
|
|
Controls.Add(PlayerCard8)
|
|
Controls.Add(PlayerCard9)
|
|
Controls.Add(PlayerCard10)
|
|
Controls.Add(PlayerCard5)
|
|
Controls.Add(PlayerCard4)
|
|
Controls.Add(PlayerCard3)
|
|
Controls.Add(PlayerCard2)
|
|
Controls.Add(PlayerCard1)
|
|
Controls.Add(StandButton)
|
|
Controls.Add(HitButton)
|
|
MinimumSize = New Size(1280, 720)
|
|
Name = "Form1"
|
|
StartPosition = FormStartPosition.CenterScreen
|
|
Text = "Blackjack"
|
|
CType(PlayerCard1, ComponentModel.ISupportInitialize).EndInit()
|
|
CType(PlayerCard2, ComponentModel.ISupportInitialize).EndInit()
|
|
CType(PlayerCard3, ComponentModel.ISupportInitialize).EndInit()
|
|
CType(PlayerCard4, ComponentModel.ISupportInitialize).EndInit()
|
|
CType(PlayerCard5, ComponentModel.ISupportInitialize).EndInit()
|
|
CType(PlayerCard6, ComponentModel.ISupportInitialize).EndInit()
|
|
CType(PlayerCard7, ComponentModel.ISupportInitialize).EndInit()
|
|
CType(PlayerCard8, ComponentModel.ISupportInitialize).EndInit()
|
|
CType(PlayerCard9, ComponentModel.ISupportInitialize).EndInit()
|
|
CType(PlayerCard10, ComponentModel.ISupportInitialize).EndInit()
|
|
ResumeLayout(False)
|
|
PerformLayout()
|
|
End Sub
|
|
|
|
Friend WithEvents HitButton As Button
|
|
Friend WithEvents StandButton As Button
|
|
Friend WithEvents PlayerCard1 As PictureBox
|
|
Friend WithEvents PlayerCard2 As PictureBox
|
|
Friend WithEvents PlayerCard3 As PictureBox
|
|
Friend WithEvents PlayerCard4 As PictureBox
|
|
Friend WithEvents PlayerCard5 As PictureBox
|
|
Friend WithEvents PlayerCard6 As PictureBox
|
|
Friend WithEvents PlayerCard7 As PictureBox
|
|
Friend WithEvents PlayerCard8 As PictureBox
|
|
Friend WithEvents PlayerCard9 As PictureBox
|
|
Friend WithEvents PlayerCard10 As PictureBox
|
|
Friend WithEvents StartGame As Button
|
|
Friend WithEvents PlayerTotal As Label
|
|
Friend WithEvents DealerTotal As Label
|
|
Friend WithEvents WinMessage As Label
|
|
End Class
|