实验四VBNET程序设计基础和常用控件

实验四 程序设计基础和常用控件一、实验目的本实验主要了解面向对象程序设计语言基本语言元素包括集成开发环境、语言基础、基本控制结构、过程、常用控件和界面设计。

通过本实验，读者将学会一些主要的面向对象的设计方法并可以利用完成简单的应用程序开发。

二、实验环境Microsofe Visual Studio .NET 2008三、实验内容1．设计一个Visual 的应用程序，窗体上有一个多行文本框和3个命令按钮，程序界面如图1所示。

要求应用程序运行时，当单击窗体上【显示文本信息】按钮，文本框中显示红色文字“我喜欢，因为它简单易学，使用方便。

”当单击窗体上【改变背景色】按钮，文本框的背景色变为黄色。

当单击窗体上【结束】按钮，程序结束。

保存该应用程序。

【实验步骤】：1）创建工程：打开Visual Studio 后，点击左上角的新建项目，选中“模板”，展开选择Visual Basic，再选中Windows桌面，再在左边的类型中选择“Windows窗体应用程序”，在下方为此项目命名为“Win dowsApplication4.1”2）先打开“工具箱”：展开左上角的“视图”，点击工具箱。

3)修改Form1的名称：右键选中From1,点击“属性”，在新弹出的属性菜单栏中，找到“Text”这个属性，将右边的“From1”改为“第一个实验”即可。

4）设置一个普通文本框：在工具栏中，选中公共空间中的TextBox，然后拖入右边的设计窗口中，然后鼠标移到TextBox后，鼠标左键按住不放可以移动此控件。

5）调整文本框的大小：鼠标移动到文本框的左右边缘，鼠标箭头会变成一个左右的箭头，移动即可设置其宽度，而移动到文本框的上下边缘，此时还不能设置高度，因为它的属性是单行文本框，右键点击此文本框，选中“属性”，然后在新弹出的“属性窗口”中，找到“Mu tiline”属性，默认值为False，我们将其改为：True,即可实现多行功能，此时再将鼠标移至上下边缘，即可实现设置其高度的功能。

6）设置三个button及其大小位置：首先在工具箱公共空间中选择button选项拖入到文本框中，然后鼠标移至此控件的上下左右边缘可调整其大小，将此button的做边缘与文本框对其，长度设置合理后，复制此button再粘贴，将第二个button的右边缘与文本框的右边缘对其，再粘贴出第三个button，将其放在这两个button的中间下方位置，调整其大小使得他的大小略小于前两个。

选中前两个button,利用上方工具栏中的对齐工具对齐。

7）设置三个button文本框的名称：先右键点击button1,选中“属性”，然后在弹出的属性窗口中，找到“Text”属性，默认值为“Button1”，将其改为“显示文本信息”即可，再右键打开Button2的属性，找到“Text”属性，将默认值”Button2”修改为“改变背景色”，再打开Button3的属性，找到“Text”属性，将默认值”Button3”修改为“结束”。

8）设置Button1的语句代码，使得点击此控件时可以显示文本信息。

左键双击Button1，进入到VB编写代码的窗口：在中间输入如下语句：= "我喜欢，因为它简单易学，使用方便。

"olor =设置Button2的语句代码，使得点击此控件时可以将文本框的背景颜色改为黄色。

左键双击Button2，进入到VB编写代码的窗口：输入如下代码：olor=w再设置Button3的语句代码，使得点击此控件时可以退出。

左键双击Button3，进入到VB 编写代码的窗口：输入如下代码：END9)运行此窗体：点击上方的“生成“，选中“生成解决方案”，再点击“运行”键：点击“显示文本信息”：点击“改变背景色”：点击“结束”后，会自动退出调试：10）实验一出错截图及错误分析：问题描述：在点击“显示文本信息”时，文本没有反应。

出错原因：显示的代码位置设置错误，将代码设置到textbox1上去了修改方法：剪贴掉textbox1上的错误代码，加在button1上。

修改效果：点击button1可以正常显示文本信息2．试编一程序，将华氏温度转换为摄氏温度。

程序运行时，单击窗体上【开始】按钮，提示输入华氏温度（用InputBox函数），然后将华氏温度转化为摄氏温度，并在窗体上显示华氏温度和摄氏温度。

转换公式为：C=5/9*(F-32)，其中，F是华氏温度，C是摄氏温度。

程序界面如图2所示。

【实验步骤】：1）创建工程：打开Visual Studio 后，点击左上角的新建项目，选中“模板”，展开选择Visual Basic，再选中Windows桌面，再在左边的类型中选择“Windows窗体应用程序”，在下方为此项目命名为“WindowsApplication4.2”2）先打开“工具箱”：展开左上角的“视图”，点击工具箱。

3)修改Form1的名称：右键选中From1,点击“属性”，在新弹出的属性菜单栏中，找到“Text”这个属性，将右边的“From1”改为“第二个实验”即可。

4）设置一个button及其大小位置：首先在工具箱公共空间中选择button选项拖入到文本框中，然后鼠标移至此控件的上下左右边缘可调整其大小，将其拖到From的正中偏下方的位置。

