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
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
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