-1

私はVb.netに問題があります、私は過去2日間からGoogleを実行しましたが、私の質問の関連する答えが得られませんでした、qtnは、ユーザーがテキストボックスにテキストを入力したときに、テキストを入力したときと同じようにポップアップを表示する方法に関連していますグーグルの単語そしてグーグルはすべての関連フィールドを表示します..スナップショットを添付している人は私を助けてください..バックエンドとしてvb.netを使用し、フロントエンドとしてMS-Accessを使用しています

4

1 に答える 1

0

やあみんな私は答えを得ましたステップバイステップ（vb.net）最初にこれをグローバルとして宣言します

Dim lst As New List(Of String)
Dim rdrOLEDB As OleDbDataReader
Dim MySource As New AutoCompleteStringCollection()

フォームのロード時またはurロジックに従って2番目ですが、一度にのみ来るようにすることは、このコードを3番目のステップ（つまりキーダウン）に含めないことを意味します

 If ComboBox1.SelectedItem <> "" Then
        ComboBox4.Enabled = True
        cmdOLEDB.CommandText = "SELECT studentname FROM StudentDetail WHERE std = '" & ComboBox1.SelectedItem & "' "
        cmdOLEDB.Connection = cnnOLEDB
        rdrOLEDB = cmdOLEDB.ExecuteReader
        If rdrOLEDB.Read = True Then
            lst.Add(rdrOLEDB.Item(0).ToString)
            While rdrOLEDB.Read
                lst.Add(rdrOLEDB.Item(0).ToString)
            End While
        End If
        rdrOLEDB.Close()
        MySource.AddRange(lst.ToArray)
        TextBox2.AutoCompleteCustomSource = MySource

        'Auto complete mode set to suggest append so that it will sugesst one
        'or more suggested completion strings it has bith ‘Suggest’ and
        '‘Append’ functionality
        TextBox2.AutoCompleteMode = AutoCompleteMode.SuggestAppend

        'Set to Custom source we have filled already
        TextBox2.AutoCompleteSource = AutoCompleteSource.CustomSource


    Else
        MsgBox("please select std.")
    End If

テキストボックスのキーダウンである3番目のステップIfe.KeyCode= Keys.EnterThen'入力時にリストを追加する予定でしたIfNotlst.Contains（TextBox2.Text）Then'アイテムがまだ存在しない場合'ソースに直接追加TextBox2.AutoCompleteCustomSource.Add（TextBox2.Text）End If ElseIf e.KeyCode = Keys.Delete Then'キーを削除すると、エントリを削除する予定です

        ' declare a dummy source
        Dim coll As AutoCompleteStringCollection = TextBox2.AutoCompleteCustomSource

        ' remove item from new source
        coll.Remove(TextBox2.Text)

        ' Bind the updates
        TextBox2.AutoCompleteCustomSource = coll

        ' Clear textbox
        TextBox2.Clear()

    End If                   ' End of ‘KeyCode’ condition

その助けがいっぱいなら、他の人々の検索のためにポイントをクリックすることを忘れないでください（私の悪い英語のために私を許してください）

于 2013-03-28T14:23:27.713 に答える