主题:用表单来引导菜单
			 lqhgxl
				 [专家分:0]  发布于 2010-04-28 20:46:00
 lqhgxl
				 [专家分:0]  发布于 2010-04-28 20:46:00							
			如何用表单制作的欢迎界面去引导菜单,同时关闭欢迎界面。
						
					 
		
			
回复列表 (共14个回复)
		
								
				沙发
				
					 sywzs [专家分:5650]  发布于 2010-04-29 10:53:00
sywzs [专家分:5650]  发布于 2010-04-29 10:53:00				
				没弄懂你的意思
							 
						
				板凳
				
					 lqhgxl [专家分:0]  发布于 2010-05-02 22:02:00
lqhgxl [专家分:0]  发布于 2010-05-02 22:02:00				
				
就是在进入用菜单制作的页面前,首先进入的是由表单制作的欢迎页面,再由它调用菜单页面,并且在运行菜单后自动关闭表单。谢谢哪位高人肯指教!!!
							 
						
				3 楼
				
					 dbfox [专家分:490]  发布于 2010-05-03 08:29:00
dbfox [专家分:490]  发布于 2010-05-03 08:29:00				
				你可以把欢迎表单做成模式类别的,在主控程序中先调用欢迎表单,再其后调用菜单.打开程序时先出现欢迎表单,因为它是"模式"类型的,所以在关闭它之前,其它控件是不可用的.只有用户在欢迎表单上通过了合法性验证,才能进入到菜单操作界面.
所以在欢迎表单上的确定按钮的click事件的代码中完成两件事,第一是关闭表单,第二是用if语句,不能通过合法性验证时用"quit"退出程序,否则不用做什么.
							 
						
				4 楼
				
					 sywzs [专家分:5650]  发布于 2010-05-03 11:27:00
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
lqhgxl [专家分:0]  发布于 2010-05-08 15:17:00				
				
4楼的朋友您的命令  fontcharset=134  是什么意思?
							 
						
				6 楼
				
					 sywzs [专家分:5650]  发布于 2010-05-09 05:38:00
sywzs [专家分:5650]  发布于 2010-05-09 05:38:00				
				对不起,是笔误,但不影响程序运行,此句可省略。
应该是  fontcharset=1  (设置脚本字体)
							 
						
				7 楼
				
					 lqhgxl [专家分:0]  发布于 2010-05-12 22:11:00
lqhgxl [专家分:0]  发布于 2010-05-12 22:11:00				
				
我是VFP的初学者,请3楼的朋友告知什么是表单的模式类别。谢谢!!
							 
						
				8 楼
				
					 lqhgxl [专家分:0]  发布于 2010-05-15 15:46:00
lqhgxl [专家分:0]  发布于 2010-05-15 15:46:00				
				我是初学者,四楼朋友的程序我搞了几天才明白,若里面的字号要是改一下表单会看的更清楚。好像用的是两个表单制作,但我希望用表单来引导菜单而不是用表单引导表单。不知能否实现,请大家帮忙谢谢!!
							 
						
				9 楼
				
					 wzxc [专家分:9440]  发布于 2010-05-15 18:17:00
wzxc [专家分:9440]  发布于 2010-05-15 18:17:00				
				没有表单你的菜单放哪儿呢?
							 
						
				10 楼
				
					 lqhgxl [专家分:0]  发布于 2010-05-16 14:48:00
lqhgxl [专家分:0]  发布于 2010-05-16 14:48:00				
				因为是初学者,我是用菜单做一个应用系统,表单只是做应用系统的欢迎界面,并通过表单的欢迎界面来引导出菜单制作的应用系统。这只是自己的想法,不知能否实现,若有更好的方法请各位老师帮忙。谢谢!!!
							 
									
			
我来回复