主题:用表单来引导菜单
lqhgxl
[专家分:0] 发布于 2010-04-28 20:46:00
如何用表单制作的欢迎界面去引导菜单,同时关闭欢迎界面。
回复列表 (共14个回复)
沙发
sywzs [专家分:5650] 发布于 2010-04-29 10:53:00
没弄懂你的意思
板凳
lqhgxl [专家分:0] 发布于 2010-05-02 22:02:00
就是在进入用菜单制作的页面前,首先进入的是由表单制作的欢迎页面,再由它调用菜单页面,并且在运行菜单后自动关闭表单。谢谢哪位高人肯指教!!!
3 楼
dbfox [专家分:490] 发布于 2010-05-03 08:29:00
你可以把欢迎表单做成模式类别的,在主控程序中先调用欢迎表单,再其后调用菜单.打开程序时先出现欢迎表单,因为它是"模式"类型的,所以在关闭它之前,其它控件是不可用的.只有用户在欢迎表单上通过了合法性验证,才能进入到菜单操作界面.
所以在欢迎表单上的确定按钮的click事件的代码中完成两件事,第一是关闭表单,第二是用if语句,不能通过合法性验证时用"quit"退出程序,否则不用做什么.
4 楼
sywzs [专家分:5650] 发布于 2010-05-03 11:27:00
** 把下面的代码保存到一个PRG文件中,运行一下看看是否是你要的效果。
** 在欢迎界面点一下或者等待5秒钟后,即进入主程序界面
_Screen.Visible=.f.
FORM1 = CREATEOBJECT('form1')
FORM2 = CREATEOBJECT('form2')
FORM1.SHOW
READ EVENTS
_Screen.Visible=.t.
RETURN
DEFINE CLASS Form1 AS Form
Autocenter=.T.
Desktop=.T.
WIDTH = 400
TOP = 0
LEFT = 0
HEIGHT =250
SHOWWINDOW = 2
TitleBar=0
ADD OBJECT Lb1 AS Label WITH CAPTION = '欢迎进入VFP系统' , TOP =60 , LEFT = 0,width=400,height=80,;
Forecolor=RGB(255,128,0),Fontcharset=134,Fontname="华文中宋",;
Fontsize=36,Alignment=2,enabled=.T.
ADD OBJECT Timer1 AS Timer WITH Interval=5000
PROCEDURE Click
Thisform.Release
ENDPROC
PROCEDURE Lb1.Click
Thisform.Release
ENDPROC
PROCEDURE destroy
FORM2.show
ENDPROC
PROCEDURE Timer1.timer
Thisform.Release
ENDPROC
ENDDEFINE
DEFINE CLASS Form2 AS Form
CAPTION = '主程序界面'
Autocenter=.T.
Desktop=.T.
WIDTH = 600
TOP = 0
LEFT = 0
HEIGHT =400
SHOWWINDOW = 2
ADD OBJECT Cmd1 AS Commandbutton WITH top=20,left=350,height=25,;
width=60,caption="退 出"
PROCEDURE Cmd1.Click
Thisform.Release
ENDPROC
PROCEDURE Destroy
CANCEL
ENDPROC
ENDDEFINE
5 楼
lqhgxl [专家分:0] 发布于 2010-05-08 15:17:00
4楼的朋友您的命令 fontcharset=134 是什么意思?
6 楼
sywzs [专家分:5650] 发布于 2010-05-09 05:38:00
对不起,是笔误,但不影响程序运行,此句可省略。
应该是 fontcharset=1 (设置脚本字体)
7 楼
lqhgxl [专家分:0] 发布于 2010-05-12 22:11:00
我是VFP的初学者,请3楼的朋友告知什么是表单的模式类别。谢谢!!
8 楼
lqhgxl [专家分:0] 发布于 2010-05-15 15:46:00
我是初学者,四楼朋友的程序我搞了几天才明白,若里面的字号要是改一下表单会看的更清楚。好像用的是两个表单制作,但我希望用表单来引导菜单而不是用表单引导表单。不知能否实现,请大家帮忙谢谢!!
9 楼
wzxc [专家分:9440] 发布于 2010-05-15 18:17:00
没有表单你的菜单放哪儿呢?
10 楼
lqhgxl [专家分:0] 发布于 2010-05-16 14:48:00
因为是初学者,我是用菜单做一个应用系统,表单只是做应用系统的欢迎界面,并通过表单的欢迎界面来引导出菜单制作的应用系统。这只是自己的想法,不知能否实现,若有更好的方法请各位老师帮忙。谢谢!!!
我来回复