VB.NET RSS VB.NET RSS

Big Problem, Generic Error

Please support our VB.NET advertiser: Intel Parallel Studio Home
Reply

•
•
Join Date: Dec 2004
Posts: 10
Reputation: weazel is an unknown quantity at this point 
Solved Threads: 0
weazel weazel is offline Offline
Newbie Poster

Big Problem, Generic Error

 
0
  #1
Jan 4th, 2005
Big Problem!!!
ok hangman all worked perfectly... then suddenly this erro came up!!!

SOMEBODY HELP ME PLEASE THIS IS DUE 2MORROW!!!

ERROR = An unhandled exception of type 'System.Runtime.InteropServices.ExternalException' occurred in system.windows.forms.dll

Additional information: A generic error occurred in GDI+.

VB.NET Syntax (Toggle Plain Text) 
  1.  
  2. Public Class form1
  3.     Inherits System.Windows.Forms.Form
  4.     '      Author:  Misha Mitsnefes 
  5.  
  6.     'Completed On:  1/4/05
  7.  
  8.     'Program Name: Hang the Coyote  
  9.  
  10.     'Folder Names: Hang the Coyote
  11.  
  12.     'Description: This is the original hangman game with a little twist, instead of hanging a stick figure, you slowly flip the switch of the electric chair untill the coyote is fried:).
  13.  
  14.     '                            E V A L U A T I O N
  15.  
  16.     '               Pseudocode  ____ (10)       User Friendly  ____ (10)
  17.  
  18.     '       Proper Indentation  ____ ( 5)   Program Structure  ____ (10)
  19.  
  20.     'Descriptive Variable Names ____ ( 5)       Functionality  ____ (50)
  21.  
  22.     '            Documentation  ____ (10)     Bonus/(Penalty)  ____ ( ?)
  23.  
  24.     '                            Total  ____ (100)
  25.  
  26. #Region " Windows Form Designer generated code "
  27.  
  28.     Public Sub New()
  29.         MyBase.New()
  30.  
  31.         'This call is required by the Windows Form Designer.
  32.         InitializeComponent()
  33.  
  34.         'Add any initialization after the InitializeComponent() call
  35.  
  36.     End Sub
  37.  
  38.     'Form overrides dispose to clean up the component list.
  39.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  40.         If disposing Then
  41.             If Not (components Is Nothing) Then
  42.                 components.Dispose()
  43.             End If
  44.         End If
  45.         MyBase.Dispose(disposing)
  46.     End Sub
  47.  
  48.     'Required by the Windows Form Designer
  49.     Private components As System.ComponentModel.IContainer
  50.  
  51.     'NOTE: The following procedure is required by the Windows Form Designer
  52.     'It can be modified using the Windows Form Designer.  
  53.     'Do not modify it using the code editor.
  54.     Friend WithEvents btna As System.Windows.Forms.Button
  55.     Friend WithEvents btnm As System.Windows.Forms.Button
  56.     Friend WithEvents btnl As System.Windows.Forms.Button
  57.     Friend WithEvents btnk As System.Windows.Forms.Button
  58.     Friend WithEvents btnj As System.Windows.Forms.Button
  59.     Friend WithEvents btni As System.Windows.Forms.Button
  60.     Friend WithEvents btng As System.Windows.Forms.Button
  61.     Friend WithEvents btnf As System.Windows.Forms.Button
  62.     Friend WithEvents btne As System.Windows.Forms.Button
  63.     Friend WithEvents btnd As System.Windows.Forms.Button
  64.     Friend WithEvents btnc As System.Windows.Forms.Button
  65.     Friend WithEvents btnb As System.Windows.Forms.Button
  66.     Friend WithEvents btnu As System.Windows.Forms.Button
  67.     Friend WithEvents btnt As System.Windows.Forms.Button
  68.     Friend WithEvents btns As System.Windows.Forms.Button
  69.     Friend WithEvents btnr As System.Windows.Forms.Button
  70.     Friend WithEvents btnq As System.Windows.Forms.Button
  71.     Friend WithEvents btnp As System.Windows.Forms.Button
  72.     Friend WithEvents btno As System.Windows.Forms.Button
  73.     Friend WithEvents btnn As System.Windows.Forms.Button
  74.     Friend WithEvents btny As System.Windows.Forms.Button
  75.     Friend WithEvents btnx As System.Windows.Forms.Button
  76.     Friend WithEvents btnw As System.Windows.Forms.Button
  77.     Friend WithEvents btnv As System.Windows.Forms.Button
  78.     Friend WithEvents btnz As System.Windows.Forms.Button
  79.     Friend WithEvents btnh As System.Windows.Forms.Button
  80.     Friend WithEvents btnstart As System.Windows.Forms.Button
  81.     Friend WithEvents lbloutput As System.Windows.Forms.Label
  82.     Friend WithEvents btnexit As System.Windows.Forms.Button
  83.     Friend WithEvents lblwin As System.Windows.Forms.Label
  84.     Friend WithEvents lblloss As System.Windows.Forms.Label
  85.     Friend WithEvents lblwin1 As System.Windows.Forms.Label
  86.     Friend WithEvents lblloss1 As System.Windows.Forms.Label
  87.     Friend WithEvents lblguesses1 As System.Windows.Forms.Label
  88.     Friend WithEvents lblguesses As System.Windows.Forms.Label
  89.     Friend WithEvents lblmisses1 As System.Windows.Forms.Label
  90.     Friend WithEvents lblmisses As System.Windows.Forms.Label
  91.     Friend WithEvents lbllefty As System.Windows.Forms.Label
  92.     Friend WithEvents lbllefty1 As System.Windows.Forms.Label
  93.     Friend WithEvents picturebox As System.Windows.Forms.PictureBox
  94.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  95.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(form1))
  96.         Me.btnstart = New System.Windows.Forms.Button()
  97.         Me.lbloutput = New System.Windows.Forms.Label()
  98.         Me.btnexit = New System.Windows.Forms.Button()
  99.         Me.btna = New System.Windows.Forms.Button()
  100.         Me.btnm = New System.Windows.Forms.Button()
  101.         Me.btnl = New System.Windows.Forms.Button()
  102.         Me.btnk = New System.Windows.Forms.Button()
  103.         Me.btnj = New System.Windows.Forms.Button()
  104.         Me.btni = New System.Windows.Forms.Button()
  105.         Me.btnh = New System.Windows.Forms.Button()
  106.         Me.btng = New System.Windows.Forms.Button()
  107.         Me.btnf = New System.Windows.Forms.Button()
  108.         Me.btne = New System.Windows.Forms.Button()
  109.         Me.btnd = New System.Windows.Forms.Button()
  110.         Me.btnc = New System.Windows.Forms.Button()
  111.         Me.btnb = New System.Windows.Forms.Button()
  112.         Me.btny = New System.Windows.Forms.Button()
  113.         Me.btnx = New System.Windows.Forms.Button()
  114.         Me.btnw = New System.Windows.Forms.Button()
  115.         Me.btnv = New System.Windows.Forms.Button()
  116.         Me.btnu = New System.Windows.Forms.Button()
  117.         Me.btnt = New System.Windows.Forms.Button()
  118.         Me.btns = New System.Windows.Forms.Button()
  119.         Me.btnr = New System.Windows.Forms.Button()
  120.         Me.btnq = New System.Windows.Forms.Button()
  121.         Me.btnp = New System.Windows.Forms.Button()
  122.         Me.btno = New System.Windows.Forms.Button()
  123.         Me.btnn = New System.Windows.Forms.Button()
  124.         Me.btnz = New System.Windows.Forms.Button()
  125.         Me.lblwin = New System.Windows.Forms.Label()
  126.         Me.lblloss = New System.Windows.Forms.Label()
  127.         Me.lbllefty = New System.Windows.Forms.Label()
  128.         Me.lblwin1 = New System.Windows.Forms.Label()
  129.         Me.lbllefty1 = New System.Windows.Forms.Label()
  130.         Me.lblloss1 = New System.Windows.Forms.Label()
  131.         Me.lblguesses1 = New System.Windows.Forms.Label()
  132.         Me.lblguesses = New System.Windows.Forms.Label()
  133.         Me.lblmisses1 = New System.Windows.Forms.Label()
  134.         Me.lblmisses = New System.Windows.Forms.Label()
  135.         Me.picturebox = New System.Windows.Forms.PictureBox()
  136.         Me.SuspendLayout()
  137.         '
  138.         'btnstart
  139.         '
  140.         Me.btnstart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  141.         Me.btnstart.ForeColor = System.Drawing.Color.Firebrick
  142.         Me.btnstart.Location = New System.Drawing.Point(48, 328)
  143.         Me.btnstart.Name = "btnstart"
  144.         Me.btnstart.Size = New System.Drawing.Size(80, 24)
  145.         Me.btnstart.TabIndex = 0
  146.         Me.btnstart.Text = "Start"
  147.         '
  148.         'lbloutput
  149.         '
  150.         Me.lbloutput.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  151.         Me.lbloutput.ForeColor = System.Drawing.Color.Firebrick
  152.         Me.lbloutput.Location = New System.Drawing.Point(200, 328)
  153.         Me.lbloutput.Name = "lbloutput"
  154.         Me.lbloutput.Size = New System.Drawing.Size(408, 40)
  155.         Me.lbloutput.TabIndex = 1
  156.         Me.lbloutput.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  157.         '
  158.         'btnexit
  159.         '
  160.         Me.btnexit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  161.         Me.btnexit.ForeColor = System.Drawing.Color.Firebrick
  162.         Me.btnexit.Location = New System.Drawing.Point(672, 328)
  163.         Me.btnexit.Name = "btnexit"
  164.         Me.btnexit.Size = New System.Drawing.Size(80, 24)
  165.         Me.btnexit.TabIndex = 2
  166.         Me.btnexit.Text = "Exit"
  167.         '
  168.         'btna
  169.         '
  170.         Me.btna.Enabled = False
  171.         Me.btna.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  172.         Me.btna.ForeColor = System.Drawing.Color.Firebrick
  173.         Me.btna.Location = New System.Drawing.Point(192, 384)
  174.         Me.btna.Name = "btna"
  175.         Me.btna.Size = New System.Drawing.Size(32, 32)
  176.         Me.btna.TabIndex = 3
  177.         Me.btna.Text = "A"
  178.         '
  179.         'btnm
  180.         '
  181.         Me.btnm.Enabled = False
  182.         Me.btnm.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  183.         Me.btnm.ForeColor = System.Drawing.Color.Firebrick
  184.         Me.btnm.Location = New System.Drawing.Point(576, 384)
  185.         Me.btnm.Name = "btnm"
  186.         Me.btnm.Size = New System.Drawing.Size(32, 32)
  187.         Me.btnm.TabIndex = 4
  188.         Me.btnm.Text = "M"
  189.         '
  190.         'btnl
  191.         '
  192.         Me.btnl.Enabled = False
  193.         Me.btnl.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  194.         Me.btnl.ForeColor = System.Drawing.Color.Firebrick
  195.         Me.btnl.Location = New System.Drawing.Point(544, 384)
  196.         Me.btnl.Name = "btnl"
  197.         Me.btnl.Size = New System.Drawing.Size(32, 32)
  198.         Me.btnl.TabIndex = 5
  199.         Me.btnl.Text = "L"
  200.         '
  201.         'btnk
  202.         '
  203.         Me.btnk.Enabled = False
  204.         Me.btnk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  205.         Me.btnk.ForeColor = System.Drawing.Color.Firebrick
  206.         Me.btnk.Location = New System.Drawing.Point(512, 384)
  207.         Me.btnk.Name = "btnk"
  208.         Me.btnk.Size = New System.Drawing.Size(32, 32)
  209.         Me.btnk.TabIndex = 6
  210.         Me.btnk.Text = "K"
  211.         '
  212.         'btnj
  213.         '
  214.         Me.btnj.Enabled = False
  215.         Me.btnj.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  216.         Me.btnj.ForeColor = System.Drawing.Color.Firebrick
  217.         Me.btnj.Location = New System.Drawing.Point(480, 384)
  218.         Me.btnj.Name = "btnj"
  219.         Me.btnj.Size = New System.Drawing.Size(32, 32)
  220.         Me.btnj.TabIndex = 7
  221.         Me.btnj.Text = "J"
  222.         '
  223.         'btni
  224.         '
  225.         Me.btni.Enabled = False
  226.         Me.btni.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  227.         Me.btni.ForeColor = System.Drawing.Color.Firebrick
  228.         Me.btni.Location = New System.Drawing.Point(448, 384)
  229.         Me.btni.Name = "btni"
  230.         Me.btni.Size = New System.Drawing.Size(32, 32)
  231.         Me.btni.TabIndex = 8
  232.         Me.btni.Text = "I"
  233.         '
  234.         'btnh
  235.         '
  236.         Me.btnh.Enabled = False
  237.         Me.btnh.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  238.         Me.btnh.ForeColor = System.Drawing.Color.Firebrick
  239.         Me.btnh.Location = New System.Drawing.Point(416, 384)
  240.         Me.btnh.Name = "btnh"
  241.         Me.btnh.Size = New System.Drawing.Size(32, 32)
  242.         Me.btnh.TabIndex = 9
  243.         Me.btnh.Text = "H"
  244.         '
  245.         'btng
  246.         '
  247.         Me.btng.Enabled = False
  248.         Me.btng.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  249.         Me.btng.ForeColor = System.Drawing.Color.Firebrick
  250.         Me.btng.Location = New System.Drawing.Point(384, 384)
  251.         Me.btng.Name = "btng"
  252.         Me.btng.Size = New System.Drawing.Size(32, 32)
  253.         Me.btng.TabIndex = 10
  254.         Me.btng.Text = "G"
  255.         '
  256.         'btnf
  257.         '
  258.         Me.btnf.Enabled = False
  259.         Me.btnf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  260.         Me.btnf.ForeColor = System.Drawing.Color.Firebrick
  261.         Me.btnf.Location = New System.Drawing.Point(352, 384)
  262.         Me.btnf.Name = "btnf"
  263.         Me.btnf.Size = New System.Drawing.Size(32, 32)
  264.         Me.btnf.TabIndex = 11
  265.         Me.btnf.Text = "F"
  266.         '
  267.         'btne
  268.         '
  269.         Me.btne.Enabled = False
  270.         Me.btne.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  271.         Me.btne.ForeColor = System.Drawing.Color.Firebrick
  272.         Me.btne.Location = New System.Drawing.Point(320, 384)
  273.         Me.btne.Name = "btne"
  274.         Me.btne.Size = New System.Drawing.Size(32, 32)
  275.         Me.btne.TabIndex = 12
  276.         Me.btne.Text = "E"
  277.         '
  278.         'btnd
  279.         '
  280.         Me.btnd.Enabled = False
  281.         Me.btnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  282.         Me.btnd.ForeColor = System.Drawing.Color.Firebrick
  283.         Me.btnd.Location = New System.Drawing.Point(288, 384)
  284.         Me.btnd.Name = "btnd"
  285.         Me.btnd.Size = New System.Drawing.Size(32, 32)
  286.         Me.btnd.TabIndex = 13
  287.         Me.btnd.Text = "D"
  288.         '
  289.         'btnc
  290.         '
  291.         Me.btnc.Enabled = False
  292.         Me.btnc.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  293.         Me.btnc.ForeColor = System.Drawing.Color.Firebrick
  294.         Me.btnc.Location = New System.Drawing.Point(256, 384)
  295.         Me.btnc.Name = "btnc"
  296.         Me.btnc.Size = New System.Drawing.Size(32, 32)
  297.         Me.btnc.TabIndex = 14
  298.         Me.btnc.Text = "C"
  299.         '
  300.         'btnb
  301.         '
  302.         Me.btnb.Enabled = False
  303.         Me.btnb.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  304.         Me.btnb.ForeColor = System.Drawing.Color.Firebrick
  305.         Me.btnb.Location = New System.Drawing.Point(224, 384)
  306.         Me.btnb.Name = "btnb"
  307.         Me.btnb.Size = New System.Drawing.Size(32, 32)
  308.         Me.btnb.TabIndex = 15
  309.         Me.btnb.Text = "B"
  310.         '
  311.         'btny
  312.         '
  313.         Me.btny.Enabled = False
  314.         Me.btny.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  315.         Me.btny.ForeColor = System.Drawing.Color.Firebrick
  316.         Me.btny.Location = New System.Drawing.Point(544, 416)
  317.         Me.btny.Name = "btny"
  318.         Me.btny.Size = New System.Drawing.Size(32, 32)
  319.         Me.btny.TabIndex = 16
  320.         Me.btny.Text = "Y"
  321.         '
  322.         'btnx
  323.         '
  324.         Me.btnx.Enabled = False
  325.         Me.btnx.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  326.         Me.btnx.ForeColor = System.Drawing.Color.Firebrick
  327.         Me.btnx.Location = New System.Drawing.Point(512, 416)
  328.         Me.btnx.Name = "btnx"
  329.         Me.btnx.Size = New System.Drawing.Size(32, 32)
  330.         Me.btnx.TabIndex = 17
  331.         Me.btnx.Text = "X"
  332.         '
  333.         'btnw
  334.         '
  335.         Me.btnw.Enabled = False
  336.         Me.btnw.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  337.         Me.btnw.ForeColor = System.Drawing.Color.Firebrick
  338.         Me.btnw.Location = New System.Drawing.Point(480, 416)
  339.         Me.btnw.Name = "btnw"
  340.         Me.btnw.Size = New System.Drawing.Size(32, 32)
  341.         Me.btnw.TabIndex = 18
  342.         Me.btnw.Text = "W"
  343.         '
  344.         'btnv
  345.         '
  346.         Me.btnv.Enabled = False
  347.         Me.btnv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  348.         Me.btnv.ForeColor = System.Drawing.Color.Firebrick
  349.         Me.btnv.Location = New System.Drawing.Point(448, 416)
  350.         Me.btnv.Name = "btnv"
  351.         Me.btnv.Size = New System.Drawing.Size(32, 32)
  352.         Me.btnv.TabIndex = 19
  353.         Me.btnv.Text = "V"
  354.         '
  355.         'btnu
  356.         '
  357.         Me.btnu.Enabled = False
  358.         Me.btnu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  359.         Me.btnu.ForeColor = System.Drawing.Color.Firebrick
  360.         Me.btnu.Location = New System.Drawing.Point(416, 416)
  361.         Me.btnu.Name = "btnu"
  362.         Me.btnu.Size = New System.Drawing.Size(32, 32)
  363.         Me.btnu.TabIndex = 20
  364.         Me.btnu.Text = "U"
  365.         '
  366.         'btnt
  367.         '
  368.         Me.btnt.Enabled = False
  369.         Me.btnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  370.         Me.btnt.ForeColor = System.Drawing.Color.Firebrick
  371.         Me.btnt.Location = New System.Drawing.Point(384, 416)
  372.         Me.btnt.Name = "btnt"
  373.         Me.btnt.Size = New System.Drawing.Size(32, 32)
  374.         Me.btnt.TabIndex = 21
  375.         Me.btnt.Text = "T"
  376.         '
  377.         'btns
  378.         '
  379.         Me.btns.Enabled = False
  380.         Me.btns.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  381.         Me.btns.ForeColor = System.Drawing.Color.Firebrick
  382.         Me.btns.Location = New System.Drawing.Point(352, 416)
  383.         Me.btns.Name = "btns"
  384.         Me.btns.Size = New System.Drawing.Size(32, 32)
  385.         Me.btns.TabIndex = 22
  386.         Me.btns.Text = "S"
  387.         '
  388.         'btnr
  389.         '
  390.         Me.btnr.Enabled = False
  391.         Me.btnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  392.         Me.btnr.ForeColor = System.Drawing.Color.Firebrick
  393.         Me.btnr.Location = New System.Drawing.Point(320, 416)
  394.         Me.btnr.Name = "btnr"
  395.         Me.btnr.Size = New System.Drawing.Size(32, 32)
  396.         Me.btnr.TabIndex = 23
  397.         Me.btnr.Text = "R"
  398.         '
  399.         'btnq
  400.         '
  401.         Me.btnq.Enabled = False
  402.         Me.btnq.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  403.         Me.btnq.ForeColor = System.Drawing.Color.Firebrick
  404.         Me.btnq.Location = New System.Drawing.Point(288, 416)
  405.         Me.btnq.Name = "btnq"
  406.         Me.btnq.Size = New System.Drawing.Size(32, 32)
  407.         Me.btnq.TabIndex = 24
  408.         Me.btnq.Text = "Q"
  409.         '
  410.         'btnp
  411.         '
  412.         Me.btnp.Enabled = False
  413.         Me.btnp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  414.         Me.btnp.ForeColor = System.Drawing.Color.Firebrick
  415.         Me.btnp.Location = New System.Drawing.Point(256, 416)
  416.         Me.btnp.Name = "btnp"
  417.         Me.btnp.Size = New System.Drawing.Size(32, 32)
  418.         Me.btnp.TabIndex = 25
  419.         Me.btnp.Text = "P"
  420.         '
  421.         'btno
  422.         '
  423.         Me.btno.Enabled = False
  424.         Me.btno.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  425.         Me.btno.ForeColor = System.Drawing.Color.Firebrick
  426.         Me.btno.Location = New System.Drawing.Point(224, 416)
  427.         Me.btno.Name = "btno"
  428.         Me.btno.Size = New System.Drawing.Size(32, 32)
  429.         Me.btno.TabIndex = 26
  430.         Me.btno.Text = "O"
  431.         '
  432.         'btnn
  433.         '
  434.         Me.btnn.Enabled = False
  435.         Me.btnn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  436.         Me.btnn.ForeColor = System.Drawing.Color.Firebrick
  437.         Me.btnn.Location = New System.Drawing.Point(192, 416)
  438.         Me.btnn.Name = "btnn"
  439.         Me.btnn.Size = New System.Drawing.Size(32, 32)
  440.         Me.btnn.TabIndex = 27
  441.         Me.btnn.Text = "N"
  442.         '
  443.         'btnz
  444.         '
  445.         Me.btnz.Enabled = False
  446.         Me.btnz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  447.         Me.btnz.ForeColor = System.Drawing.Color.Firebrick
  448.         Me.btnz.Location = New System.Drawing.Point(576, 416)
  449.         Me.btnz.Name = "btnz"
  450.         Me.btnz.Size = New System.Drawing.Size(32, 32)
  451.         Me.btnz.TabIndex = 29
  452.         Me.btnz.Text = "Z"
  453.         '
  454.         'lblwin
  455.         '
  456.         Me.lblwin.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  457.         Me.lblwin.ForeColor = System.Drawing.Color.Firebrick
  458.         Me.lblwin.Location = New System.Drawing.Point(192, 464)
  459.         Me.lblwin.Name = "lblwin"
  460.         Me.lblwin.Size = New System.Drawing.Size(144, 40)
  461.         Me.lblwin.TabIndex = 30
  462.         Me.lblwin.Text = "Win:"
  463.         '
  464.         'lblloss
  465.         '
  466.         Me.lblloss.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  467.         Me.lblloss.ForeColor = System.Drawing.Color.Firebrick
  468.         Me.lblloss.Location = New System.Drawing.Point(408, 464)
  469.         Me.lblloss.Name = "lblloss"
  470.         Me.lblloss.Size = New System.Drawing.Size(144, 40)
  471.         Me.lblloss.TabIndex = 31
  472.         Me.lblloss.Text = "Loss:"
  473.         '
  474.         'lbllefty
  475.         '
  476.         Me.lbllefty.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  477.         Me.lbllefty.ForeColor = System.Drawing.Color.Firebrick
  478.         Me.lbllefty.Location = New System.Drawing.Point(288, 8)
  479.         Me.lbllefty.Name = "lbllefty"
  480.         Me.lbllefty.Size = New System.Drawing.Size(144, 40)
  481.         Me.lbllefty.TabIndex = 32
  482.         Me.lbllefty.Text = "Left:"
  483.         '
  484.         'lblwin1
  485.         '
  486.         Me.lblwin1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  487.         Me.lblwin1.ForeColor = System.Drawing.Color.Firebrick
  488.         Me.lblwin1.Location = New System.Drawing.Point(328, 464)
  489.         Me.lblwin1.Name = "lblwin1"
  490.         Me.lblwin1.Size = New System.Drawing.Size(64, 40)
  491.         Me.lblwin1.TabIndex = 33
  492.         '
  493.         'lbllefty1
  494.         '
  495.         Me.lbllefty1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  496.         Me.lbllefty1.ForeColor = System.Drawing.Color.Firebrick
  497.         Me.lbllefty1.Location = New System.Drawing.Point(432, 8)
  498.         Me.lbllefty1.Name = "lbllefty1"
  499.         Me.lbllefty1.Size = New System.Drawing.Size(64, 40)
  500.         Me.lbllefty1.TabIndex = 34
  501.         '
  502.         'lblloss1
  503.         '
  504.         Me.lblloss1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  505.         Me.lblloss1.ForeColor = System.Drawing.Color.Firebrick
  506.         Me.lblloss1.Location = New System.Drawing.Point(544, 464)
  507.         Me.lblloss1.Name = "lblloss1"
  508.         Me.lblloss1.Size = New System.Drawing.Size(64, 40)
  509.         Me.lblloss1.TabIndex = 35
  510.         '
  511.         'lblguesses1
  512.         '
  513.         Me.lblguesses1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  514.         Me.lblguesses1.ForeColor = System.Drawing.Color.Firebrick
  515.         Me.lblguesses1.Location = New System.Drawing.Point(152, 8)
  516.         Me.lblguesses1.Name = "lblguesses1"
  517.         Me.lblguesses1.Size = New System.Drawing.Size(64, 40)
  518.         Me.lblguesses1.TabIndex = 37
  519.         '
  520.         'lblguesses
  521.         '
  522.         Me.lblguesses.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  523.         Me.lblguesses.ForeColor = System.Drawing.Color.Firebrick
  524.         Me.lblguesses.Location = New System.Drawing.Point(8, 8)
  525.         Me.lblguesses.Name = "lblguesses"
  526.         Me.lblguesses.Size = New System.Drawing.Size(144, 40)
  527.         Me.lblguesses.TabIndex = 36
  528.         Me.lblguesses.Text = "Guesses:"
  529.         '
  530.         'lblmisses1
  531.         '
  532.         Me.lblmisses1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  533.         Me.lblmisses1.ForeColor = System.Drawing.Color.Firebrick
  534.         Me.lblmisses1.Location = New System.Drawing.Point(712, 8)
  535.         Me.lblmisses1.Name = "lblmisses1"
  536.         Me.lblmisses1.Size = New System.Drawing.Size(64, 40)
  537.         Me.lblmisses1.TabIndex = 39
  538.         '
  539.         'lblmisses
  540.         '
  541.         Me.lblmisses.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  542.         Me.lblmisses.ForeColor = System.Drawing.Color.Firebrick
  543.         Me.lblmisses.Location = New System.Drawing.Point(568, 8)
  544.         Me.lblmisses.Name = "lblmisses"
  545.         Me.lblmisses.Size = New System.Drawing.Size(144, 40)
  546.         Me.lblmisses.TabIndex = 38
  547.         Me.lblmisses.Text = "Misses:"
  548.         '
  549.         'picturebox
  550.         '
  551.         Me.picturebox.Image = CType(resources.GetObject("picturebox.Image"), System.Drawing.Bitmap)
  552.         Me.picturebox.Location = New System.Drawing.Point(216, 56)
  553.         Me.picturebox.Name = "picturebox"
  554.         Me.picturebox.Size = New System.Drawing.Size(336, 264)
  555.         Me.picturebox.TabIndex = 40
  556.         Me.picturebox.TabStop = False
  557.         '
  558.         'form1
  559.         '
  560.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  561.         Me.BackColor = System.Drawing.Color.Black
  562.         Me.ClientSize = New System.Drawing.Size(784, 518)
  563.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.picturebox, Me.lblmisses1, Me.lblmisses, Me.lblguesses1, Me.lblguesses, Me.lblloss1, Me.lbllefty1, Me.lblwin1, Me.lbllefty, Me.lblloss, Me.lblwin, Me.btnz, Me.btnn, Me.btno, Me.btnp, Me.btnq, Me.btnr, Me.btns, Me.btnt, Me.btnu, Me.btnv, Me.btnw, Me.btnx, Me.btny, Me.btnb, Me.btnc, Me.btnd, Me.btne, Me.btnf, Me.btng, Me.btnh, Me.btni, Me.btnj, Me.btnk, Me.btnl, Me.btnm, Me.btna, Me.btnexit, Me.lbloutput, Me.btnstart})
  564.         Me.Name = "form1"
  565.         Me.Text = "Hangman Game"
  566.         Me.ResumeLayout(False)
  567.  
  568.     End Sub
  569.  
  570. #End Region
  571.  
  572.     Dim word As String
  573.     Dim counter As Integer
  574.     Dim length As Decimal
  575.     Dim display As String
  576.  
  577.  
  578.  
  579.  
  580.     'play button
  581.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstart.Click
  582.         word = GetNewWord("mm.txt") 'gets word from txt file
  583.         enable() 'when play is clicked all letters are enabled
  584.         lbloutput.Text = underscore(word.Length, "") 'displays underscores
  585.         lblmisses1.Text = "0" 'resets
  586.         lbllefty1.Text = "5" 'resets
  587.         lblguesses1.Text = "0" 'resets
  588.         If lbloutput.Text = "" Then 'message when u run out of words
  589.             MessageBox.Show("Sorry... you dont get to kill Wile E. Coyote again. You ran out of words...")
  590.         End If
  591.         picturebox.Image = Image.FromFile("1.jpg") 'resets first image
  592.     End Sub
  593.  
  594.  
  595.     'underscore function
  596.     Private Function underscore(ByVal wordlength As Integer, ByVal undscore As String) As String
  597.         For wordlength = 0 To wordlength - 1
  598.             undscore += "_ "
  599.         Next
  600.  
  601.         Return undscore
  602.     End Function
  603.  
  604.     'main function
  605.     Private Function check(ByVal letter As String, ByVal place As Integer, ByVal testletter As String) As String
  606.         Dim word1 As String
  607.         Dim total As String
  608.         Dim one As String
  609.         Dim two As String
  610.         If letter.ToUpper = testletter.ToUpper Then
  611.             If place = 0 Then
  612.                 word1 = lbloutput.Text
  613.                 one = word1.Substring(place * 2 + 1)
  614.                 total = letter + one
  615.                 Return total
  616.             End If
  617.             If place > 0 Then
  618.                 word1 = lbloutput.Text
  619.                 two = word1.Substring(0, place * 2)
  620.                 one = word1.Substring(place * 2 + 1)
  621.                 total = two + letter + one
  622.                 Return total
  623.             End If
  624.         Else
  625.             Return lbloutput.Text
  626.         End If
  627.     End Function
  628.  
  629.  
  630.  
  631.     'sub that is sent to main function to display word
  632.     Private Sub ihatesubs(ByVal letter As String)
  633.         Dim intcounter As Integer
  634.         For intcounter = 0 To word.Length - 1 Step 1
  635.             lbloutput.Text = check(letter, intcounter, word.Substring(intcounter, 1))
  636.         Next
  637.  
  638.  
  639.     End Sub
  640.  
  641.     'function to determine how many letters left to click
  642.     Private Function lefty()
  643.         lbllefty1.Text = 5 - Val(lblmisses1.Text)
  644.     End Function
  645.  
  646.     'function to count the number of letters clicked
  647.     Private Sub guesses()
  648.         lblguesses1.Text = Val(lblguesses1.Text) + 1
  649.     End Sub
  650.  
  651.     'functino to determine number of wrong letters clicked, also to display images when wrong
  652.     Private Sub misses(ByVal letter As String)
  653.         If word.IndexOf(letter) = -1 Then
  654.             lblmisses1.Text = Val(lblmisses1.Text) + 1
  655.         End If
  656.         If lblmisses1.Text = "1" Then
  657.             picturebox.Image = Image.FromFile("cayote1.gif")
  658.         End If
  659.         If lblmisses1.Text = "2" Then
  660.             picturebox.Image = Image.FromFile("cayote2.gif")
  661.         End If
  662.         If lblmisses1.Text = "3" Then
  663.             picturebox.Image = Image.FromFile("cayote3.gif")
  664.         End If
  665.         If lblmisses1.Text = "4" Then
  666.             picturebox.Image = Image.FromFile("uho.jpg")
  667.         End If
  668.         If lblmisses1.Text = "5" Then
  669.             picturebox.Image = Image.FromFile("6.jpg")
  670.         End If
  671.     End Sub
  672.     Private Sub lose()
  673.         If lblmisses1.Text = "5" Then
  674.             lblloss1.Text = Val(lblloss1.Text) + 1
  675.             lblmisses1.Text = "0"
  676.             lbllefty1.Text = "5"
  677.             lblguesses1.Text = "0"
  678.             disable()
  679.             MessageBox.Show("YAY!!!! YOU GOT TO KILL HIM!!!! :) ... The word was " & word)
  680.  
  681.         End If
  682.     End Sub
  683.     Private Sub win()
  684.         If lbloutput.Text.IndexOf("_") = -1 Then
  685.             lblwin1.Text = Val(lblwin1.Text) + 1
  686.             disable()
  687.             lblmisses1.Text = "0"
  688.             lbllefty1.Text = "5"
  689.             lblguesses1.Text = "0"
  690.             MessageBox.Show("Awww... you didn't get to kill him, thats ok, you can try again!")
  691.         End If
  692.     End Sub
  693.  
  694.  
  695.  
  696.  
  697.  
  698.     Private Function enable()
  699.         btna.Enabled = True
  700.         btnb.Enabled = True
  701.         btnc.Enabled = True
  702.         btnd.Enabled = True
  703.         btne.Enabled = True
  704.         btnf.Enabled = True
  705.         btng.Enabled = True
  706.         btnh.Enabled = True
  707.         btni.Enabled = True
  708.         btnj.Enabled = True
  709.         btnk.Enabled = True
  710.         btnl.Enabled = True
  711.         btnm.Enabled = True
  712.         btnn.Enabled = True
  713.         btno.Enabled = True
  714.         btnp.Enabled = True
  715.         btnq.Enabled = True
  716.         btnr.Enabled = True
  717.         btns.Enabled = True
  718.         btnt.Enabled = True
  719.         btnu.Enabled = True
  720.         btnv.Enabled = True
  721.         btnw.Enabled = True
  722.         btnx.Enabled = True
  723.         btny.Enabled = True
  724.         btnz.Enabled = True
  725.     End Function
  726.  
  727.     Private Function disable()
  728.         btna.Enabled = False
  729.         btnb.Enabled = False
  730.         btnc.Enabled = False
  731.         btnd.Enabled = False
  732.         btne.Enabled = False
  733.         btnf.Enabled = False
  734.         btng.Enabled = False
  735.         btnh.Enabled = False
  736.         btni.Enabled = False
  737.         btnj.Enabled = False
  738.         btnk.Enabled = False
  739.         btnl.Enabled = False
  740.         btnm.Enabled = False
  741.         btnn.Enabled = False
  742.         btno.Enabled = False
  743.         btnp.Enabled = False
  744.         btnq.Enabled = False
  745.         btnr.Enabled = False
  746.         btns.Enabled = False
  747.         btnt.Enabled = False
  748.         btnu.Enabled = False
  749.         btnv.Enabled = False
  750.         btnw.Enabled = False
  751.         btnx.Enabled = False
  752.         btny.Enabled = False
  753.         btnz.Enabled = False
  754.     End Function
  755.  
  756.  
  757.  
  758.  
  759.  
  760.  
  761.  
  762.  
  763.  
  764.     '----------------------------------------------------LETTER CLICK EVENTS--------------------------------------------------------------------
  765.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btna.Click
  766.         btna.Enabled = False
  767.         ihatesubs("a")
  768.         misses("a")
  769.         lefty()
  770.         guesses()
  771.         lose()
  772.         win()
  773.     End Sub
  774.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnb.Click
  775.         btnb.Enabled = False
  776.         ihatesubs("b")
  777.         misses("b")
  778.         lefty()
  779.         guesses()
  780.         lose()
  781.         win()
  782.     End Sub
  783.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnc.Click
  784.         btnc.Enabled = False
  785.         ihatesubs("c")
  786.         misses("c")
  787.         lefty()
  788.         guesses()
  789.         lose()
  790.         win()
  791.     End Sub
  792.     Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnd.Click
  793.         btnd.Enabled = False
  794.         ihatesubs("d")
  795.         misses("d")
  796.         lefty()
  797.         guesses()
  798.         lose()
  799.         win()
  800.     End Sub
  801.     Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btne.Click
  802.         ihatesubs("e")
  803.         btne.Enabled = False
  804.         misses("e")
  805.         win()
  806.         lefty()
  807.         guesses()
  808.         lose()
  809.     End Sub
  810.     Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnf.Click
  811.         ihatesubs("f")
  812.         btnf.Enabled = False
  813.         misses("f")
  814.         win()
  815.         lefty()
  816.         guesses()
  817.         lose()
  818.     End Sub
  819.     Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btng.Click
  820.         ihatesubs("g")
  821.         btng.Enabled = False
  822.         misses("g")
  823.         win()
  824.         lefty()
  825.         guesses()
  826.         lose()
  827.     End Sub
  828.     Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnh.Click
  829.         ihatesubs("h")
  830.         btnh.Enabled = False
  831.         misses("h")
  832.         win()
  833.         lefty()
  834.         guesses()
  835.         lose()
  836.     End Sub
  837.     Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btni.Click
  838.         ihatesubs("i")
  839.         btni.Enabled = False
  840.         misses("i")
  841.         win()
  842.         lefty()
  843.         guesses()
  844.         lose()
  845.     End Sub
  846.     Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnj.Click
  847.         ihatesubs("j")
  848.         btnj.Enabled = False
  849.         misses("j")
  850.         win()
  851.         lefty()
  852.         guesses()
  853.         lose()
  854.     End Sub
  855.     Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnk.Click
  856.         ihatesubs("k")
  857.         btnk.Enabled = False
  858.         misses("k")
  859.         win()
  860.         lefty()
  861.         guesses()
  862.         lose()
  863.     End Sub
  864.     Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnl.Click
  865.         ihatesubs("l")
  866.         btnl.Enabled = False
  867.         misses("l")
  868.         win()
  869.         lefty()
  870.         guesses()
  871.         lose()
  872.     End Sub
  873.     Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnm.Click
  874.         ihatesubs("m")
  875.         btnm.Enabled = False
  876.         misses("m")
  877.         win()
  878.         lefty()
  879.         guesses()
  880.         lose()
  881.     End Sub
  882.     Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnn.Click
  883.         ihatesubs("n")
  884.         btnn.Enabled = False
  885.         misses("n")
  886.         win()
  887.         lefty()
  888.         guesses()
  889.         lose()
  890.     End Sub
  891.     Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btno.Click
  892.         ihatesubs("o")
  893.         btno.Enabled = False
  894.         misses("o")
  895.         win()
  896.         lefty()
  897.         guesses()
  898.         lose()
  899.     End Sub
  900.     Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnp.Click
  901.         ihatesubs("p")
  902.         btnp.Enabled = False
  903.         misses("p")
  904.         win()
  905.         lefty()
  906.         guesses()
  907.         lose()
  908.     End Sub
  909.     Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnq.Click
  910.         ihatesubs("q")
  911.         btnq.Enabled = False
  912.         misses("q")
  913.         win()
  914.         lefty()
  915.         guesses()
  916.         lose()
  917.     End Sub
  918.     Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnr.Click
  919.         ihatesubs("r")
  920.         btnr.Enabled = False
  921.         misses("r")
  922.         win()
  923.         lefty()
  924.         guesses()
  925.         lose()
  926.     End Sub
  927.     Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btns.Click
  928.         ihatesubs("s")
  929.         btns.Enabled = False
  930.         misses("s")
  931.         win()
  932.         lefty()
  933.         guesses()
  934.         lose()
  935.     End Sub
  936.     Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnt.Click
  937.         ihatesubs("t")
  938.         btnt.Enabled = False
  939.         misses("t")
  940.         win()
  941.         lefty()
  942.         guesses()
  943.         lose()
  944.     End Sub
  945.     Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnu.Click
  946.         ihatesubs("u")
  947.         btnu.Enabled = False
  948.         misses("u")
  949.         win()
  950.         lefty()
  951.         guesses()
  952.         lose()
  953.     End Sub
  954.     Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnv.Click
  955.         ihatesubs("v")
  956.         btnv.Enabled = False
  957.         misses("v")
  958.         win()
  959.         lefty()
  960.         guesses()
  961.         lose()
  962.     End Sub
  963.     Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnw.Click
  964.         ihatesubs("w")
  965.         btnw.Enabled = False
  966.         misses("w")
  967.         win()
  968.         lefty()
  969.         guesses()
  970.         lose()
  971.     End Sub
  972.     Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnx.Click
  973.         ihatesubs("x")
  974.         btnx.Enabled = False
  975.         misses("x")
  976.         win()
  977.         lefty()
  978.         guesses()
  979.         lose()
  980.     End Sub
  981.     Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btny.Click
  982.         ihatesubs("y")
  983.         btny.Enabled = False
  984.         misses("y")
  985.         win()
  986.         lefty()
  987.         guesses()
  988.         lose()
  989.     End Sub
  990.     Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnz.Click
  991.         ihatesubs("z")
  992.         btnz.Enabled = False
  993.         misses("z")
  994.         win()
  995.         lefty()
  996.         guesses()
  997.         lose()
  998.     End Sub
  999.  
  1000.     '--------------------------------------------------ABCDEFGHIJKLMNOPQRSTUVQXYZ-------------------------------------------------------------------
  1001.  
  1002.  
  1003.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
  1004.         Me.Close()
  1005.     End Sub
  1006.  
  1007.  
  1008.  
  1009.     Private Sub lblguesses1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblguesses1.Click
  1010.  
  1011.     End Sub
  1012. End Class

