Debug

starcraft · Jul 4, 2003

When i debug it loads up fine then just closesjust before its about to bring up my program and in the log window it says

The program '[3644] WindowsApplication16.exe' has exited with code 0 (0x0).

how do i fix it?

starcraft · Jul 4, 2003

i also tryed going into the folder and starting the copy from there but i get no responce

Robby · Jul 4, 2003

Does this happen on all projects or just one in particular?

starcraft · Jul 4, 2003

just this one the last time i tryed to bug then i also restarted VB and no sucess

Volte · Jul 5, 2003

Is this program being started from a Sub Main() (using Application.Run) or is it just a standard startup form?

starcraft · Jul 5, 2003

Visual Basic:

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 Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(0, 104)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(296, 192)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "You agree not to post any abusive, obscene, vulgar, slanderous, hateful, threaten" & _
        "ing, sexually-oriented or any other material that may violate any applicable law" & _
        "s. Doing so may lead to you being immediately and permanently banned (and your s" & _
        "ervice provider being informed). The IP address of all posts is recorded to aid " & _
        "in enforcing these conditions. You agree that the webmaster, administrator and m" & _
        "oderators of this forum have the right to remove, edit, move or close any topic " & _
        "at any time should they see fit. As a user you agree to any information you have" & _
        " entered above being stored in a database. While this information will not be di" & _
        "sclosed to any third party without your consent the webmaster, administrator and" & _
        " moderators cannot be held responsible for any hacking attempt that may lead to " & _
        "the data being compromised."
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(0, 296)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(296, 88)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "This forum system uses cookies to store information on your local computer. These" & _
        " cookies do not contain any of the information you have entered above; they serv" & _
        "e only to improve your viewing pleasure. The e-mail address is used only for con" & _
        "firming your registration details and password (and for sending new passwords sh" & _
        "ould you forget your current one)."
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(0, 392)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(296, 40)
        Me.Label4.TabIndex = 3
        Me.Label4.Text = "By clicking Register below you agree to be bound by these conditions."
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(0, 432)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(304, 32)
        Me.Button1.TabIndex = 4
        Me.Button1.Text = "I Agree to these terms and am over or exactly 13 years of age"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(0, 488)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(296, 23)
        Me.Button2.TabIndex = 5
        Me.Button2.Text = "I do not agree to these terms"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(0, 464)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(296, 24)
        Me.Button3.TabIndex = 6
        Me.Button3.Text = "I Agree to these terms and am under 13 years of age"
        '
        'Label1
        '
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(296, 104)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "While the administrators and moderators of this forum will attempt to remove or e" & _
        "dit any generally objectionable material as quickly as possible, it is impossibl" & _
        "e to review every message. Therefore you acknowledge that all posts made to thes" & _
        "e forums express the views and opinions of the author and not the administrators" & _
        ", moderators or webmaster (except for posts by these people) and hence will not " & _
        "be held liable."
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(296, 510)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button3, Me.Button2, Me.Button1, Me.Label4, Me.Label3, Me.Label2, Me.Label1})
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Public frm2 As New Form2()
    Public frm3 As New Form3()
    Public frm4 As New Form4()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.AddOwnedForm(frm2)
        Me.AddOwnedForm(frm3)
    End Sub

AndreRyan · Jul 5, 2003

There doesn't seem to be anything wrong with that, what happens in the other forms?

I had a problem similar to this before, I had accidentally got the program stuck in an infinite loop creating object instances, when the memory usage got to high the program just ended but I don't know if thats a problem here

starcraft · Jul 6, 2003

i'll post the code for the other ones they arn't that big just a sec

starcraft · Jul 6, 2003

Visual Basic:

