Tag zusammen
Kann mir jemand sagen was ich an meinem Code noch ändern muss damit nicht bei jedem Tastenschlag alles untereinander neu gelistet wird?
Code:
Spoiler anzeigen
Kann mir jemand sagen was ich an meinem Code noch ändern muss damit nicht bei jedem Tastenschlag alles untereinander neu gelistet wird?
Code:
VB.NET-Quellcode
- Imports System.IO
- Imports System.Linq
- Imports System.Environment
- Public Class FormAutoComplete
- Public _isbestkeyword As String = ""
- Public _iskeyword As Boolean
- Public woerterbuchS As New List(Of String)
- Public appData As String = GetFolderPath(SpecialFolder.ApplicationData)
- Public path As String = appData & "\Dokumente"
- Public Sub myForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
- Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
- Me.ListBox1.Dock = DockStyle.Fill
- End Sub
- Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
- _isbestkeyword = Me.ListBox1.Items(Me.ListBox1.SelectedIndex)
- End Sub
- Protected Overrides ReadOnly Property ShowWithoutActivation() As Boolean
- Get
- Return True
- End Get
- End Property
- Public Sub RefreshList(ByVal key As String)
- 'Dim fileName As String
- Dim Files = New System.IO.DirectoryInfo(path + "\Indexierung").GetFiles("*.*", IO.SearchOption.TopDirectoryOnly)
- woerterbuchS.AddRange(Files.Select(Function(f) f.Name).ToArray())
- Dim LA() As String = woerterbuchS.ToArray
- Me.ListBox1.Items.Clear()
- find_key_arg = key & "*"
- Dim t() As String = Array.FindAll(LA, AddressOf find_key)
- If t.Count > 0 Then
- If key = "" Or t(t.Length - 1) = key Then
- _iskeyword = False
- Me.Hide()
- Else
- _iskeyword = True
- Me.ListBox1.Items.AddRange(t)
- Me.ListBox1.SelectedIndex = 0
- Me.Show()
- End If
- Else
- _iskeyword = False
- Me.Hide()
- End If
- End Sub
- Public ReadOnly Property IsKeyWord() As Boolean
- Get
- Return _iskeyword
- End Get
- End Property
- Public ReadOnly Property IsBestKeyWord() As String
- Get
- If _iskeyword = True Then
- Return _isbestkeyword
- Else
- Return ""
- End If
- End Get
- End Property
- Private find_key_arg As String
- Private Function find_key(ByVal s As String) As Boolean
- If s Like find_key_arg Then
- Return True
- Else
- Return False
- End If
- End Function
- End Sub
- End Class