vb环境可视化编程.doc

甘肃政法学院本科生实验报告（一）姓名:学院:计算机科学学院专业:计算机科学与技术 班级:计本班实验课程名称:程序设计实验日期: 2012年 9月 27日指导教师及职称:实验成绩:开课时间：2012-2013学年第一学期甘肃政法学院实验管理中心印制实验题目环境可视化编程基础小组合作否姓名班级计本班学 号一、实验目的1.掌握启动与退出Visual Basic 的方法。2.熟悉Visual Basic8.0的集成环境以及基本操作。3.掌握建立、编辑和运行一个简单的VB应用程序的基本步骤。二实验环境装有Visual Studio 2008软件的计算机三、实验内容与步骤1、 实验准备（1） 复习VB窗体窗口、属性窗口、代码窗口、工具箱窗口的组成、打开和关闭的方法。（2） 复习窗体、标签、按钮、文本框四个控件的常用属性和方法。2、 实验步骤如下：（1） 建立用户界面需要的控件对象；（2） 设置对象属性；（3） 编写对象事件过程；（4） 保存文件（窗体文件和工程文件及其它）；（5） 调试运行程序。 3、实验内容（1）启动，建立一个Windows应用程序,要求在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签框中显示输入的姓名。（2）编一程序，在文本框中统计在窗口上鼠标单击的次数。（3）对窗体三个事件过程(load、click、dobuleclick)编程，三个事件中插入不同的图片，练习对鼠标指针cursor的改变，当装入窗体时，改变为key04.ico图标文件；当双击窗体时，鼠标恢复为默认状态(default)状态；练习对窗体图标icon、边框线类型foreborderstyle、最大化按钮和最小会按钮的改变。（4）按钮、字号、内容、和格式的复制练习。四、实验过程与分析1、 启动，建立一个Windows应窗体。根据题目要求建立用户界面需要的控件对象。2、具体实例（1）启动，建立一个Windows应用程序,要求在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签框中显示输入的姓名。界面如图1所示： 图1根据属性表设置所有的控件如下表所示：要求“欢迎学习VB.NET”要在两行显示。编写对象事件过程的所有代码如下：Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label3.Text = TextBox1.Text End SubEnd Class保存文件并调试运行此程序，运行结果如下图2所示; 图2（2）编一程序，在文本框中统计在窗口上鼠标单击的次数。界面如图3所示： 图3根据属性表设置所有的控件.编写对象事件过程的所有代码如下：Public Class 实验 1_3 Private Sub实验 1_3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click TextBox1.Text = Val(TextBox1.Text) + 1 Label1.Focus()End SubEnd Class保存文件并调试运行此程序，运行结果如下图4所示; 图4（3）对窗体三个事件过程(load、click、dobuleclick)编程，三个事件中插入不同的图片，练习对鼠标指针cursor的改变，当装入窗体时，改变为key04.ico图标文件；当双击窗体时，鼠标恢复为默认状态(default)状态；练习对窗体图标icon、边框线类型foreborderstyle、最大化按钮和最小会按钮的改变。界面如图5所示： 图5根据属性表设置所有的控件.编写对象事件过程的所有代码如下：Public Class 实验1_4 Private Sub 实验1_4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click Me.Icon = New Icon(c.ico) End Sub Private Sub 实验1_4_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick Me.BackgroundImage = Nothing End Sub Private Sub 实验1_4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = 装入窗体 Me.BackgroundImage = Image.FromFile(1.jpg) End SubEnd Class保存文件并调试运行此程序，运行结果如下图6所示; 图6（4）按钮、字号、内容、和格式的复制练习。界面如图7所示： 图7根据属性表设置所有的控件.编写对象事件过程的所有代码如下：Public Class 实验1_5 Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Font = New Font(隶书, 25) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Font = New Font(幼圆, 15) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox2.SelectedText = TextBox1.SelectedText TextBox2.Font = TextBox1.FontEnd SubEnd Class保存文件并调试运行此程序，运行结果如