（程序阅读）
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.Desktop
If Windows.Forms.DialogResult.OK = FolderBrowserDialog1.ShowDialog() Then
m_Path = FolderBrowserDialog1.SelectedPath
UpdateListBox(ListBox1)
End If
End Sub
(1)上述代码是一个按钮点击事件响应过程。FolderBrowserDialog1为浏览文件夹控件。请说明该过程实现的是一个什么功能？
(2)语句FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.Desktop是实现什么功能？
Dim strConn As String = "Server=xionghl; DataBase=SuperMarket; uid=sa;password=123456"
(3)上面代码是VB.NET连接数据库的连接串参数，请解释该串中各参数的含义。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ColorDialog1.AllowFullOpen = False ’ColorDialog1为颜色选择对话框
ColorDialog1.ShowDialog()
Button1.BackColor = ColorDialog1.Color
End Sub
(4)写出语句ColorDialog1.AllowFullOpen = False的作用 (5)写出该代码片段实现的功能。
