I have only edited that sub from within the design editor, so I don't know how it could have gotten messed up.
The contents of that sub contains:
Private Sub InitializeComponent()
Me.MainMenu1 = New System.Windows.Forms.MainMenu
Me.cmdgenerate = New System.Windows.Forms.MenuItem
Me.MenuItem1 = New System.Windows.Forms.MenuItem
Me.mnuExit = New System.Windows.Forms.MenuItem
Me.mnuReset = New System.Windows.Forms.MenuItem
Me.cmbType = New System.Windows.Forms.ComboBox
Me.lblType = New System.Windows.Forms.Label
Me.pnlBurrito = New System.Windows.Forms.Panel
Me.lblBurritoMeat = New System.Windows.Forms.Label
Me.lblBurritoWith = New System.Windows.Forms.Label
Me.cmbBurritoWith = New System.Windows.Forms.ComboBox
Me.cmbBurritoMeat = New System.Windows.Forms.ComboBox
Me.pnlTaco = New System.Windows.Forms.Panel
Me.cmbTacoStyle = New System.Windows.Forms.ComboBox
Me.lblTacoStyle = New System.Windows.Forms.Label
Me.cmbTacoMeat = New System.Windows.Forms.ComboBox
Me.lblTacoMeat = New System.Windows.Forms.Label
Me.txtResult = New System.Windows.Forms.TextBox
'
'MainMenu1
'
Me.MainMenu1.MenuItems.Add(Me.cmdgenerate)
Me.MainMenu1.MenuItems.Add(Me.MenuItem1)
'
'cmdgenerate
'
Me.cmdgenerate.Text = "Generate"
'
'MenuItem1
'
Me.MenuItem1.MenuItems.Add(Me.mnuExit)
Me.MenuItem1.MenuItems.Add(Me.mnuReset)
Me.MenuItem1.Text = "Menu"
'
'mnuExit
'
Me.mnuExit.Text = "Exit"
'
'mnuReset
'
Me.mnuReset.Text = "Reset"
'
'cmbType
'
Me.cmbType.Items.Add("Burrito")
Me.cmbType.Items.Add("Taco")
Me.cmbType.Location = New System.Drawing.Point(37, 8)
Me.cmbType.Size = New System.Drawing.Size(123, 14)
'
'lblType
'
Me.lblType.Font = New System.Drawing.Font("Nina", 8.0!, System.Drawing.FontStyle.Bold)
Me.lblType.ForeColor = System.Drawing.Color.Blue
Me.lblType.Location = New System.Drawing.Point(0, 7)
Me.lblType.Size = New System.Drawing.Size(31, 14)
Me.lblType.Text = "Type"
'
'pnlBurrito
'
Me.pnlBurrito.BackColor = System.Drawing.Color.Black
Me.pnlBurrito.Controls.Add(Me.cmbBurritoMeat)
Me.pnlBurrito.Controls.Add(Me.cmbBurritoWith)
Me.pnlBurrito.Controls.Add(Me.lblBurritoWith)
Me.pnlBurrito.Controls.Add(Me.lblBurritoMeat)
Me.pnlBurrito.Location = New System.Drawing.Point(0, 31)
Me.pnlBurrito.Size = New System.Drawing.Size(163, 45)
Me.pnlBurrito.Visible = False
'
'lblBurritoMeat
'
Me.lblBurritoMeat.Font = New System.Drawing.Font("Nina", 8.0!, System.Drawing.FontStyle.Bold)
Me.lblBurritoMeat.ForeColor = System.Drawing.Color.Blue
Me.lblBurritoMeat.Location = New System.Drawing.Point(3, 0)
Me.lblBurritoMeat.Size = New System.Drawing.Size(31, 14)
Me.lblBurritoMeat.Text = "With"
'
'lblBurritoWith
'
Me.lblBurritoWith.Font = New System.Drawing.Font("Nina", 8.0!, System.Drawing.FontStyle.Bold)
Me.lblBurritoWith.ForeColor = System.Drawing.Color.Blue
Me.lblBurritoWith.Location = New System.Drawing.Point(3, 28)
Me.lblBurritoWith.Size = New System.Drawing.Size(31, 14)
Me.lblBurritoWith.Text = "And"
'
'cmbBurritoWith
'
Me.cmbBurritoWith.Items.Add("None")
Me.cmbBurritoWith.Items.Add("Beans")
Me.cmbBurritoWith.Items.Add("Rice")
Me.cmbBurritoWith.Items.Add("Beans and Rice")
Me.cmbBurritoWith.Location = New System.Drawing.Point(37, 28)
Me.cmbBurritoWith.Size = New System.Drawing.Size(123, 14)
'
'cmbBurritoMeat
'
Me.cmbBurritoMeat.Items.Add("Shredded Beef")
Me.cmbBurritoMeat.Items.Add("Ground Beef")
Me.cmbBurritoMeat.Items.Add("Chicken")
Me.cmbBurritoMeat.Items.Add("Carne Asada")
Me.cmbBurritoMeat.Items.Add("Special")
Me.cmbBurritoMeat.Items.Add("None")
Me.cmbBurritoMeat.Location = New System.Drawing.Point(37, 1)
Me.cmbBurritoMeat.Size = New System.Drawing.Size(123, 13)
'
'pnlTaco
'
Me.pnlTaco.BackColor = System.Drawing.Color.Black
Me.pnlTaco.Controls.Add(Me.lblTacoMeat)
Me.pnlTaco.Controls.Add(Me.cmbTacoMeat)
Me.pnlTaco.Controls.Add(Me.lblTacoStyle)
Me.pnlTaco.Controls.Add(Me.cmbTacoStyle)
Me.pnlTaco.Enabled = False
Me.pnlTaco.Location = New System.Drawing.Point(262, 7)
Me.pnlTaco.Size = New System.Drawing.Size(163, 45)
Me.pnlTaco.Visible = False
'
'cmbTacoStyle
'
Me.cmbTacoStyle.Items.Add("Taco Salad")
Me.cmbTacoStyle.Items.Add("Soft")
Me.cmbTacoStyle.Items.Add("Hard")
Me.cmbTacoStyle.Items.Add("Taquito")
Me.cmbTacoStyle.Items.Add("Flauta")
Me.cmbTacoStyle.Location = New System.Drawing.Point(38, 5)
Me.cmbTacoStyle.Size = New System.Drawing.Size(123, 13)
'
'lblTacoStyle
'
Me.lblTacoStyle.Font = New System.Drawing.Font("Nina", 8.0!, System.Drawing.FontStyle.Bold)
Me.lblTacoStyle.ForeColor = System.Drawing.Color.Blue
Me.lblTacoStyle.Location = New System.Drawing.Point(1, 2)
Me.lblTacoStyle.Size = New System.Drawing.Size(31, 14)
Me.lblTacoStyle.Text = "Style"
'
'cmbTacoMeat
'
Me.cmbTacoMeat.Items.Add("Shredded Beef")
Me.cmbTacoMeat.Items.Add("Ground Beef")
Me.cmbTacoMeat.Items.Add("Chicken")
Me.cmbTacoMeat.Items.Add("Carne Asada")
Me.cmbTacoMeat.Items.Add("Special")
Me.cmbTacoMeat.Location = New System.Drawing.Point(38, 24)
Me.cmbTacoMeat.Size = New System.Drawing.Size(123, 13)
'
'lblTacoMeat
'
Me.lblTacoMeat.Font = New System.Drawing.Font("Nina", 8.0!, System.Drawing.FontStyle.Bold)
Me.lblTacoMeat.ForeColor = System.Drawing.Color.Blue
Me.lblTacoMeat.Location = New System.Drawing.Point(1, 24)
Me.lblTacoMeat.Size = New System.Drawing.Size(31, 14)
Me.lblTacoMeat.Text = "Meat"
'
'txtResult
'
Me.txtResult.BackColor = System.Drawing.Color.FromArgb(CType(CType(64,
Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte),
Integer))
Me.txtResult.Font = New System.Drawing.Font("Nina", 11.0!, System.Drawing.FontStyle.Bold)
Me.txtResult.ForeColor = System.Drawing.Color.Blue
Me.txtResult.Location = New System.Drawing.Point(3, 130)
Me.txtResult.Multiline = True
Me.txtResult.Size = New System.Drawing.Size(176, 47)
'
'form1
'
Me.BackColor = System.Drawing.Color.Black
Me.ClientSize = New System.Drawing.Size(480, 180)
Me.Controls.Add(Me.cmbType)
Me.Controls.Add(Me.lblType)
Me.Controls.Add(Me.pnlBurrito)
Me.Controls.Add(Me.pnlTaco)
Me.Controls.Add(Me.txtResult)
Me.Font = New System.Drawing.Font("Nina", 8.0!, System.Drawing.FontStyle.Bold)
Me.ForeColor = System.Drawing.Color.Red
Me.Menu = Me.MainMenu1
Me.Text = "9BB F C G"
End Sub
Any help is greatly appreciated.
InitializeComponents() is Throwing "Casting Exception" error
Hot Topic
- read assembly version
- Preloader for VE javascript
- How to setfocus to the grid cell
- Newbie. I want to enhance the image quality.
- Windows Media Player and Messenger
- How to get the addresser and subject of a new email?
- Detecting Keyboard
- Found conflicts between different versions of the same dependent assembly.
- Create Emulator
- Process.Start() causing TypeLoadException
InitializeComponents() is Throwing "Casting Exception" error
Pramod M
1. There's no such thing as "Casting Exception" - types can not have spaces in it. Which exception type it actually is
2. It throws in which exact line
3. What is the exception message if any
4. What is the stack trace