主题：[讨论]关于程序界面布局设计
o三毛o
[专家分：0] 发布于 2006-07-21 10:46:00
各位看看怎么办
[img]http://moyuan.70bb.com/attachments/3/moyuan/forumid_39878/cd_wtt8Fpd9J5dI.gif[/img]
回复列表 （共13个回复）
沙发
vfp123456 [专家分：1020] 发布于 2006-07-21 11:49:00
利用表单集，表单一设置为总在最前面
板凳
dcyy [专家分：180] 发布于 2006-07-21 12:12:00
但最大化会有问题吧 最大化表单二的时候 表单二的部分会被表单一遮盖?
3 楼
lingyg [专家分：40] 发布于 2006-07-21 12:51:00
将表单1和表单2设置成"固定边框",取消最大化按钮...
4 楼
o三毛o [专家分：0] 发布于 2006-07-21 17:19:00
这样也有问题吧 比如改变程序框大小 4楼的就晕了
5 楼
Vii [专家分：1130] 发布于 2006-07-21 18:27:00
DEFINE WINDOW frm_child FROM 0,20 TO 200,200
ACTIVATE WINDOW frm_child IN WINDOW (thisform.name)
thisform.oWindow = CreateObject('form')
thisform.oWindow.height = 100
thisform.oWindow.width = 200
thisform.oWindow.top = 10
thisform.oWindow.left = 10
thisform.oWindow.NAME = 'child'
thisform.oWindow.caption = "Child Window "
ACTIVATE WINDOW (thisform.oWindow.NAME) IN WINDOW ('frm_child')
加个自定义属性 oWindow
以上代码放在随便一个COMMAND里试下....
好象就是他们说的FORMINFORM....
6 楼
o三毛o [专家分：0] 发布于 2006-07-22 01:38:00
感觉上面的好象真可以 但不太能明白 希望仁兄能更加详细点的讲下 谢谢
7 楼
Vii [专家分：1130] 发布于 2006-07-23 13:37:00
什么不明白?????????
8 楼
lbscyb [专家分：4780] 发布于 2006-07-24 13:36:00
把表单1改成工具栏2就成了!
9 楼
xuezaiwu [专家分：10] 发布于 2006-07-26 16:52:00
不太明白,可以说的清楚点吗?[em8]
10 楼
Vii [专家分：1130] 发布于 2006-07-27 09:36:00
以下尽我所能讲解下，初学请看，高手移步~~~~~~
1：设计一个主窗体，显示模式为 顶层
2：设计左窗体（name属性为：frmleft），设计右窗体（name属性为：frmright），其他属性随意。
3：在主窗体的Activate过程加入以下代码
IF TYPE("thisform.oToolbar")="O" AND !ISNULL(thisform.oToolbar)
RETURN
ENDIF
SET CLASSLIB TO ToolBar additive
this.AddProperty("otoolbar","")
thisform.otoolbar =createObject("mytoolbar")
thisform.otoolbar.show()
RELEASE CLASSLIB toolbar
*以上这段为加入TOOLBAR，如无须此功能可删除，设计TOOLBAR类请参考其他有关资料。
DEFINE WINDOW frmlchild FROM 0,0 TO 38,30 //定义左窗体（frmlchild），此窗体非设计时的frmleft窗体，而是frmleft窗体要激活的父窗体，下同。
ACTIVATE WINDOW frmlchild IN WINDOW (thisform.name)//在主窗体激活该左窗体
DEFINE WINDOW frmrchild FROM 0,30 TO 38,105
ACTIVATE WINDOW frmrchild IN WINDOW (thisform.name)
DO FORM 'D:\hgfeng\Temp\frmleft.scx' noshow //运行设计好的左窗体，路径请自行设定。（我的为VFP9.0，如无NOSHOW请删除）
ACTIVATE WINDOW ('frmleft') IN WINDOW ('frmlchild')//在左窗体（frmlchild）激活左窗体（frmleft，设计的左窗体），下同
DO FORM 'D:\hgfeng\Temp\frmright.scx' noshow
ACTIVATE WINDOW ('frmright') IN WINDOW ('frmrchild')
如有疑问,请联系QQ:69160346
[img]http://images.blogcn.com/2006/7/27/5/hgfhgf1984,2006072793411.jpg[/img]
我来回复
您所在位置：