Link to home
Start Free TrialLog in
Avatar of IngridK
IngridK

asked on

VB.net - Messagebox.show() dispalys empty dialog box

I have a strange problem with messagebox in vb.net. I am calling messagebox.show("hello") on the click of a button. The application gets compile without any errors. but when I run the application I get the meassge box with empty dialog box.
The message string as well as the button captions are displayed empty

Even the msgbox("hello") gives the same problem.

I tried importing System.Micosoft.visulabasic too. but no luck...

I do not know what is missing here.

please help !!

Avatar of Mikal613
Mikal613
Flag of United States of America image
try

MsgBox("Hello")
Avatar of Mikal613
Mikal613
Flag of United States of America image
Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    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.
    Friend WithEvents Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(171, 48)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 42)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("hello")
    End Sub
End Class
Avatar of Mikal613
Mikal613
Flag of United States of America image
are you using a web form?
Avatar of Mike Tomlinson
Mike Tomlinson
Flag of United States of America image
Simliar problem here:
https://www.experts-exchange.com/questions/21141385/Empty-Message-Box-in-VB-NET-2003.html

Are you running McAfee VirusScan Enterprise 8.0 (New Version) on them?

~IM
Avatar of Mikal613
Mikal613
Flag of United States of America image
if so

there's no keyword for displaying a MessageBox in ASP.NET. You have to register a ClientScriptBlock and Invoke this. Here's an exampla page


Code:<%@ Page Language="C#" %>
<script runat="server">
   void Button1_Click(object sender, EventArgs e)
   {
       string message = "MessageBoxTest";
       string alertScript = "<script language=JavaScript>";
       alertScript += "alert('" +message +"');";
       alertScript += "</script" +">";

       if (!IsClientScriptBlockRegistered("alert"))
           this.RegisterClientScriptBlock("alert", alertScript);
   }

</script>
<html>
<head>
</head>
<body>
   <form runat="server">
       <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button>
   </form>
</body>
</html>

There also exists a free MessageBox Server-Component. You'll find it here
http://www.orangegray.net/de/default.aspx
Avatar of IngridK
IngridK

ASKER

I have tried msgbox("Hello") too. and  no luck...same problem.


No, I am not using web form. It's a window form.  
Avatar of Mikal613
Mikal613
Flag of United States of America image
can you post your code maybe your missing something

or you can post my whole project that i pasted above
Avatar of IngridK
IngridK

ASKER

Here is my code. I have tried the ones commented too.  It's on simple click event

