Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Public Class Form1
    Dim b As Boolean
    Dim t As String

    Private Sub YashBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt.TextChanged, txt.KeyPress
        If b Then
            b = False
        Else
            tt.Hide(txt)
            t = ""
            For Each s In lst.Items

                Try

                    If s.Substring(0, txt.Text.Length) = txt.Text Then
                        If (t.Length > 0) Then
                            t += "\n"
                        End If
                        t += s
                    End If
                Catch ex As Exception

                End Try
            Next
            tt.Show(t, txt)

        End If
    End Sub

    Private Sub YashBox_TextChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt.KeyPress
        tt.Hide(txt)
        If e.KeyChar = "\r" Then
            b = True
            For Each s In lst.Items
                Try
                    If s.Substring(0, txt.Text.Length) = txt.Text Then
                        txt.Text = s
                    End If
                Catch ex As Exception

                End Try
            Next
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class