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

■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をクリックするとコンボボックスに表示されますが
文字を検索するとコンボボックスに表示から消えてしまいます。

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

■No100786 (KOZ) に返信

完成したコードが無いのも残念なので、投下しておきます。
GetIconInfo で取得した ICONINFO 構造体（Class として宣言）を Cursor.Tag プロパティに保持しておき、不要になったら削除します。

Imports System.Runtime.InteropServices

Public Class Form1

    Private Cursor_Image As Cursor

    Private Sub PictureBox1_MouseMove(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseMove
        DestroyCursor(Cursor_Image)
        Using bmp As New Bitmap(16, 16)
            Using g As Graphics = Graphics.FromImage(bmp)
                g.DrawLine(Pens.Red, 0, 0, 0, 5)
                g.DrawLine(Pens.Red, 0, 0, 5, 0)
                g.DrawLine(Pens.Red, 0, 0, 15, 15)
            End Using
            Cursor_Image = CreateCursor(bmp, 0, 0)
            PictureBox1.Cursor = Cursor_Image
        End Using
    End Sub

    Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
        MyBase.OnFormClosed(e)
        DestroyCursor(Cursor_Image)
    End Sub

    Private Shared Function CreateCursor(bmp As Bitmap, x As Integer, y As Integer) As Cursor
        Dim hIcon As IntPtr = bmp.GetHicon()
        Dim info As New ICONINFO()
        GetIconInfo(hIcon, info)
        DestroyIcon(hIcon)
        info.xHotspot = x
        info.yHotspot = y
        info.fIcon = 0
        Dim hCursor As IntPtr = CreateIconIndirect(info)
        Dim cursor = New Cursor(hCursor) With {.Tag = info}
        Return cursor
    End Function

    Private Shared Sub DestroyCursor(ByRef cursor As Cursor)
        If cursor IsNot Nothing Then
            DestroyIcon(cursor.Handle)
            Dim info As ICONINFO = TryCast(cursor.Tag, ICONINFO)
            If info IsNot Nothing Then
                DeleteObject(info.hbmColor)
                DeleteObject(info.hbmMask)
            End If
            cursor.Dispose()
            cursor = Nothing
        End If
    End Sub

    <StructLayout(LayoutKind.Sequential)>
    Private Class ICONINFO
        Public fIcon As Integer
        Public xHotspot As Integer
        Public yHotspot As Integer
        Public hbmMask As IntPtr
        Public hbmColor As IntPtr
    End Class

    <DllImport("user32.dll")>
    Private Shared Function GetIconInfo(hIcon As IntPtr, iconinfo As ICONINFO) As Boolean
    End Function

    <DllImport("user32.dll")>
    Private Shared Function CreateIconIndirect(iconInfo As ICONINFO) As IntPtr
    End Function

    <DllImport("user32.dll")>
    Private Shared Function DestroyIcon(hIcon As IntPtr) As Boolean
    End Function

    <DllImport("gdi32.dll")>
    Private Shared Function DeleteObject(hObject As IntPtr) As Boolean
    End Function

End Class