vb环境可视化编程

ljmst

甘肃政法学院

本科生实验报告

（一）

姓名:
学院:计算机科学学院
专业:计算机科学与技术
班级:计本班
实验课程名称:vb.net程序设计
实验日期: 2012年 9月 27日
指导教师及职称:
实验成绩:
开课时间：2012-2013学年第一学期

甘肃政法学院实验管理中心印制

实验题目	vb.net环境可视化编程基础			小组合作	否
姓名		班级	计本班	学    号
一、实验目的
1.掌握启动与退出Visual Basic 的方法。 2.熟悉Visual Basic8.0的集成环境以及基本操作。 3.掌握建立、编辑和运行一个简单的VB应用程序的基本步骤。
二．实验环境
装有Visual Studio 2008软件的计算机
三、实验内容与步骤
1、          实验准备 （1）复习VB窗体窗口、属性窗口、代码窗口、工具箱窗口的组成、打开和关闭的方法。 （2）复习窗体、标签、按钮、文本框四个控件的常用属性和方法。 2、         实验步骤如下： （1）建立用户界面需要的控件对象； （2）设置对象属性； （3）编写对象事件过程； （4）保存文件（窗体文件和工程文件及其它）； （5）调试运行程序。 3、实验内容 （1）启动vb.net，建立一个Windows应用程序,要求在屏幕上显示“欢迎学习VB.NET”，在文本框中输入你的姓名，在标签框中显示输入的姓名。 （2）编一程序，在文本框中统计在窗口上鼠标单击的次数。 （3）对窗体三个事件过程(load、click、dobuleclick)编程，三个事件中插入不同的图片，练习对鼠标指针cursor的改变，当装入窗体时，改变为key04.ico图标文件；当双击窗体时，鼠标恢复为默认状态(default)状态；练习对窗体图标icon、边框线类型foreborderstyle、最大化按钮和最小会按钮的改变。 （4）按钮、字号、内容、和格式的复制练习。
四、实验过程与分析
1、         启动vb.net，建立一个Windows应窗体。根据题目要求建立用户界面需要的控件对象。 2、具体实例 （1）启动vb.net，建立一个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 Sub End 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 Sub End 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 Sub End 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.Font End Sub End Class ④保存文件并调试运行此程序，运行结果如下图8所示;                   图8
五、实验总结
通过本次试验，掌握启动与退出Visual Basic 的方法，并熟悉了Visual Basic8.0的集成环境以及基本操作。掌握建立、编辑和运行一个简单的VB应用程序的基本步骤和对窗体、标签、按钮、文本框四个控件的常用属性和方法有了更好的了解，对以后的实验奠定了基础。

ljmst

没办法，附件用完了

微凉

真是太简单了吧

adslxyz

学校就是把简单的东西复杂化

ljmst

对不起各位，没附件了，没法发图了