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

2017/11/30(Thu) 18:34:21 編集(投稿者)

Visual Studio 2017のVB開発を使っています。

https://msdn.microsoft.com/ja-jp/library/system.windows.forms.combobox.selectedindex(v=vs.110).aspx
ここにある

Private Sub findButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim index As Integer
    index = comboBox1.FindString(textBox2.Text)
    comboBox1.SelectedIndex = index
com
End Sub

文字を検索する時、「あ」を検索後、コモンボックスに
あの文字を見つけて表示されるには如何したらできますか？

コンボボックスに
あという文字は、「あり」、「アイス」、「アメリカンドック」
などひらがなとカタカナも含めてコンボボックスに表示されたいんですが
教えてください。お願いします。

■No85923 (あ さん) に返信
> ■No85921 (魔界の仮面弁士 さん) に返信
>>■No85919 (あ さん) に返信
補足として申し上げます。

新しいform2からlist.add("")に書いてform１にコンボボックス表示させたいと思いついたのですが。

form１の
Imports System.Globalization
Public Class Form2
　　Private list As New List(Of String)()
    Private Sub raion_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()

        With Form1.ComboBox1
            list.Add("あり")
            list.Add("アメリカンドック")
'form１に表示させる
 Form1.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
            Form1.ComboBox1.DataSource = list
end with

この場合は出来ます。
しかし、文字を検索すると消えてしまいました。

'form2
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 = Form1.TextBox2.Text
        Form1.ComboBox1.DataSource = list.Where(
Function(s)
    Return 0 = ci.Compare(Strings.Left(s, txt.Length), txt, opt)
End Function).ToArray()

    End Sub
'form1で検索する
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.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 = a00.TextBox1.Text
        ComboBox1.DataSource = list.Where(
Function(s)
    Return 0 = ci.Compare(Strings.Left(s, txt.Length), txt, opt)
End Function).ToArray()
    End Sub

試したんですがform1で検索すると消えてしまいました。

何卒宜しくお願い致します。

■No85969 (furu さん) に返信
> ■No85965 (あ さん) に返信
>>2017/12/05(Tue) 23:27:50 編集(投稿者)
 
> TextBox1.TextChangedはForm1.TextBox2.Textで検索
> TextBox2.TextChangedはa00.TextBox1.Textで検索

'form1からform2に別form2でButton1をクリックするとform1にコンボボックスが表示される

Imports System.Globalization
Public Class Form1
    Private list As New List(Of String)()
    Dim a00 As New form2
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    End Sub

    Private Sub form2_Click(sender As Object, e As EventArgs) Handles form2.Click
'form2が開く
        a00.ShowDialog()
    End Sub
’form1で文字を検索可能にしたいんです。
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.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 = TextBox2.Text
        ComboBox1.DataSource = list.Where(
Function(s)
    Return 0 = ci.Compare(Strings.Left(s, txt.Length), txt, opt)
End Function).ToArray()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim index As Integer
        index = ComboBox1.FindString(TextBox2.Text)
        ComboBox1.SelectedIndex = index

    End Sub
End　Class
form1はここまで。

From2のコード

Imports System.Globalization
Public Class From2
    Private list As New List(Of String)()

    Private Sub form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
　list.Add("あ")
　　　　list.Add("アイス")
　　　　list.Add("アメリカンドック")
　　　　list.Add("イカ")
　　　　list.Add("いす")
　　　　list.Add("いえ")

　　　　'form1に表示
　　　　ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
　　　　ComboBox1.DataSource = list
　　End Sub

end class

form2からButton1をクリックするとコンボボックスに表示されますが
文字を検索するとコンボボックスに表示から消えてしまいます。

どうしたらできますか？教えてくださいお願い申し上げます。