質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Windows 10

Windows 10は、マイクロソフト社がリリースしたOSです。Modern UIを標準画面にした8.1から、10では再びデスクトップ主体に戻され、UIも変更されています。PCやスマホ、タブレットなど様々なデバイスに幅広く対応していることが特徴です。

VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

Q&A

解決済

1回答

15484閲覧

VB.netで入力内容に応じて候補の絞り込みをしてくれるコンボボックスの作り方

unio

総合スコア12

Windows 10

Windows 10は、マイクロソフト社がリリースしたOSです。Modern UIを標準画面にした8.1から、10では再びデスクトップ主体に戻され、UIも変更されています。PCやスマホ、タブレットなど様々なデバイスに幅広く対応していることが特徴です。

VB

VB(ビジュアルベーシック)はマイクロソフトによってつくられたオブジェクト指向プログラミング言語のひとつで、同社のQuickBASICが拡張されたものです。VB6の進化版といわれています。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

0グッド

0クリップ

投稿2020/05/28 10:17

前提・実現したいこと

現在、WindowFormsVB.NETにて開発しています。
入力されたテキストに合わせてドロップダウンリストが部分一致で絞り込まれていくコンボボックスを作成しているのですが、上手く動作せず、お力添えを願いたいです。
(コンボボックスへのテキスト入力にあわせてリアルタイム的に候補が絞り込まれていく、という動作)

発生している問題・エラーメッセージ

コンボボックスのKeyDownイベントの中でDataSource(DataTable)Selectで部分一致の絞り込みをする処理を行っているのですが…

  1. 絞り込みが行われるたびにドロップダウンリストの先頭のデータが自動で選択される
  2. データが選択されるとコンボボックスのテキストフォームにその内容が反映される

という動きになってしまい、絞り込みがうまくいきません。

絞り込み時にリスト先頭への自動選択を行わず、あるいはコンボボックスの入力欄への反映を行わずにドロップダウンリストの候補の絞り込みだけを行っていく方法などないでしょうか?

そもそもですが、私の考え方が間違っているかもしれないので、入力内容に応じて候補のリストを絞り込んでいくコンボボックスの作り方で良い方法があればそちらも教えていただきたいです。

よろしくお願いします。

該当のソースコード

コンボボックスのKeyDownイベントで部分一致の絞り込みを実行しています。

Me.ComboBox1.DroppedDown = True Me.ComboBox1.DataSource = dt.Select(" [NAME] LIKE '%" + ComboBox1.Text + "%'").CopyToDataTable

試したこと

下記のサイトを参考にしたりしましたが、やはり絞り込み(DataSourceの更新)を行うとリストの先頭が自動で選択されてしまいます。
https://www.oborodukiyo.info/Forms/VS2015/F-FilterDataSourceOfComboBox

補足情報(FW/ツールのバージョンなど)

開発環境 Windows 10
ツール VisualStudio2019

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

DataSourceにDataTableではなくDataViewを指定して

VBNET

1 Private Sub ComboBox1_TextUpdate(sender As Object, e As EventArgs) Handles ComboBox1.TextUpdate 2 Dim prevText As String = ComboBox1.Text 3 Dim prevIndex As Integer = ComboBox1.SelectionStart 4 5 If String.IsNullOrWhiteSpace(ComboBox1.Text) Then 6 dv.RowFilter = "" 7 Else 8 dv.RowFilter = $"NAME LIKE '*{prevText}*'" 9 End If 10 11 ComboBox1.DroppedDown = True 12 13 ComboBox1.Text = prevText 14 ComboBox1.SelectionStart = prevIndex 15 End Sub 16

このような形でTextUpdateイベントで処理してみてはどうでしょうか?

投稿2020/05/29 00:56

YAmaGNZ

総合スコア10222

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

unio

2020/06/08 04:16

試したところ、かなり理想に近づきました! ありがとうございます!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問