Option Strict On
Option Explicit On 
Imports System.Web.Mail
Public Class Form2
    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 TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Label7 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.TextBox3 = New System.Windows.Forms.TextBox()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.TextBox4 = New System.Windows.Forms.TextBox()
        Me.TextBox5 = New System.Windows.Forms.TextBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(288, 32)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "You have said that you are 13 or older. Please fill out the rest of this informat" & _
        "ion and click send form at bottem."
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(0, 48)
        Me.TextBox1.MaxLength = 25
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(296, 20)
        Me.TextBox1.TabIndex = 1
        Me.TextBox1.Text = ""
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(0, 32)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(288, 16)
        Me.Label2.TabIndex = 2
        Me.Label2.Text = "Enter the username you wish to have"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(0, 72)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(288, 16)
        Me.Label3.TabIndex = 3
        Me.Label3.Text = "Enter the password you wish to have"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(0, 88)
        Me.TextBox2.MaxLength = 25
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.PasswordChar = Microsoft.VisualBasic.ChrW(42)
        Me.TextBox2.Size = New System.Drawing.Size(296, 20)
        Me.TextBox2.TabIndex = 4
        Me.TextBox2.Text = ""
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(0, 128)
        Me.TextBox3.MaxLength = 25
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.PasswordChar = Microsoft.VisualBasic.ChrW(42)
        Me.TextBox3.Size = New System.Drawing.Size(296, 20)
        Me.TextBox3.TabIndex = 5
        Me.TextBox3.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(0, 112)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(288, 16)
        Me.Label4.TabIndex = 6
        Me.Label4.Text = "Re-Enter your password"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(0, 168)
        Me.TextBox4.MaxLength = 25
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(296, 20)
        Me.TextBox4.TabIndex = 7
        Me.TextBox4.Text = ""
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(0, 208)
        Me.TextBox5.MaxLength = 25
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(296, 20)
        Me.TextBox5.TabIndex = 8
        Me.TextBox5.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(0, 152)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(288, 16)
        Me.Label5.TabIndex = 9
        Me.Label5.Text = "Enter your e-mail address"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(0, 192)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(288, 16)
        Me.Label6.TabIndex = 10
        Me.Label6.Text = "Re-Enter your e-mail address"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(152, 240)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(128, 24)
        Me.Button1.TabIndex = 11
        Me.Button1.Text = "Send Form ->"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(8, 240)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(128, 24)
        Me.Button2.TabIndex = 12
        Me.Button2.Text = "Clear Form"
        '
        'Label7
        '
        Me.Label7.ForeColor = System.Drawing.Color.Lime
        Me.Label7.Location = New System.Drawing.Point(0, 272)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(288, 16)
        Me.Label7.TabIndex = 13
        Me.Label7.Text = "Created By: Michael Dresser                          Version: 1.5"
        '
        'Form2
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.Black
        Me.ClientSize = New System.Drawing.Size(292, 286)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label7, Me.Button2, Me.Button1, Me.Label6, Me.Label5, Me.TextBox5, Me.TextBox4, Me.Label4, Me.TextBox3, Me.TextBox2, Me.Label3, Me.Label2, Me.TextBox1, Me.Label1})
        Me.ForeColor = System.Drawing.Color.Red
        Me.Name = "Form2"
        Me.Text = "Form2"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public frm2 As New Form1()
    Public frm3 As New Form3()
    Public frm4 As New Form4()
    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case TextBox2.Text
            Case TextBox3.Text '/// same text in textbox2 and textbox1
            Case Else '/// different texts
                MessageBox.Show("oops you typed the wrong password! ")
                Select Case TextBox4.Text
                    Case TextBox5.Text
                    Case Else
                        MessageBox.Show("oops the e-mail addresses dont match")
                End Select
        End Select
        Dim message As New MailMessage()
        message.To = "darknecromancer@cox.net"
        message.From = TextBox4.Text
        message.Subject = "New Member*"
        message.Body = "Username: " & Chr(13) & TextBox1.Text & Chr(13) & "Password: " & Chr(13) & TextBox2.Text & Chr(13) & "Thay are 13 or older" & Chr(13)
        SmtpMail.SmtpServer = "smtp.west.cox.net"
        SmtpMail.Send(message)
        frm2.Hide()
        frm4.Show()


    End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""

    End Sub
End Class

this is form 2

starcraft · Jul 6, 2003

Visual Basic:

Option Strict On
Option Explicit On 
Imports System.Web.Mail
Public Class Form3
    Inherits System.Windows.Forms.Form
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
    End Sub
End Class

form 3

Cassio · Jul 6, 2003

Starcraft, where´s your program starting? If you´re starting it from a Main Sub then you should use Application.Run() after you load the main form. Otherwise your program will exit.

AndreRyan · Jul 6, 2003

Check your App is set to start with Form1 not Sub Main in the project properties, I can't find anything wrong with the code

Debug

starcraft

Centurion

starcraft

Centurion

Robby

Ultimate Contributor

starcraft

Centurion

Volte

Neutiquam Erro

starcraft

Centurion

AndreRyan

Junior Contributor

starcraft

Centurion

starcraft

Centurion

starcraft

Centurion

Cassio

Junior Contributor

AndreRyan

Junior Contributor