回 帖 发 新 帖 刷新版面

主题:用表单来引导菜单

如何用表单制作的欢迎界面去引导菜单,同时关闭欢迎界面。

回复列表 (共14个回复)

沙发

没弄懂你的意思

板凳


就是在进入用菜单制作的页面前,首先进入的是由表单制作的欢迎页面,再由它调用菜单页面,并且在运行菜单后自动关闭表单。谢谢哪位高人肯指教!!!

3 楼

你可以把欢迎表单做成模式类别的,在主控程序中先调用欢迎表单,再其后调用菜单.打开程序时先出现欢迎表单,因为它是"模式"类型的,所以在关闭它之前,其它控件是不可用的.只有用户在欢迎表单上通过了合法性验证,才能进入到菜单操作界面.
所以在欢迎表单上的确定按钮的click事件的代码中完成两件事,第一是关闭表单,第二是用if语句,不能通过合法性验证时用"quit"退出程序,否则不用做什么.

4 楼

** 把下面的代码保存到一个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 楼


4楼的朋友您的命令  fontcharset=134  是什么意思?

6 楼

对不起,是笔误,但不影响程序运行,此句可省略。
应该是  fontcharset=1  (设置脚本字体)

7 楼


我是VFP的初学者,请3楼的朋友告知什么是表单的模式类别。谢谢!!

8 楼

我是初学者,四楼朋友的程序我搞了几天才明白,若里面的字号要是改一下表单会看的更清楚。好像用的是两个表单制作,但我希望用表单来引导菜单而不是用表单引导表单。不知能否实现,请大家帮忙谢谢!!

9 楼

没有表单你的菜单放哪儿呢?

10 楼

因为是初学者,我是用菜单做一个应用系统,表单只是做应用系统的欢迎界面,并通过表单的欢迎界面来引导出菜单制作的应用系统。这只是自己的想法,不知能否实现,若有更好的方法请各位老师帮忙。谢谢!!!

我来回复

您尚未登录,请登录后再回复。点此登录或注册