Vente til form har lukket med videre eksekvering

Hvis du smide det i en tråd, kan du prøve med noget i denne stil:

Dim f2 As New Form2
f2.show()
while(f2 ikke er disposed)
{
// loopen kører sålænge at f2 ikke er nedlagt
}
textbox1.text = "1"

Måske er det:

while(f2 is not disposed)
{
}

Jeg programmerer ikke i VB.Net, men C#, hvor det er smule anderledes..

Jeg kommer lige i tanke om, at det er kun C# der bruger "{}"..

VB.Net:

while(f2 is not disposed)
end while

Eksempel:

Public Class Form1

    Dim f2 As New Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim f2 As New Form2
        f2.Show()
        Dim t As System.Threading.Thread
        t = New System.Threading.Thread(AddressOf Me.doit)
        t.IsBackground = True
        t.Start()
    End Sub

    Private Sub opdater()
        TextBox1.Text = "1"
    End Sub

    Private Sub doit()
        While (Not f2.IsDisposed())

        End While
        opdater()
    End Sub
End Class

Hvis du bruger Microsoft Visual Studio 2005, skal du invoke textboxen, før du kan give den værdien..

Det skal man pga restriktioner/sikkerheden..

Jeg har kigget lidt på http://www.code-magazine.com/Article.aspx?quickid=0211141 og prøvet mig frem..

Det gav følgende:

Public Class Form1

    Dim f2 As New Form2

    Delegate Sub delegateOpdater(ByVal Text As String)
    Private mellemmand As delegateOpdater

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Dim f2 As New Form2
        f2.Show()
        Dim t As System.Threading.Thread
        t = New System.Threading.Thread(AddressOf Me.doit)
        t.IsBackground = True


        Me.mellemmand = New delegateOpdater(AddressOf Me.opdater)

        t.Start()
    End Sub

    Private Sub opdater(ByVal tekst As String)
        If TextBox1.InvokeRequired Then
            TextBox1.Invoke(New delegateOpdater(AddressOf opdater), tekst)
        Else
            TextBox1.Text = tekst
        End If

    End Sub

    Private Sub doit()
        While (Not f2.IsDisposed())

        End While
        Me.mellemmand("1")
    End Sub

End Class

Jeg har ryddet lidt op i koden, for fået tråden til at sove 1 ms, så den ikke tager 100% af cpu ressourcerne:

Public Class Form1

    Dim f2 As New Form2
    Delegate Sub delegateOpdater(ByVal Text As String)
    Private SkrivTilTextbox As New delegateOpdater(AddressOf Me.invokeOpdater)
    Dim t As System.Threading.Thread

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        f2.Show()
        t = New System.Threading.Thread(AddressOf Me.doit)
        t.IsBackground = True
        t.Start()
    End Sub

    Private Sub invokeOpdater(ByVal tekst As String)
        If TextBox1.InvokeRequired Then
            TextBox1.Invoke(New delegateOpdater(AddressOf invokeOpdater), tekst)
        Else
            TextBox1.Text = tekst
        End If
    End Sub

    Private Sub doit()
        While (Not f2.IsDisposed())
            ' lav ingen ting.. og hop ud af loopen, så snart f2 lukkes/nedlægges
            Threading.Thread.Sleep(1) ' sover 1 ms (millisekund) før den fortsætter
        End While
        Me.SkrivTilTextbox("1") ' dette er teksten der sendes til TextBox1
    End Sub

End Class

Har du prøvet med ShowDialog? Så behøver du ikke rode dig ud i noget med tråde:

Dim f2 As New Form2
f2.ShowDialog()
textbox1.text = "1"

Fik du det til at virke?

Any news?

Jeg undskylder lige den lange svar tid, og vil bede om et svar.

Ok, jeg går ud fra du fik det til at virke så :)