《实验一NET环境和可视化编程基础》由会员分享，可在线阅读，更多相关《实验一NET环境和可视化编程基础（9页珍藏版）》请在金锄头文库上搜索。
1、实验题目VB.NET环境和可视化 编程基础小组合作姓名班级学 号一、实验目的1、了解 VB.NE 算机软件硬件的要求2、掌握启动退出 的方法3、掌握建立、编辑和运行一个简单的 应运程序的全过程4、掌握常用控件文本框、标签、命令按钮、图片框的使用二实验环境硬件：一台装有 windows 系统的计算机软件： Microsoft Visual Studio 2012三实验内容与步骤5、启动 VB.NET，创建一个“Windows 应用程序”类型的应用程序，要求：在屏幕上显示“欢迎学习 VB.NET” ，在文本框中输入你的姓名，在标签中显示输入的姓名。屏幕设计的界面如图所示:1.1 源代码：Pub
2、lic Class Form1Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickLabel2.Text = TextBox1.TextEnd SubPrivate Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChangedEnd SubEnd Class编一程序，在文本框中统计在该窗口上鼠标的单击的次数，如下图：1.2源代码：Public Class Form2Priv
3、ate Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Me.ClickTextBox1.Text = Val(TextBox1.Text) + 1End SubPrivate Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.LoadMe.TextBox1.Text = 0End SubEnd Class1.4、按照例 2.2 对窗体三个事件过程（Load、Click、DoubleClick）编程，三个事件中装入不同的图片；联系对
4、鼠标 Cursor 的改变，当装入窗体时，改变为 key04.ico 图标文件；当双击窗体时，鼠标恢复默认状态；联系对窗体图标 Icon、边框线类型 FromBorderStyle、最大按钮和最小按钮的改变 。 Public Class _1Private Sub _1_Click(sender As Object, e As EventArgs) Handles Me.ClickMe.Text = “单击窗体“Me.Size = New Size(264 + 10, 256 + 30)Me.BackgroundImage = Image.FromFile(“image/2.jpg“)End
5、SubPrivate Sub _1_CursorChanged(sender As Object, e As EventArgs) Handles Me.CursorChangedMe.Cursor = New Cursor(“key04.ico“)Me.Cursor = Cursors.DefaultMe.Icon = New Icon(“mise34.ico“)End SubPrivate Sub _1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClickMe.Text = “双击窗体“Me.Maximiz
6、eBox = FalseMe.MinimizeBox = FalseMe.BackgroundImage = NothingEnd SubPrivate Sub _1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadMe.Text = “装入窗体“Me.BackgroundImage = Image.FromFile(“image/1.jpg“)End SubPrivate Sub _1_Resize(sender As Object, e As EventArgs) Handles Me.ResizeMe.Size = Ne
7、w Size(246 + 10, 256 + 30)Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3DEnd SubEnd Class5、按钮、字号、内容和格式的复制练习，效果如下图：输入文本 隶书 25 磅幼圆 15 磅 复制1.5 源代码：Public Class Form3Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.ClickEnd SubPrivate Sub Button1_Click(sender As Objec
8、t, e As EventArgs) Handles Button1.ClickTextBox2.Font = TextBox1.FontTextBox2.Text = TextBox1.SelectedTextEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickTextBox1.Font = New Font(“隶书“, 25)End SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handl
9、es Button3.ClickTextBox1.Font = New Font(“幼圆“, 15)End SubEnd Class四实验过程与分析1 实验中需要注意的是在实验 1.4 的图片、图标文件一般使用相对路径，文件应存放在该项目的 BinDebug 文件夹下。2. Win8 系统下.net 实验中出现的问题在项目中创建窗体，任意拉入一个控件（这里用 button）之后 “启动”程序发生错误，即是系统出现问题。错误类型如下图所示。修改注册表。方法如下：（1）打开 cmd-输入 regedit 按回车键（2）之后注册表会被自动打开，寻找 HKEY-LOCAL-MACHINE-SYSTEM
10、-CurrentControlSet-Control-Lsa-FipsAlgorithmPolicy 双击打开。（3）看右侧属性值 Enable，右击 Enable-修改-将值“1”改为“0” ，之后关闭注册表即可。再次打开 VS2012 以上问题就不复存在了。现在可以好好运行程序了。五、实验总结这是第一堂.net 上机课，一开始不了解工程的建立，认为一个工程中只能有一个文件，所以一节课建个多个工程，不知道工程存到哪里去了，在运行时候没有修改启动窗体名称导致一直运行第一个窗体等等。不过语法大致与 C 语言同，不过还是有很多差别。我知道了上机课需要多加练习才能熟悉 net 这门课程，不能直接抄袭书上的代码，不能把上机课当做打字课程。
