vb第4讲常用控件.pptVIP

（4）预览窗口。单击【提交】按钮后，系统在预览窗口显示学生信息，如图4.44所示，预览窗口界面由一个图片框、一个文本显示区和一个【返回】按钮组成。 在预览窗口加载（Load）事件过程中，图片框通过path全局变量定位并载入学生照片，高级文本控件rtbxStudentInfo则通过info变量获取要呈现的文字内容： Private Sub Browser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load PictureBox1.Image = Image.FromFile(path) rtbxStudentInfo.Text = info End Sub 预览效果如图4.45所示。 用户可单击【返回】按钮回到表单界面，事件代码如下： Private Sub myReturnBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles myReturnBtn.Click UpdateForm.Show() Me.Close() End Sub * （3）运行程序。程序运行后如果单击【开始移动】按钮，则图片将慢慢地向右移动。单击【暂停移动】按钮，图片将停止移动，如图4.27所示。 4.6.1 打开文件对话框 打开文件对话框（OpenFileDialog）控件提供一个标准的打开文件对话框。其中可以指定驱动器、文件夹、文件类型和文件名。OpenFileDialog控件的常用属性见表4.15。 OpenFileDialog控件常用的方法是ShowDialog方法，常用的事件是FileOK事件，其他方法和事件见表4.16。 【例4.13】 OpenFileDialog控件示例。 （1）界面设计。如图4.28所示，在窗体上放置1个文本框，设置其Multiline属性为True；放置1个按钮，设置其Text属性为“打开”；放置1个打开文件对话框。程序运行后，单击【打开】按钮，自动打开对话框，选择文本文件后，将该文本文件的内容读取到文本框中。 （2）筛选器设置。OpenFileDialog控件的Filter属性的设定方法如下： 筛选器说明|筛选器模式 对于每个筛选项，筛选器字符串都包含筛选器说明，后接一垂直线条（|）和筛选器模式。不同筛选项的字符串由垂直线条隔开。下面是筛选器字符串的一个示例： OpenFileDialog1.Fileter=文本文件(*.txt)|*.txt|所有文件(*.*)|*.* （3）编写代码。程序代码。 （4）运行程序。程序运行后，单击【打开】按钮，将打开如图4.29所示的对话框。 选择桌面上的test.txt文件后，单击【打开】按钮，则test.txt文件的内容被读出，并显示在文本框中，如图4.30所示。 保存文件对话框（SaveFileDialog）控件与OpenFileDialog控件类似，它用于保存文件。 表4.17是SaveFileDialog控件的常用属性。 【例4.14】 SaveFileDialog控件示例。 在例4.13的基础上增加1个SaveFileDialog控件和按钮，设置按钮的Text属性为“保存”，将例4.13中打开的文件修改后再保存。 程序代码。 程序运行后的界面如图4.31所示。 打开文件后修改文本框中的内容，然后单击【保存】按钮，弹出【另存为】对话框，如图4.32所示。 颜色对话框（ColorDialog）控件用于显示颜色对话框，以便用户为窗体的其他对象设置颜色，ColorDialog控件允许用户选择48种颜色，如图4.33所示。 ColorDialog控件常用属性见表4.18。 【例4.15】 颜色对话框示例。 在例4.14的基础上再增加1个ColorDialog控件和1个按钮，设置按钮的Text属性为“颜色”，见图4.34。编程实现当单击【颜色】按钮时，能改变文本框的背景色。 程序代码如下： Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If ColorDialog1.ShowDialog() = DialogResult.OK Then 调用颜色对话框 TextBox1.BackColor = ColorDialog1.Color 改变文本框的背景颜色