[es] - Error u VB.netu: System.StackOverflowException

NYXY
Hrvatska

Član broj: 126762
Poruke: 60
*.adsl.net.t-com.hr.

Profil

Error u VB.netu: System.StackOverflowException

^{24.04.2007. u 11:52 - pre 207 meseci}

Kada pokušam pokrenuti aplikaciju javi mi se ovaj error:

An unhandled exception of type 'System.StackOverflowException' occurred in System.Windows.Forms.dll

aplikacija se sastoji od 2 forme

forma 1:

Code:

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then
            TextBox1.Text = 1
        ElseIf RadioButton2.Checked Then
            TextBox1.Text = 2
        ElseIf RadioButton3.Checked Then
            TextBox1.Text = 3
        End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then
            TextBox1.Text = 2
        ElseIf RadioButton1.Checked Then
            TextBox1.Text = 1
        ElseIf RadioButton3.Checked Then
            TextBox1.Text = 3
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked Then
            TextBox1.Text = 3
        ElseIf RadioButton2.Checked Then
            TextBox1.Text = 2
        ElseIf RadioButton1.Checked Then
            TextBox1.Text = 1
        End If

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        fo2.Show()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

forma 2:

Code:

Public Class Form2
    Dim Fo1 As New Form1()
Private Sub Text2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Text22.Text = Fo1.Text2.Text
End Class

    End Sub

Unaprjed vam hvala

Odgovor na temu

mmix
Miljan Mitrović
Profesorkin muz
Passau, Deutschland

SuperModerator
Član broj: 17944
Poruke: 6042

+4631 Profil

Re: Error u VB.netu: System.StackOverflowException

^{24.04.2007. u 13:09 - pre 207 meseci}

StackOverflowException je obicno indikator nekotrnolisane rekurzije. Mnogo bolji indikator sta se desava je stack trace. Vidi sta ti je na steku u trenutku pucanja i baci prvih desetak linija ovde...

Sloba je za 12 godina promenio antropološki kod srpskog naroda. On je od jednog naroda koji je bio veseo, pomalo površan, od jednog naroda koji je bio znatiželjan, koji je voleo da vidi, da putuje, da upozna,
od naroda koji je bio kosmopolitski napravio narod koji je namršten, mrzovoljan, sumnjicav, zaplašen, narod koji se stalno nešto žali, kome je stalno neko kriv… - Z.Đinđić

Odgovor na temu

NYXY
Hrvatska

Član broj: 126762
Poruke: 60
*.adsl.net.t-com.hr.

Profil

Re: Error u VB.netu: System.StackOverflowException

^{24.04.2007. u 19:33 - pre 207 meseci}

Cini mi se da je error bio zbog one linije koda:

Code:

Dim Fo1 As New Form1()

prvo sam mislio da je to zbog ona 4 textboxa koja komuniciraju međusobno (po 2 u svakoj formi),ali kada sam ih izbrisao javio se isti error,nakon što sam uklonio gorenavedenu liniju koda program je radio bez problema.

Odgovor na temu

mmix
Miljan Mitrović
Profesorkin muz
Passau, Deutschland

SuperModerator
Član broj: 17944
Poruke: 6042

+4631 Profil

Re: Error u VB.netu: System.StackOverflowException

^{24.04.2007. u 21:13 - pre 207 meseci}

Ako i u okviru Form1 imas liniju koda:

Dim fo2 as New Form2

onda je to rekurzija. (form1 kreira form2 koji kreira form 1 koji kreira form2 i tako doveka tj dok ne dodje <stack overflow>)

PS> Ovo se sve vidi u stack trace-u. Jos nisam video stack overflow koji nije mogao da se dijagnostikuje kroz stack trace, iz aviona se vidi mrtva petlja.

Odgovor na temu