Hab ich:
Ich habe nun sogar das MoveLast Auskommentiert, Selbiges Ergebnis. Siehe Screenshot, er belässt die TypID, zeigt aber was anderes an.
VB.NET-Quellcode
- Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
- ' Einstellungen laden und Anwenden
- Me.Opacity = My.Settings.FormOpacity / 100
- MetroTrackbar1.Value = My.Settings.FormOpacity
- lblVersion.Text = "V " & My.Application.Info.Version.ToString 'Version ausgeben
- MetroLabel5.Text = "NEUROWERK Anrufnotiz Version " & My.Application.Info.Version.ToString & vbNewLine _
- & "Build-Datum: " & BuildDate
- LoadChangelog()
- If My.Settings.TopMost = True Then
- Me.TopMost = True
- MetroSwitch1.Checked = True
- Else
- Me.TopMost = False
- MetroSwitch1.Checked = False
- End If
- If My.Settings.openOnInternCall = True Then
- MetroSwitch2.Checked = True
- Else
- MetroSwitch2.Checked = False
- End If
- If My.Settings.LightTheme = True Then
- Me.Style = Design.Style.Light
- styleSwitch.Checked = False
- Else
- Me.Style = Design.Style.Dark
- styleSwitch.Checked = True
- End If
- callTime = DateAndTime.Now
- 'Daten Einlesen
- With DataSet1
- If File.Exists(installDir & "\callLog.xml") Then
- Try
- .ReadXml(_dataPathCalls)
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End If
- If .TblVorwahl.Count < 1 Then
- CreateVorwahlen()
- End If
- If .tblTyp.Count < 1 Then
- CreateTypes()
- End If
- lblCountNotes.Text = .TblCallLog.Count & " Notizen in der Datenbank"
- lblCountVorwahlen.Text = .TblVorwahl.Count & " Vorwahlen in der Datenbank"
- End With
- Dim arg() = Environment.GetCommandLineArgs 'Argumente in einen Array schmeißen
- If arg.Count = 0 Then
- If My.Settings.openOnInternCall = False Then
- Me.Close()
- End If
- End If
- If UBound(arg) = 2 Then
- callID = arg(1)
- callName = arg(2)
- ElseIf UBound(arg) = 1 Then
- callID = arg(1)
- End If
- If callID.Contains("-") Then
- If callID = "-h" Then
- callID = ""
- Me.Text = Me.Text & " - READONLY"
- Else
- MsgBox("Ungültiger Parameter!", vbCritical)
- callID = ""
- Me.Close()
- End If
- End If
- If Not callID = "PlayFile" Then
- If Not callID = "" Then
- If Not callID.Length < 5 Then
- Dim Land As String = Microsoft.VisualBasic.Left(callID, 3)
- Dim Vorwahl As String = callID
- Vorwahl = Vorwahl.Remove(0, 3)
- Land = Land.Remove(0, 1)
- 'Und suchen, wenn länger als 1 Zeichen
- If Not Vorwahl.Length < 1 Then
- Vorwahl = Vorwahl.Remove(5, Vorwahl.Length - 5)
- callOrt = FindVorwahl(Land, Vorwahl)
- GenerateNew(callID, callOrt)
- Me.Text = Me.Text & " - " & callID
- End If
- ElseIf My.Settings.openOnInternCall = False Then
- Me.Close()
- Else
- GenerateNew(callID, "Intern")
- Me.Text = Me.Text & " - INTERN"
- End If
- End If
- End If
- 'TblCallLogBindingSource.MoveLast()
- End Sub
Ich habe nun sogar das MoveLast Auskommentiert, Selbiges Ergebnis. Siehe Screenshot, er belässt die TypID, zeigt aber was anderes an.