VB6.0中做欢迎界面

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

用VB6.0制作一个软件欢迎界面的源代码，用Timer控件来控制界面持续的时间。谢谢！

解析:

欢迎界面应该为启动窗体，那样才符合正规的软件制作！

具体的做法就是：

建立一个frmSplash

在里面写代码如下：

Private Sub Form_Load()

frmSplash.Show

form1.Show

Unload Me

End Sub

建议不要使用TIMER控件，用一个delay函数比较好！

'添加好控件，把代码复制到窗体模块可以了吧。

'label1，Label2，Text1

'Command1:确定,command2:重输

PrivateSubForm_Load()

Text1.PasswordChar=\"*\"

Text1.MaxLength=6

Command1.Enabled=False

Command2.Visible=False

Label2.Visible=False

EndSub

PrivateSubCommand1_Click()

IfText1.Text=\"123456\"Then

Label2.ForeColor=vbBlue

Label2.Caption=\"欢迎进入应用程序！\"

Else

Label2.ForeColor=vbRed

Label2.Caption=\"密码错误！\"

EndIf

Label2.Visible=True

EndSub

PrivateSubCommand2_Click()

Text1.Text=\"\"

Command1.Enabled=False

Command2.Visible=False

EndSub

PrivateSubText1_Change()

IfText1.Text<>\"\"Then

Command1.Enabled=True

Command2.Visible=True

Else

Label2.Visible=False

Command1.Enabled=False

Command2.Visible=False

EndIf

EndSub

Private Sub Command1_Click()

text1.text="你好，欢迎使用本软件！"

End Sub

Private Sub Command2_Click()

text1.text=""

end sub

这个是最简单的方法 文本矿 的属性名称自动默认为 text1也就是说 你以后需要在语句里面变动 调用 或者 命令他 让他作什么动作 这个text1 就是他的名字 可以更改 的

因为欢迎词是string型的 也就是说除了数字 以外所有的这些都要写个""

然后 按钮2按下的时候 text1的text （text是他的一个属性，需要更改时写一个名称然后.然后属性或者动作）text1的text为”“空的 什么都没有

这个方法是偷懒的 但是很简单易懂

---