Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

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

Posted on 2004-12-01
18
Medium Priority
?
291 Views
Last Modified: 2010-04-23
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 !!

0
Comment
Question by:IngridK
17 Comments
 
LVL 48

Expert Comment

by:Mikal613
ID: 12717601
try

MsgBox("Hello")
0
 
LVL 48

Expert Comment

by:Mikal613
ID: 12717622
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
0
 
LVL 48

Expert Comment

by:Mikal613
ID: 12717628
are you using a web form?
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
LVL 86

Expert Comment

by:Mike Tomlinson
ID: 12717635
Simliar problem here:
http://www.experts-exchange.com/Programming/Programming_Languages/Dot_Net/VB_DOT_NET/Q_21141385.html

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

~IM
0
 
LVL 48

Expert Comment

by:Mikal613
ID: 12717636
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
0
 

Author Comment

by:IngridK
ID: 12719226
I have tried msgbox("Hello") too. and  no luck...same problem.


No, I am not using web form. It's a window form.  
0
 
LVL 48

Expert Comment

by:Mikal613
ID: 12719268
can you post your code maybe your missing something

or you can post my whole project that i pasted above
0
 

Author Comment

by:IngridK
ID: 12719348
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

0
 
LVL 48

Expert Comment

by:Mikal613
ID: 12719432
i pasted in my Visual studio

and when i clicked Close i got the word test in the Msgbox
0
 

Author Comment

by:IngridK
ID: 12719519
What are your system setting?  Which spervice pack you have?
0
 
LVL 48

Expert Comment

by:Mikal613
ID: 12719573
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
0
 

Author Comment

by:IngridK
ID: 12719628
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.

0
 

Author Comment

by:IngridK
ID: 12720196
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,
0
 
LVL 48

Expert Comment

by:Mikal613
ID: 12720243
mcafee could ve been using a Dll that is shared with .net and they updated it
0
 
LVL 28

Expert Comment

by:iboutchkine
ID: 12720602
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
0
 

Author Comment

by:IngridK
ID: 12830614
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
0
 

Accepted Solution

by:
modulo earned 0 total points
ID: 13032891
PAQed with points refunded (500)

modulo
Community Support Moderator
0

Featured Post

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft Reports are based on a report definition, which is an XML file that describes data and layout for the report, with a different extension. You can create a client-side report definition language (*.rdlc) file with Visual Studio, and build g…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
Screencast - Getting to Know the Pipeline
Whether it be Exchange Server Crash Issues, Dirty Shutdown Errors or Failed to mount error, Stellar Phoenix Mailbox Exchange Recovery has always got your back. With the help of its easy to understand user interface and 3 simple steps recovery proced…
Suggested Courses

581 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question