VB上机作业：身份验证窗口设计与实现.pdfVIP

运行时窗体的界面

制作步骤简述

步骤一创建窗体：

=表单

BackGroundImage=背景

FormBorderStyle无将窗体的标题栏清空

步骤二创建“”按钮控件。并编写“”控件的Click:end。

步骤三创建“请输令”：

文本=请输令

字体=隶书;粗体;一号

背景色=\Web\透明透明

步骤四创建用于输令的文本框TextBox1:

名称=PassWordtxttxt是文本框的常用缩写名字体

=宋体;粗体;三号TabIndex=0显示PassWordfrm窗体

时，光标停在文本框上PassWordChar“*”

步骤五创建口令提示按钮。

名称=“提示按钮”文本=空背景图

像=“忘记点击我”背景图像布局

拉伸

运行时窗体的界面

制作步骤简述

步骤一创建窗体:

Name=PassWordfrm

BackGroundImage=背景

FormBorderStyle=None将窗体的标题栏清空

步骤二创建“”按钮控件。并编写“”控件的Click：end。

步骤三创建“请输令”：

Text=请输令

Font=隶书；粗体；一号

BackColor=\Web\Transparent透明

步骤四创建用于输令的文本框TextBox1：

Name=PassWordtxttxt是文本框的常用缩写名

Font=宋体；粗体；三号

TabIndex=0显示PassWordfrm窗体时，光标停在文本框上

PassWordChar“*”

步骤五创建口令提示按钮。

Name=“提示按钮”

Text=空

BackGroundImage=“忘记点击我”

BackGroundImageLayou=Stretch

步骤六创建框

PictureBox1：可见=False

图像=表示满意的

步骤七创建框

PictureBox2:可见假图

像=红片

步骤八创建Label2控件，用于显示红灯闪烁：

Visible=False

Text空

步骤九创建定时器控件Timer1

步骤十编写代码，当窗体启动后，窗体是椭圆形窗体：

在代码窗口的最上面，添加：

导入System.Drawing.Drawing2D调用绘图命名空间

给窗体的Load添加代码

PrivateSubPassWordfrm_Load(...)处理MyBase.加载

gp为新GraphicsPath定义一个图形路径变量

gp.AddEllipse(NewRectangle(20,10,500,600))添加一个椭圆区域，500和600根据大小调整

r为新