AxMSComm1 in VB.net does not work

[cxiong]

I need help. My AxMSComm1 program does not work at all. (I use the AxMSComm1 from the VB6, I mean I installed the full VB.net and custom installed VB6, just have the AxMSComm1 component)

My simple program is to get 2 bytes from the com port and display them into the textbox1

but when i run the program, it does not get anything at all.

Here is my code

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
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents AxMSComm1 As AxMSCommLib.AxMSComm
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.Button1 = New System.Windows.Forms.Button
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.AxMSComm1 = New AxMSCommLib.AxMSComm
        CType(Me.AxMSComm1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(80, 104)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(120, 40)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(88, 40)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(120, 20)
        Me.TextBox1.TabIndex = 2
        Me.TextBox1.Text = "TextBox1"
        '
        'AxMSComm1
        '
        Me.AxMSComm1.Enabled = True
        Me.AxMSComm1.Location = New System.Drawing.Point(16, 184)
        Me.AxMSComm1.Name = "AxMSComm1"
        Me.AxMSComm1.OcxState = CType(resources.GetObject("AxMSComm1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.AxMSComm1.Size = New System.Drawing.Size(38, 38)
        Me.AxMSComm1.TabIndex = 3
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 266)
        Me.Controls.Add(Me.AxMSComm1)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        CType(Me.AxMSComm1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
 
    End Sub
 
#End Region
 
 
        [COLOR=Red]Private Sub Command1_Click()
 
        AxMSComm1.Settings = "9600,n,8,1"
        AxMSComm1.CommPort = 1
        AxMSComm1.PortOpen = True
 
    End Sub
 
 
 
    Private Sub AxMSComm1_OnComm(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm
        Dim sdata As String
        If AxMSComm1.PortOpen = True Then
            sdata = AxMSComm1.Input
            TextBox1.Text = sdata
        End If
 
    End Sub[/COLOR]
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class

Please help.

[MartinLiss]

Moved.

[kleinma]

this code

Private Sub Command1_Click()
 
        AxMSComm1.Settings = "9600,n,8,1"
        AxMSComm1.CommPort = 1
        AxMSComm1.PortOpen = True
 
    End Sub

is never being run... I know it would have run when you clicked the button in VB6, but that is not how things work in .NET...

subroutines that are tied to an event (like a button click) need a handles clause on them (like you see on the AxMSComm1_OnComm routine)

in your forms design mode, double click the button you added to the form..
that should bring you into the code, with the button click and handles stuff already done for you.. and simply paste your code in to there

AxMSComm1.Settings = "9600,n,8,1"
        AxMSComm1.CommPort = 1
        AxMSComm1.PortOpen = True

and then when you run the app and click the button, it will run the above code..