右键选择button的属性，修改其默认值为“Button”的文本属性为“开始”5）设置Button1的VB语句，使得其实现功能：提示输入华氏温度。

鼠标左键双击“开始”键，进入VB编写代码的窗口：在此处输入如下代码：Dim F As StringF = InputBox("请输入华氏摄氏度:")6）设置4个Label控件：在工具栏中的公共控件中，找到“Label”控件，将其拖到合适的位置，一共拖曳四个。

通过上方的对齐工具将他们对齐。

7）为四个Lable设置名称：先右键点击Lable1，选中“属性”，找到“Text”属性，默认值为“Lable1”，将其修改为“华氏温度”，同理将“Lable3”修改为“摄氏温度”。

再将“Label2”和“Label3”的文本属性值设置为空：最后得到的结果图：8）为Lable2和Lable4设置VB语言，使得实现相应的功能：显示输入的华氏温度并且输出相应的摄氏度。

双击“开始”键，进入它的VB语言，添加上如下语句：Dim F As String '定义华氏温度Dim C As Double '定义摄氏温度F = InputBox("请输入华氏摄氏度:") '输入华氏温度FIf IsNumeric(F) Then '如果输入的是数字C = 5 / 9 * (F - 32) '计算摄氏度= F '将F的值赋给Label2并显示= C '将C的值赋给Lable4并显示Else '若输入的不是数字，警告MsgBox("请重新输入数字！")End If9）点击操作栏上的启动：会出现如下界面，再点击开始，输入合适的值若输入的不是数字，而是字母或者不合法的字符，则会出现提示信息：10）出错截图及原因分析：错误原因：在执行界面点击“取消”会报错出错原因：在什么也不输入的时候，inputbox会默认输入为空，此时再经行字符串转化为double类型的值会出错。

修改方法：将inputbox的赋给一个string的变量，在进行计算的之前，应该先判断输入的字符是否为数字，是数字再进行运算，若不是则直接退出。

3．设计一程序，窗体界面如图3所示。

要求在程序运行时，根据选择可以改变文本框内文本的字体、字形等。

1）创建工程：打开Visual Studio 后，点击左上角的新建项目，选中“模板”，展开选择Visual Basic，再选中Windows桌面，再在左边的类型中选择“Windows窗体应用程序”，在下方为此项目命名为“WindowsApplication4.3”2)修改Form1的名称：右键选中From1,点击“属性”，在新弹出的属性菜单栏中，找到“Text”这个属性，将右边的“From1”改为“第三个实验”即可。

3）打开“工具箱”：展开左上角的“视图”，点击工具箱。

4）设置一个普通文本框：在工具栏中，选中公共空间中的TextBox，然后拖入右边的设计窗口中，然后鼠标移到TextBox后，鼠标左键按住不放可以移动此控件。

5）调整文本框的大小：鼠标移动到文本框的左右边缘，鼠标箭头会变成一个左右的箭头，移动即可设置其宽度，右键点击此文本框，选中“属性”，将“Mu tiline”属性，默认值为False，我们将其改为：True,此时再将鼠标移至上下边缘，即可实现设置其高度的功能。

6）添加两个GroupBox：在工具箱的容器分类下，找到“G roupBox”,，拖曳两个放在from1中，调整大小与位置使得其在合适的位置。

7）修改两个group的文本属性：右键点击groupbox1,点到属性，再在出现的属性窗口中，找到“text”属性，将默认值为“Groupbox1”修改为“颜色设置”同理将另外一个的文本属性设置为“字形设计”8）为“颜色设置”添加三个RadioButton：在工具栏中，拖曳三个RadioButton到“颜色设计”窗体中，注意调整相对位置，可以使用上方的对齐工具9）修改三个RadioButton的文本属性：右键点击RadioButton1，找到文本属性，修改为“红色”，同理将其余两个修改为“绿色”和“蓝色”10）为“字形设置”添加三个CheckBox: 在工具栏中，拖曳三个CheckBox到“字形设计”窗体中，注意调整相对位置，可以使用上方的对齐工具11)修改三个CheckBox的文本属性：右键点击CheckBox，找到文本属性，修改为“下划线”，同理将其余两个修改为“粗体”和“斜体”12）添加一个“bu tton”：从公共控件中拖入一个Button到窗口中，放在from1的内部正下方的位置，调整为合适的大小，然后右键点到“属性”，将其其文本属性修改为“退出”。

13）为各个控件添加VB代码：在“颜色设置”窗口中，为了实现将字体的颜色进行修改，鼠标左键双击“红色”进入代码编辑界面，在出现的界面中输入合适的代码，再对剩余的控件挨个添加代码。

分别在三个按钮中输入以下语句If (ed = True) Then '若选中红色按钮'olor =End If（以上代码输入“红色“中）If (ed = True) Then '若选中绿色按钮'olor =End If(这三行代码输入到“绿色“中)If (ed = True) Then '若选中蓝色按钮'olor =End If（这三行代码输入到“蓝色“中）在“字体设计”窗口中，为了实现将字体的颜色进行修改，鼠标左键双击“下划线”进入代码编辑界面，在出现的界面中输入合适的代码，再对剩余的控件挨个添加代码。