Question

vb2010 Listbox中高亮显示部分文件夹和双击打开该文件夹

程序本意：在用户打开的目录下查找有没有匹配名字的文件夹，有则高亮显示，同时任何文件夹都可双击打开。Button2作为开始查找，listbox1作为显示文件夹列表，Textbox1作为用户用来输入需要匹配的字符，label作为有多少匹配的文件夹数目
我已完成大半了！
需要完成为：匹配的文件夹高亮显示&Listbox列表可以双击打开对应文件夹

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Found As Integer = 0 `found是作为有多少文件夹名字正好匹配
With FolderBrowserDialog1
.Description = "选择查找的路径"
.RootFolder = Environment.SpecialFolder.Desktop
.ShowNewFolderButton = True
End With
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
ListBox1.Items.Clear()
Dim strF As String`储存目录的文件夹名
For Each strF In My.Computer.FileSystem.GetDirectories(FolderBrowserDialog1.SelectedPath)
ListBox1.Items.Add(strF)

If InStr(strF, TextBox1.Text, CompareMethod.Text) Then
Found = Found + 1`匹配的话数目+1
End If

Next
Label1.Text = "Found" & vbCr & Found & vbCr & "object"
End If

End Sub

Answer 1

1. 设计合适的运行界面并编写相应的事件代码。要求窗体大小合适、布局整齐美观。
2. 在窗体中包含4个文本框及对应的说明性标签和3个命令按钮。并将窗体设置为不可改变大小（Borderstyle属性）。