Imports Microsoft.VisualBasic


Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    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.
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents lblSiNumber As System.Windows.Forms.Label
    Friend WithEvents cmb_sinumber As System.Windows.Forms.ComboBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents cmb_component As System.Windows.Forms.ComboBox
    Friend WithEvents lblManufacturer As System.Windows.Forms.Label
    Friend WithEvents lblManufValue As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents lblDeviceDescValue As System.Windows.Forms.Label
    Friend WithEvents lblInHouse As System.Windows.Forms.Label
    Friend WithEvents lblInHouseValue As System.Windows.Forms.Label
    Friend WithEvents tabCtrl As System.Windows.Forms.TabControl
    Friend WithEvents tabNewSample As System.Windows.Forms.TabPage
    Friend WithEvents tabPartsProcure As System.Windows.Forms.TabPage
    Friend WithEvents tabTechnicalData As System.Windows.Forms.TabPage
    Friend WithEvents tabMicrophoto As System.Windows.Forms.TabPage
    Friend WithEvents tabMarketing As System.Windows.Forms.TabPage
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents lblTransistorgateLen As System.Windows.Forms.Label
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents lblMeasuredFeatures As System.Windows.Forms.Label
    Friend WithEvents txtLithography As System.Windows.Forms.TextBox
    Friend WithEvents lblLithography As System.Windows.Forms.Label
    Friend WithEvents txtFoundry As System.Windows.Forms.TextBox
    Friend WithEvents lblFoundry As System.Windows.Forms.Label
    Friend WithEvents txtCellLength As System.Windows.Forms.TextBox
    Friend WithEvents lblCellLength As System.Windows.Forms.Label
    Friend WithEvents cmb_TrglUnit As System.Windows.Forms.ComboBox
    Friend WithEvents cmb_LithoUnit As System.Windows.Forms.ComboBox
    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
    Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
    Friend WithEvents lblProcess As System.Windows.Forms.Label
    Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents lblVoltage As System.Windows.Forms.Label
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents ComboBox5 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents btnClose As System.Windows.Forms.Button
    Friend WithEvents btnCancel As System.Windows.Forms.Button
    Friend WithEvents btnSave As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.Panel2 = New System.Windows.Forms.Panel
        Me.btnClose = New System.Windows.Forms.Button
        Me.btnCancel = New System.Windows.Forms.Button
        Me.btnSave = New System.Windows.Forms.Button
        Me.tabCtrl = New System.Windows.Forms.TabControl
        Me.tabNewSample = New System.Windows.Forms.TabPage
        Me.tabPartsProcure = New System.Windows.Forms.TabPage
        Me.Label5 = New System.Windows.Forms.Label
        Me.tabTechnicalData = New System.Windows.Forms.TabPage
        Me.ComboBox5 = New System.Windows.Forms.ComboBox
        Me.TextBox6 = New System.Windows.Forms.TextBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.ComboBox4 = New System.Windows.Forms.ComboBox
        Me.TextBox5 = New System.Windows.Forms.TextBox
        Me.Label6 = New System.Windows.Forms.Label
        Me.TextBox4 = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.ComboBox3 = New System.Windows.Forms.ComboBox
        Me.TextBox3 = New System.Windows.Forms.TextBox
        Me.lblVoltage = New System.Windows.Forms.Label
        Me.ComboBox2 = New System.Windows.Forms.ComboBox
        Me.lblProcess = New System.Windows.Forms.Label
        Me.ComboBox1 = New System.Windows.Forms.ComboBox
        Me.cmb_LithoUnit = New System.Windows.Forms.ComboBox
        Me.cmb_TrglUnit = New System.Windows.Forms.ComboBox
        Me.txtCellLength = New System.Windows.Forms.TextBox
        Me.lblCellLength = New System.Windows.Forms.Label
        Me.txtFoundry = New System.Windows.Forms.TextBox
        Me.lblFoundry = New System.Windows.Forms.Label
        Me.txtLithography = New System.Windows.Forms.TextBox
        Me.lblLithography = New System.Windows.Forms.Label
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.lblMeasuredFeatures = New System.Windows.Forms.Label
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.lblTransistorgateLen = New System.Windows.Forms.Label
        Me.tabMicrophoto = New System.Windows.Forms.TabPage
        Me.tabMarketing = New System.Windows.Forms.TabPage
        Me.lblInHouseValue = New System.Windows.Forms.Label
        Me.lblInHouse = New System.Windows.Forms.Label
        Me.lblDeviceDescValue = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.lblManufValue = New System.Windows.Forms.Label
        Me.lblManufacturer = New System.Windows.Forms.Label
        Me.cmb_component = New System.Windows.Forms.ComboBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.cmb_sinumber = New System.Windows.Forms.ComboBox
        Me.lblSiNumber = New System.Windows.Forms.Label
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
        Me.tabCtrl.SuspendLayout()
        Me.tabPartsProcure.SuspendLayout()
        Me.tabTechnicalData.SuspendLayout()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
        Me.Label1.Location = New System.Drawing.Point(160, 32)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(384, 24)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Sourcerer"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.Panel2)
        Me.Panel1.Controls.Add(Me.tabCtrl)
        Me.Panel1.Controls.Add(Me.lblInHouseValue)
        Me.Panel1.Controls.Add(Me.lblInHouse)
        Me.Panel1.Controls.Add(Me.lblDeviceDescValue)
        Me.Panel1.Controls.Add(Me.Label3)
        Me.Panel1.Controls.Add(Me.lblManufValue)
        Me.Panel1.Controls.Add(Me.lblManufacturer)
        Me.Panel1.Controls.Add(Me.cmb_component)
        Me.Panel1.Controls.Add(Me.Label2)
        Me.Panel1.Controls.Add(Me.cmb_sinumber)
        Me.Panel1.Controls.Add(Me.lblSiNumber)
        Me.Panel1.Location = New System.Drawing.Point(16, 63)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(776, 440)
        Me.Panel1.TabIndex = 1
        '
        'Panel2
        '
        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel2.Controls.Add(Me.btnClose)
        Me.Panel2.Controls.Add(Me.btnCancel)
        Me.Panel2.Controls.Add(Me.btnSave)
        Me.Panel2.Location = New System.Drawing.Point(42, 381)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(675, 48)
        Me.Panel2.TabIndex = 12
        '
        'btnClose
        '
        Me.btnClose.Location = New System.Drawing.Point(400, 12)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.Size = New System.Drawing.Size(80, 24)
        Me.btnClose.TabIndex = 17
        Me.btnClose.Text = "Close"
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(292, 12)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(80, 24)
        Me.btnCancel.TabIndex = 16
        Me.btnCancel.Text = "Cancel"
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(192, 12)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(80, 24)
        Me.btnSave.TabIndex = 15
        Me.btnSave.Text = "Save"
        '
        'tabCtrl
        '
        Me.tabCtrl.Controls.Add(Me.tabNewSample)
        Me.tabCtrl.Controls.Add(Me.tabPartsProcure)
        Me.tabCtrl.Controls.Add(Me.tabTechnicalData)
        Me.tabCtrl.Controls.Add(Me.tabMicrophoto)
        Me.tabCtrl.Controls.Add(Me.tabMarketing)
        Me.tabCtrl.Location = New System.Drawing.Point(40, 72)
        Me.tabCtrl.Name = "tabCtrl"
        Me.tabCtrl.SelectedIndex = 0
        Me.tabCtrl.Size = New System.Drawing.Size(672, 304)
        Me.tabCtrl.TabIndex = 11
        '
        'tabNewSample
        '
        Me.tabNewSample.Location = New System.Drawing.Point(4, 22)
        Me.tabNewSample.Name = "tabNewSample"
        Me.tabNewSample.Size = New System.Drawing.Size(664, 278)
        Me.tabNewSample.TabIndex = 0
        Me.tabNewSample.Text = "New Sample"
        '
        'tabPartsProcure
        '
        Me.tabPartsProcure.Controls.Add(Me.Label5)
        Me.tabPartsProcure.Location = New System.Drawing.Point(4, 22)
        Me.tabPartsProcure.Name = "tabPartsProcure"
        Me.tabPartsProcure.Size = New System.Drawing.Size(664, 278)
        Me.tabPartsProcure.TabIndex = 1
        Me.tabPartsProcure.Text = "Parts & Procurement"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(96, 48)
        Me.Label5.Name = "Label5"
        Me.Label5.TabIndex = 0
        Me.Label5.Text = "partproc"
        '
        'tabTechnicalData
        '
        Me.tabTechnicalData.Controls.Add(Me.ComboBox5)
        Me.tabTechnicalData.Controls.Add(Me.TextBox6)
        Me.tabTechnicalData.Controls.Add(Me.Label7)
        Me.tabTechnicalData.Controls.Add(Me.ComboBox4)
        Me.tabTechnicalData.Controls.Add(Me.TextBox5)
        Me.tabTechnicalData.Controls.Add(Me.Label6)
        Me.tabTechnicalData.Controls.Add(Me.TextBox4)
        Me.tabTechnicalData.Controls.Add(Me.Label4)
        Me.tabTechnicalData.Controls.Add(Me.ComboBox3)
        Me.tabTechnicalData.Controls.Add(Me.TextBox3)
        Me.tabTechnicalData.Controls.Add(Me.lblVoltage)
        Me.tabTechnicalData.Controls.Add(Me.ComboBox2)
        Me.tabTechnicalData.Controls.Add(Me.lblProcess)
        Me.tabTechnicalData.Controls.Add(Me.ComboBox1)
        Me.tabTechnicalData.Controls.Add(Me.cmb_LithoUnit)
        Me.tabTechnicalData.Controls.Add(Me.cmb_TrglUnit)
        Me.tabTechnicalData.Controls.Add(Me.txtCellLength)
        Me.tabTechnicalData.Controls.Add(Me.lblCellLength)
        Me.tabTechnicalData.Controls.Add(Me.txtFoundry)
        Me.tabTechnicalData.Controls.Add(Me.lblFoundry)
        Me.tabTechnicalData.Controls.Add(Me.txtLithography)
        Me.tabTechnicalData.Controls.Add(Me.lblLithography)
        Me.tabTechnicalData.Controls.Add(Me.TextBox2)
        Me.tabTechnicalData.Controls.Add(Me.lblMeasuredFeatures)
        Me.tabTechnicalData.Controls.Add(Me.TextBox1)
        Me.tabTechnicalData.Controls.Add(Me.lblTransistorgateLen)
        Me.tabTechnicalData.Location = New System.Drawing.Point(4, 22)
        Me.tabTechnicalData.Name = "tabTechnicalData"
        Me.tabTechnicalData.Size = New System.Drawing.Size(664, 278)
        Me.tabTechnicalData.TabIndex = 2
        Me.tabTechnicalData.Text = "Technical Data"
        '
        'ComboBox5
        '
        Me.ComboBox5.Items.AddRange(New Object() {"um", "mm", "nm"})
        Me.ComboBox5.Location = New System.Drawing.Point(584, 150)
        Me.ComboBox5.Name = "ComboBox5"
        Me.ComboBox5.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox5.TabIndex = 25
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(472, 150)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.TabIndex = 24
        Me.TextBox6.Text = ""
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.Location = New System.Drawing.Point(360, 152)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
        Me.Label7.TabIndex = 23
        Me.Label7.Text = "Cell Width"
        '
        'ComboBox4
        '
        Me.ComboBox4.Items.AddRange(New Object() {"um", "mm", "nm"})
        Me.ComboBox4.Location = New System.Drawing.Point(584, 120)
        Me.ComboBox4.Name = "ComboBox4"
        Me.ComboBox4.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox4.TabIndex = 22
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(472, 120)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.TabIndex = 21
        Me.TextBox5.Text = ""
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(360, 122)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(68, 16)
        Me.Label6.TabIndex = 20
        Me.Label6.Text = "Clock Speed"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(472, 86)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(160, 20)
        Me.TextBox4.TabIndex = 19
        Me.TextBox4.Text = ""
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(360, 88)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(115, 16)
        Me.Label4.TabIndex = 18
        Me.Label4.Text = "Read Access Memory"
        '
        'ComboBox3
        '
        Me.ComboBox3.Items.AddRange(New Object() {"mm", "cm", "um"})
        Me.ComboBox3.Location = New System.Drawing.Point(576, 56)
        Me.ComboBox3.Name = "ComboBox3"
        Me.ComboBox3.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox3.TabIndex = 17
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(472, 56)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.TabIndex = 16
        Me.TextBox3.Text = ""
        '
        'lblVoltage
        '
        Me.lblVoltage.AutoSize = True
        Me.lblVoltage.Location = New System.Drawing.Point(360, 58)
        Me.lblVoltage.Name = "lblVoltage"
        Me.lblVoltage.Size = New System.Drawing.Size(43, 16)
        Me.lblVoltage.TabIndex = 15
        Me.lblVoltage.Text = "Voltage"
        '
        'ComboBox2
        '
        Me.ComboBox2.Location = New System.Drawing.Point(472, 24)
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(144, 21)
        Me.ComboBox2.TabIndex = 14
        '
        'lblProcess
        '
        Me.lblProcess.AutoSize = True
        Me.lblProcess.Location = New System.Drawing.Point(360, 26)
        Me.lblProcess.Name = "lblProcess"
        Me.lblProcess.Size = New System.Drawing.Size(45, 16)
        Me.lblProcess.TabIndex = 13
        Me.lblProcess.Text = "Process"
        '
        'ComboBox1
        '
        Me.ComboBox1.Items.AddRange(New Object() {"um", "mm", "nm"})
        Me.ComboBox1.Location = New System.Drawing.Point(248, 150)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox1.TabIndex = 12
        '
        'cmb_LithoUnit
        '
        Me.cmb_LithoUnit.Items.AddRange(New Object() {"mm", "cm", "um"})
        Me.cmb_LithoUnit.Location = New System.Drawing.Point(248, 56)
        Me.cmb_LithoUnit.Name = "cmb_LithoUnit"
        Me.cmb_LithoUnit.Size = New System.Drawing.Size(56, 21)
        Me.cmb_LithoUnit.TabIndex = 11
        '
        'cmb_TrglUnit
        '
        Me.cmb_TrglUnit.Location = New System.Drawing.Point(248, 24)
        Me.cmb_TrglUnit.Name = "cmb_TrglUnit"
        Me.cmb_TrglUnit.Size = New System.Drawing.Size(56, 21)
        Me.cmb_TrglUnit.TabIndex = 10
        '
        'txtCellLength
        '
        Me.txtCellLength.Location = New System.Drawing.Point(144, 151)
        Me.txtCellLength.Name = "txtCellLength"
        Me.txtCellLength.TabIndex = 9
        Me.txtCellLength.Text = ""
        '
        'lblCellLength
        '
        Me.lblCellLength.AutoSize = True
        Me.lblCellLength.Location = New System.Drawing.Point(32, 153)
        Me.lblCellLength.Name = "lblCellLength"
        Me.lblCellLength.Size = New System.Drawing.Size(61, 16)
        Me.lblCellLength.TabIndex = 8
        Me.lblCellLength.Text = "Cell Length"
        '
        'txtFoundry
        '
        Me.txtFoundry.Location = New System.Drawing.Point(144, 120)
        Me.txtFoundry.Name = "txtFoundry"
        Me.txtFoundry.Size = New System.Drawing.Size(160, 20)
        Me.txtFoundry.TabIndex = 7
        Me.txtFoundry.Text = ""
        '
        'lblFoundry
        '
        Me.lblFoundry.AutoSize = True
        Me.lblFoundry.Location = New System.Drawing.Point(32, 122)
        Me.lblFoundry.Name = "lblFoundry"
        Me.lblFoundry.Size = New System.Drawing.Size(46, 16)
        Me.lblFoundry.TabIndex = 6
        Me.lblFoundry.Text = "Foundry"
        '
        'txtLithography
        '
        Me.txtLithography.Location = New System.Drawing.Point(144, 54)
        Me.txtLithography.Name = "txtLithography"
        Me.txtLithography.TabIndex = 5
        Me.txtLithography.Text = ""
        '
        'lblLithography
        '
        Me.lblLithography.AutoSize = True
        Me.lblLithography.Location = New System.Drawing.Point(32, 58)
        Me.lblLithography.Name = "lblLithography"
        Me.lblLithography.Size = New System.Drawing.Size(111, 16)
        Me.lblLithography.TabIndex = 4
        Me.lblLithography.Text = "Lithography Features"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(144, 86)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(160, 20)
        Me.TextBox2.TabIndex = 3
        Me.TextBox2.Text = ""
        '
        'lblMeasuredFeatures
        '
        Me.lblMeasuredFeatures.AutoSize = True
        Me.lblMeasuredFeatures.Location = New System.Drawing.Point(32, 88)
        Me.lblMeasuredFeatures.Name = "lblMeasuredFeatures"
        Me.lblMeasuredFeatures.Size = New System.Drawing.Size(97, 16)
        Me.lblMeasuredFeatures.TabIndex = 2
        Me.lblMeasuredFeatures.Text = "Measured Feature"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(144, 24)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.TabIndex = 1
        Me.TextBox1.Text = ""
        '
        'lblTransistorgateLen
        '
        Me.lblTransistorgateLen.AutoSize = True
        Me.lblTransistorgateLen.Location = New System.Drawing.Point(32, 26)
        Me.lblTransistorgateLen.Name = "lblTransistorgateLen"
        Me.lblTransistorgateLen.Size = New System.Drawing.Size(117, 16)
        Me.lblTransistorgateLen.TabIndex = 0
        Me.lblTransistorgateLen.Text = "Transistor GateLength"
        '
        'tabMicrophoto
        '
        Me.tabMicrophoto.Location = New System.Drawing.Point(4, 22)
        Me.tabMicrophoto.Name = "tabMicrophoto"
        Me.tabMicrophoto.Size = New System.Drawing.Size(664, 278)
        Me.tabMicrophoto.TabIndex = 3
        Me.tabMicrophoto.Text = "Mirophotography"
        '
        'tabMarketing
        '
        Me.tabMarketing.Location = New System.Drawing.Point(4, 22)
        Me.tabMarketing.Name = "tabMarketing"
        Me.tabMarketing.Size = New System.Drawing.Size(664, 278)
        Me.tabMarketing.TabIndex = 4
        Me.tabMarketing.Text = "Marketing"
        '
        'lblInHouseValue
        '
        Me.lblInHouseValue.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
        Me.lblInHouseValue.Location = New System.Drawing.Point(656, 40)
        Me.lblInHouseValue.Name = "lblInHouseValue"
        Me.lblInHouseValue.Size = New System.Drawing.Size(56, 24)
        Me.lblInHouseValue.TabIndex = 10
        '
        'lblInHouse
        '
        Me.lblInHouse.AutoSize = True
        Me.lblInHouse.Location = New System.Drawing.Point(656, 16)
        Me.lblInHouse.Name = "lblInHouse"
        Me.lblInHouse.Size = New System.Drawing.Size(50, 16)
        Me.lblInHouse.TabIndex = 9
        Me.lblInHouse.Text = "in-House"
        '
        'lblDeviceDescValue
        '
        Me.lblDeviceDescValue.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
        Me.lblDeviceDescValue.ForeColor = System.Drawing.Color.Black
        Me.lblDeviceDescValue.Location = New System.Drawing.Point(528, 40)
        Me.lblDeviceDescValue.Name = "lblDeviceDescValue"
        Me.lblDeviceDescValue.Size = New System.Drawing.Size(96, 24)
        Me.lblDeviceDescValue.TabIndex = 8
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(536, 16)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(71, 16)
        Me.Label3.TabIndex = 7
        Me.Label3.Text = "Device Desc."
        '
        'lblManufValue
        '
        Me.lblManufValue.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
        Me.lblManufValue.Location = New System.Drawing.Point(400, 40)
        Me.lblManufValue.Name = "lblManufValue"
        Me.lblManufValue.Size = New System.Drawing.Size(96, 24)
        Me.lblManufValue.TabIndex = 6
        '
        'lblManufacturer
        '
        Me.lblManufacturer.AutoSize = True
        Me.lblManufacturer.Location = New System.Drawing.Point(408, 16)
        Me.lblManufacturer.Name = "lblManufacturer"
        Me.lblManufacturer.Size = New System.Drawing.Size(71, 16)
        Me.lblManufacturer.TabIndex = 5
        Me.lblManufacturer.Text = "Manufacturer"
        '
        'cmb_component
        '
        Me.cmb_component.Location = New System.Drawing.Point(333, 14)
        Me.cmb_component.Name = "cmb_component"
        Me.cmb_component.Size = New System.Drawing.Size(40, 21)
        Me.cmb_component.TabIndex = 4
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(231, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(78, 16)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Componenet #"
        '
        'cmb_sinumber
        '
        Me.cmb_sinumber.Location = New System.Drawing.Point(103, 14)
        Me.cmb_sinumber.Name = "cmb_sinumber"
        Me.cmb_sinumber.Size = New System.Drawing.Size(104, 21)
        Me.cmb_sinumber.TabIndex = 2
        '
        'lblSiNumber
        '
        Me.lblSiNumber.AutoSize = True
        Me.lblSiNumber.Location = New System.Drawing.Point(24, 16)
        Me.lblSiNumber.Name = "lblSiNumber"
        Me.lblSiNumber.Size = New System.Drawing.Size(55, 16)
        Me.lblSiNumber.TabIndex = 0
        Me.lblSiNumber.Text = "SINumber"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(840, 565)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.Panel1.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        Me.tabCtrl.ResumeLayout(False)
        Me.tabPartsProcure.ResumeLayout(False)
        Me.tabTechnicalData.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Dim response As MsgBoxResult
        Dim style As MsgBoxStyle
        Dim msg As String
        Dim title As String

        msg = "Do you want to close"
        title = "Information"
        style = MsgBoxStyle.OKCancel



        'response = MsgBox(msg, style, title)

        'If response = MsgBoxResult.Yes Then

        '    MsgBox("Hello Yes")
        'Else
        '    MsgBox("hello, No")

        'End If


        'MsgBox("testing it as msgbox", 4, "XC")

        Windows.Forms.MessageBox.Show("test")

    End Sub
End Class

Avatar of Mikal613
Mikal613
Flag of United States of America image
i pasted in my Visual studio

and when i clicked Close i got the word test in the Msgbox
Avatar of IngridK
IngridK

ASKER

What are your system setting?  Which spervice pack you have?
Avatar of Mikal613
Mikal613
Flag of United States of America image
im running XP PRO service pack 1

Visual Studio 2003

Maybe you have a bad installation

I even un commented your lines by the Hi

And it worked also
Avatar of IngridK
IngridK

ASKER

Thanks, Mike. And thanks to all the contributors.

The problem is not yet solved, but i'll leave it here and try  re-installing the framework and see if that helps.

Avatar of IngridK
IngridK

ASKER

Hello,

Un-installing the McAfee solved the problem. But it's not the correct solution.  My IT guys will not allow me to work on a system with out having McAfee on it. so what is the right solution ? Any one has any clue?

Thanks,
Avatar of Mikal613
Mikal613
Flag of United States of America image
mcafee could ve been using a Dll that is shared with .net and they updated it
Avatar of iboutchkine
iboutchkine
This behavior is caused by buffer overflow protection of McAfee AntiVirus 8.
By installing available updates the problem should go away:

In Virus Scan Console, disable buffer overrun protection
Avatar of IngridK
IngridK

ASKER

Thanks for all the replies. The problem was solved by installing patch from McAfee

McAfee version 8.0i patch-9 solves this problem. Please see the Issue # 5  in the link below.
 
http://www.mcafee.dk/support/hotfixes.php?id=VSE_8.0i_Patch-9
ASKER CERTIFIED SOLUTION
Avatar of modulo
modulo
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial