（程序阅读）

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)写出该代码片段实现的功能。