VB环境和可视化编程基础实验报告

精品文档 1欢迎下载 实验题目VB NET 环境和可视化编程基 础 小组合作否 姓名班级学 号 一 实验目的 1 了解 VB NET 系统对计算机软 硬件的要求 2 掌握启动与退出 VB NET 的方法 3 掌握建立 编辑和运行一个简单的 VB NET 应用程序的全过程 4 掌握常用控件文本框 标签 命令按钮 图片框的使用 二 实验环境 VB NET 和相关硬件 三 实验内容与步骤 1 创建一个 windows 应用程序 类型的应用程序 要求在屏幕 上显示 欢迎学习 VB NET 在文本框中输入你的姓名 在标 签中显示输入的姓名 2 编一个程序 在文本框中统计该窗口上鼠标单击的次数 3 对窗体三个事件过程 Load Click DoubleClick 编程 三 个事件中装入不同的图片 按钮 字号 内容和格式的复制练习 四 实验过程与分析 一 一 Public Class 一 1 Private Sub Button1 Click ByVal sender As System Object ByVal e As System EventArgs Handles Button1 Click 精品文档 2欢迎下载 TextBox2 Text TextBox1 Text If TextBox1 Text Then MsgBox 请输入姓名 0 TextBox1 Focus End If End Sub Private Sub 一 1 Load ByVal sender As System Object ByVal e As System EventArgs Handles MyBase Load End Sub End Class 二 二 Public Class 一 3 Sub 一 3 Click ByVal sender As System Object ByVal e As System EventArgs Handles MyBase Click TextBox1 Text Val TextBox1 Text 1 End Sub End Class 精品文档 3欢迎下载 三 三 Public Class 一 4 Private Sub 一 4 Load ByVal sender As System Object ByVal e As System EventArgs Handles MyBase Load Me Text 装入窗体 Me BackgroundImage Image FromFile 一 4a jpg Me BackgroundImageLayout ImageLayout Stretch End Sub Sub 一 4 Click ByVal sender As System Object ByVal e As System EventArgs Handles MyBase Click Me Text 单击窗体 Me BackgroundImage Image FromFile 一 4b jpg Me BackgroundImageLayout ImageLayout Stretch Me MaximizeBox True Me MinimizeBox True End Sub Sub 一 4 doubleclick ByVal sender As System Object ByVal e As System EventArgs Handles MyBase DoubleClick Me Text 双击窗体 Me MaximizeBox False Me MinimizeBox False Me BackgroundImage Nothing Me FormBorderStyle Windows Forms FormBorderStyle Fixed3D Me Cursor Cursors Default End Sub End Class 精品文档 4欢迎下载 四 四 Public Class 一 5 Private Sub Button2 Click ByVal sender As System Object ByVal e As System EventArgs Handles Button2 Click TextBox1 Font New Font 隶书 25 End Sub Private Sub Button3 Click ByVal sender As System Object ByVal e As System EventArgs Handles Button3 Click TextBox1 Font New Font 幼圆 15 End Sub Private Sub Button1 Click ByVal sender As System Object ByVal e As System EventArgs Handles Button1 Click If TextBox1 Text Then MsgBox 请输入文本 Else If TextBox1 SelectedText Then MsgBox 请选择要复制的文字 Else TextBox2 Text TextBox1 SelectedText 精品文档 5欢迎下载 TextBox2 Font TextBox1 Font End If End If End Sub End Class 五 实验总结 通过本次的