实验的一NET环境和可视化编程基础

1.1源代码：

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Label2.Text = TextBox1.Text

End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

End Sub

End Class

编一程序，在文本框中统计在该窗口上鼠标的单击的次数，如下图：

1.2源代码：

Public Class Form2

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Me.Click TextBox1.Text = Val(TextBox1.Text) + 1

End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.TextBox1.Text = 0

End Sub

End Class

1.4、按照例

2.2对窗体三个事件过程（Load、Click、DoubleClick）编程，三个事件中装入不同的图片；联系对鼠标Cursor的改变，当装入窗体时，改变为key04.ico图标文件；当双击窗体时，鼠标恢复

默认状态；联系对窗体图标Icon、边框线类型FromBorderStyle、最大按钮和最小按钮的改变。

Public Class _1

Private Sub _1_Click(sender As Object, e As EventArgs) Handles Me.Click

Me.Text = "单击窗体"

Me.Size = New Size(264 + 10, 256 + 30)

Me.BackgroundImage = Image.FromFile("image/2.jpg")

End Sub

Private Sub _1_CursorChanged(sender As Object, e As EventArgs) Handles

Me.CursorChanged

Me.Cursor = New Cursor("key04.ico")

Me.Cursor = Cursors.Default

Me.Icon = New Icon("mise34.ico")

输入文本隶书25磅

幼圆15磅复制

修改注册表。方法如下：

（1）打开cmd---输入regedit 按回车键

（2）之后注册表会被自动打开，寻找HKEY-LOCAL-MACHINE-----→SYSTEM----→CurrentControlSe t----→Control----→Lsa----→FipsAlgorithmPolicy双击打开。

（3）看右侧属性值Enable，右击Enable-----→修改-----→将值“1”

实用标准文案

改为“0”，之后关闭注册表即可。

再次打开VS2012以上问题就不复存在了。现在可以好好运行程序了。

五、实验总结

这是第一堂.net上机课，一开始不了解工程的建立，认为一个工程中只能有一个文件，所以一节课建个多个工程，不知道工程存到哪里去了，在运行时候没有修改启动窗体名称导致一直运行第一个窗体等等。不过语法大致与C语言同，不过还是有很多差别。我知道了上机课需要多加练习才能熟悉net这门课程，不能直接抄袭书上的代码，不能把上机课当做打字课程。

精彩文档