ok hangman all worked perfectly... then suddenly this erro came up!!!

SOMEBODY HELP ME PLEASE THIS IS DUE 2MORROW!!!
Reply With Quote Quick reply to this message  
Reply

Quick Reply to Thread
This thread is more than three months old.
Perhaps start a new thread instead?
•
•
•
•
•
•
•
•
Message:
•
•
•
•



Similar Threads
Other Threads in the VB.NET Forum
Thread Tools Search this Thread



"crystal .net .net2005 30minutes 2005 2008 access account arithmetic array basic binary bing button buttons center check code component connectionstring crystalreport data database databasesearch datagrid datagridview date design dissertation dissertations dissertationthesis dropdownlist excel fade file-dialog folder ftp generatetags hardcopy image images input insert intel internet login mobile monitor ms navigate net networking objects opacity output passingparameters peertopeervideostreaming picturebox picturebox1 port problem problemwithinstallation project reports" save savedialog searchvb.net select serial shutdown soap string survey tcp temperature text textbox timer toolbox trim update updown user usercontrol vb vb.net vb.netcode vb.netformclosing()eventpictureboxmessagebox vb.nettoolboxvisualbasic2008sidebar vb2008 vbnet view visual visualbasic visualbasic.net visualstudio visualstudio2008 web winforms wpf
About Us | Contact Us | Advertise | DaniWeb | Acceptable Use Policy | RSS Feed

©2003 - 2009 DaniWeb® LLC