Form Rückstände auf anderem Form

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von schnibli.

    Hallo im Falle ich das 2.Form Modal aufrufe und wieder schliesse bleiben kein Rückstände.
    Im falle ich die 2.Form nich Modal aufrufe und wieder schliessen bleiben Rückstände auf dem 1. Form

    Kann ich nun Das 2. Form irgendwie nicht Modal aufrufen und dennoch die Rückstände beseitigen?

    Ach ja wenn ich das Form nicht modal aufrufe bleibt das 1 Form nicht hängen. Nur wenn ich das 2.Form schließe bleibt es kurz hängen und dann habe ich die Rückstände...

    Auch wenn mir der Fehler komisch vorkommt, und eigentlich gar nicht sein dürfte..
    vielleicht hilft da nur noch die Holzhammermethode, Nach dem Motto: "Ungewöhnliche Dinge erfordern ungewöhnliche Maßnahmen" :)
    Entferne im Close.Event einfach all deine Controls, und Ruhe ist ! (natürlich in der richtigen Form aufgerufen)

    VB.NET-Quellcode

    1. Private Sub Form1_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    2. Me.Controls.Clear()
    3. End Sub

    Hallo Snaptu,

    Ich habe in post 2 den Aufruf und in Post 3 das ganze Form.

    Aufruf:

    VB.NET-Quellcode

    1. kontakte.Show()


    Form:

    VB.NET-Quellcode

    1. Imports System.Reflection
    2. Imports Outlook = Microsoft.Office.Interop.Outlook
    3. Imports System.Windows
    5. Public Class kontakte
    7. Private Sub kontakte_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    8. Dim text As String = ""
    9. For Each Litem As String In Start.ListBox2.Items
    10. text &= vbCrLf & Litem
    11. Next
    13. IO.File.WriteAllText(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Ordner\kontakte.txt", text)
    15. 'Form schliessen
    17. If System.IO.File.Exists(System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "Ordner\kontakte.txt")) Then
    18. Dim lines() As String = System.IO.File.ReadAllLines(My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\Ordner\kontakte.txt")
    20. End If
    23. Me.Close()
    24. End Sub
    26. Private Sub kontakte_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    27. Dim p() As Process = Process.GetProcessesByName("Outlook")
    28. If p.Length = 0 Then
    29. Dim ExterneAnwendung As New System.Diagnostics.Process()
    30. ExterneAnwendung.StartInfo.FileName = "outlook.exe"
    31. ExterneAnwendung.Start()
    32. End If
    34. Dim oApp As Outlook.Application = New Outlook.Application()
    35. Dim contact As Object
    36. ' Get NameSpace and Logon.
    37. Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
    38. oNS.Logon("Outlook", Missing.Value, False, True)
    39. Dim oContacts As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
    40. Dim oItems As Outlook.Items = oContacts.Items
    42. Dim oAppt As Outlook.ContactItem = oContacts.Items.GetNext
    43. Dim contactscounter = oContacts.Items.Count
    44. Dim i As Integer
    46. For Each Contact1 As Outlook.ContactItem In oItems
    47. Dim NewKontakteRow As DataRow = Kontakt.Tables("kontakte").NewRow()
    48. NewKontakteRow("gespeicher") = Contact1.FileAs
    49. NewKontakteRow("vorname") = Contact1.FirstName
    50. NewKontakteRow("nachname") = Contact1.LastName
    51. NewKontakteRow("business_phone") = Contact1.BusinessTelephoneNumber
    52. NewKontakteRow("mobile_phone") = Contact1.MobileTelephoneNumber
    53. NewKontakteRow("home_phone") = Contact1.HomeTelephoneNumber
    54. Kontakt.Kontakte.Rows.Add(NewKontakteRow)
    55. Start.ListBox2.Items.Add(Contact1.FileAs & ";" & Contact1.FirstName & ";" & Contact1.LastName & ";" & Contact1.LastName & ";" & Contact1.BusinessTelephoneNumber & ";" & Contact1.MobileTelephoneNumber & ";" & Contact1.HomeTelephoneNumber)
    57. Next
    59. ' Log off.
    60. oNS.Logoff()
    62. ' Clean up.
    63. oApp = Nothing
    64. oNS = Nothing
    65. oItems = Nothing
    66. oAppt = Nothing
    70. End Sub
    72. Private Sub KontakteDataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs)
    74. End Sub
    76. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    77. If RadioButton1.Checked = True Then
    78. Start.txt_nr.Text = Business_phoneTextBox.Text
    79. ElseIf RadioButton2.Checked = True Then
    80. Start.txt_nr.Text = Mobile_phoneTextBox.Text
    81. ElseIf RadioButton3.Checked = True Then
    82. Start.txt_nr.Text = Home_phoneTextBox.Text
    83. End If
    84. Close()
    85. End Sub
    87. Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    88. Me.KontakteBindingSource.Filter = String.Format("[gespeicher]" & " LIKE '{0}%'", "*" & Me.TextBox1.Text, "typ Like " & " 'Artikel'")
    89. End Sub
    91. Private Sub KontakteDataGridView_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles KontakteDataGridView.CellPainting
    92. With KontakteDataGridView
    93. .RowsDefaultCellStyle.BackColor = Color.White
    94. .RowsDefaultCellStyle.ForeColor = Color.Black
    95. .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
    96. .AlternatingRowsDefaultCellStyle.ForeColor = Color.Black
    97. End With
    98. End Sub
    99. End Class

    @schnibli Kannst Du vllt. ein kleines ansonsten leeres Testprojekt machen, das Deinen Effekt reproduziert, und dieses hochladen?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende