C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


■85923 / )  Re[4]: comboboxのselectindexについて
□投稿者/ あ (4回)-(2017/12/02(Sat) 19:23:57)
No85921 (魔界の仮面弁士 さん) に返信
> ■No85919 (あ さん) に返信

> Imports System.Globalization
> Public Class Form1
>   Private list As New List(Of String)()
>
>   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
>     '元データをコレクション変数に保持しておく
>     list.Clear()
>     list.Add("あ")
>     list.Add("アイス")
>     list.Add("アメリカンドック")
>     list.Add("イカ")
>     list.Add("いす")
>     list.Add("いえ")
>
>     'それを ComboBox に表示
>     ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
>     ComboBox1.DataSource = list
>   End Sub
>
>   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
>     'テキストを書き換えるたびに、
>     'リストの内容を先頭一致でフィルタリング
>     Dim ci = New CultureInfo("ja-jp").CompareInfo
>     Dim opt As CompareOptions
>     opt = opt Or CompareOptions.IgnoreWidth   '全角と半角を区別しない
>     opt = opt Or CompareOptions.IgnoreKanaType 'ひらがなとカタカナを区別しない
>     opt = opt Or CompareOptions.IgnoreCase   '大文字と小文字を区別しない
>
>     Dim txt As String = TextBox1.Text
>     ComboBox1.DataSource = list.Where(
>       Function(s)
>         Return 0 = ci.Compare(Strings.Left(s, txt.Length), txt, opt)
>       End Function).ToArray()
>   End Sub
> End Class
>

本当にありがとうございました
無事出来ました。感謝い出します。

解決済み
返信 編集キー/


管理者用

- Child Tree -