Autovervollständigung RichTextBox

  • VB.NET
  • .NET (FX) 4.0

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von Orion.

    Autovervollständigung RichTextBox

    Tag zusammen
    Kann mir jemand sagen was ich an meinem Code noch ändern muss damit nicht bei jedem Tastenschlag alles untereinander neu gelistet wird?
    Spoiler anzeigen


    Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Linq
    3. Imports System.Environment
    5. Public Class FormAutoComplete
    7. Public _isbestkeyword As String = ""
    8. Public _iskeyword As Boolean
    9. Public woerterbuchS As New List(Of String)
    10. Public appData As String = GetFolderPath(SpecialFolder.ApplicationData)
    11. Public path As String = appData & "\Dokumente"
    13. Public Sub myForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    15. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    16. Me.ListBox1.Dock = DockStyle.Fill
    19. End Sub
    20. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    21. _isbestkeyword = Me.ListBox1.Items(Me.ListBox1.SelectedIndex)
    22. End Sub
    24. Protected Overrides ReadOnly Property ShowWithoutActivation() As Boolean
    25. Get
    26. Return True
    27. End Get
    28. End Property
    30. Public Sub RefreshList(ByVal key As String)
    31. 'Dim fileName As String
    32. Dim Files = New System.IO.DirectoryInfo(path + "\Indexierung").GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
    34. woerterbuchS.AddRange(Files.Select(Function(f) f.Name).ToArray())
    35. Dim LA() As String = woerterbuchS.ToArray
    36. Me.ListBox1.Items.Clear()
    37. find_key_arg = key & "*"
    38. Dim t() As String = Array.FindAll(LA, AddressOf find_key)
    39. If t.Count > 0 Then
    40. If key = "" Or t(t.Length - 1) = key Then
    41. _iskeyword = False
    42. Me.Hide()
    43. Else
    44. _iskeyword = True
    45. Me.ListBox1.Items.AddRange(t)
    46. Me.ListBox1.SelectedIndex = 0
    47. Me.Show()
    48. End If
    49. Else
    50. _iskeyword = False
    51. Me.Hide()
    52. End If
    53. End Sub
    55. Public ReadOnly Property IsKeyWord() As Boolean
    56. Get
    57. Return _iskeyword
    58. End Get
    59. End Property
    61. Public ReadOnly Property IsBestKeyWord() As String
    62. Get
    63. If _iskeyword = True Then
    64. Return _isbestkeyword
    65. Else
    66. Return ""
    67. End If
    68. End Get
    69. End Property
    70. Private find_key_arg As String
    71. Private Function find_key(ByVal s As String) As Boolean
    72. If s Like find_key_arg Then
    73. Return True
    74. Else
    75. Return False
    76. End If
    77. End Function
    79. End Sub
    80. End Class
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Ich hab es jetzt nicht komplett überprüft, aber es scheint als addest du immer die gesamte Liste, allerding machst du die Listbox vorher nicht leer, daher wird die Liste immer länger.
    Falsch ich dich völlig Falsch verstanden hab lese ich mir deinen Beitrag gleich noch mal richtig durch :)
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Ja genau so hab ich auch gedacht, klar ein clear wäre angebracht...
    EDIT: Nur eben weiss ich nicht wo ich da noch clearen soll?
    Wenn ich das ganze so anpasse ändert sich immer noch nichts:

    VB.NET-Quellcode

    1. Me.ListBox1.Items.Clear()
    2. Me.ListBox1.Items.AddRange(t)
    3. Me.ListBox1.SelectedIndex = 0

    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Orion“ ()

    Finde den Fehler echt nicht, kann mir niemand auf die Schnelle helfen?
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Den String hab ich auch schon versucht zu clearen mit einem einfach Files = Nothing nach dem(bin mir aber nicht sicher obs auch so sein soll)
    und weiss gar nicht recht wie ich das da einbauen soll, weil die Klasse immer wieder aufgerufen wird wenn in der Textbox ein Key gedrückt wird.
    EDIT: Bin doch doof, musste nur ne While Schlaufe machen
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Orion“ ()

    @Orion : In der RefreshList-Sub schreibst du woerterbuchS.AddRange(...) und diese Instanz einfach eineZeile darüber clearen.
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    Das hatte ich erst so, hatte nicht funktioniert. Habs jetzt so gelöst geht auch ganz gut:

    VB.NET-Quellcode

    1. Public i As Integer = 0
    2. Public Sub RefreshList(ByVal key As String)
    4. Dim Files = New System.IO.DirectoryInfo(path + "\Indexierung").GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
    6. While i <> 1
    7. woerterbuchS.AddRange(Files.Select(Function(f) f.Name).ToArray())
    8. i = i + 1
    9. End While
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    och das ist nicht das einzige was bei diesen paar Zeilen einem die Fußnägel aufrollen lässt :)
    aber egal... wenns funktioniert..

    (spätestens wenn mal eine Schleife ohne localem i gemacht wird, wird die Frage kommen "Es werden keine Daten eingelesen.... warum" ?)


    Edit .. äh.. genau andersherum...
    die Liste wird dann länger und länger

    Hu? ... Ist es so schlimm? Hatte zuerst was mit diesem clear gemurkst und da kam nix schlaues raus und weil ich das mit der while Schleife eben immer in Java so gehandhabt hab, hab ichs jetzt auch hier so gemacht weil ich wusste das es so geht und ich keine Zeit hatte darauf zu warten das mich wer aufklärt. Google hat mich nur noch mehr verwirrt.
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    sagt doch keiner :) Ist doch dein Programm.. wenn du damit zurecht kommst ist doch alles bestens.

    Geht nur z.B. um die Variable I die ja meist für Schleifen verwendet wird.
    wenn du irgendwo mal For i=0 to 20 machst.. wird i am ende der schleife den Wert 20 haben.
    Rufst du dann wieder deine Routine auf, wird die liste neu angehangen, da i <> 1 (also 20 <> 1 ) ist.

    und..
    Der Code in Zeile 4 wird außer beim 1. mal immer umsonst ausgeführt. Schadet zwar nichts, trägt aber nicht gerade zur Performance bei.
    packe doch diese Zeile einfach innerhalb deiner while -schleife.

    aber wie oben schon gesagt.. wenns funktioniert... prima...

    Noch ein Edit...
    Du musst wörterbuchs.clear UND auch deine Listbox vorm Addrange .claer machen (theoretisch)

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „RoulettePilot“ ()

    Naja das Programm wurde jetzt dem Kunden vorgestellt und der ist recht heikel bei den Programmen und scheinbar ist er davon überzeugt das es besser ist als das vorherige, dann ist ja alles oke. Danke euch für die Hilfe :)
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

Facebook
Telefonspende