| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3513 人关注过本帖
标题:shape控件问题?
只看楼主 加入收藏
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册
2015-12-11 12:45
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

我就要Optiongroup1的效果,用他把其它的command,chenck等等框起来。。
用shape是可以,但移动shape,框起来的东西不会一起移动,还有就是,我第1个问题,以前不知道,现在知道了,可以前置/后置,要是用T版的方法,用prg生成的话,就不知道怎么在shape上放这些,才不会给挡住
2015-12-11 12:51
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:10 
程序代码:
CLEAR ALL 
Main()
CLEAR ALL 
RETURN 

PROCEDURE Main()
    LOCAL loForm
    loForm = CREATEOBJECT("C_Form")
    WITH loForm
        .Caption = "Test Container"
        .Show
    ENDWITH 
    READ EVENTS
ENDPROC 

DEFINE CLASS C_Form AS Form
    Width = 600
    Height = 400
    Picture = "20151111_112634_660.JPG"
    MinButton = .F.
    MaxButton = .F.
    BorderStyle = 1
    
    ADD OBJECT CheckGroup1 AS CheckGroup WITH Top = 5, Left = 5

    PROCEDURE Destroy
        CLEAR EVENTS 
    ENDPROC 
    
ENDDEFINE 

DEFINE CLASS CheckGroup AS Container
    BackStyle = 0

    ADD OBJECT Check1 AS CheckBox WITH Caption = "Check 1"
    ADD OBJECT Check2 AS CheckBox WITH Caption = "Check 2"
    ADD OBJECT Check3 AS CheckBox WITH Caption = "Check 3"
    ADD OBJECT Check4 AS CheckBox WITH Caption = "Check 4"
    
    PROCEDURE Init
        WITH This
            .SetAll("BackStyle", 0)
            .Arrange
        ENDWITH 
    ENDPROC 
    
    PROCEDURE Arrange
        LOCAL loControl, lnCount
        lnCount = 0
        FOR EACH loControl AS CheckBox IN This.Controls FOXOBJECT 
            lnCount = lnCount + 1
            WITH loControl
                .Height = 20
                .Width = 200
                .Top = 5 + (lnCount - 1) * (.Height + 5)
                .Left = 5
                .Parent.Height = .Top + .Height + 5
                .Parent.Width = .Left + .Width + 5
            ENDWITH 
        ENDFOR 
    ENDPROC 
    
ENDDEFINE 


图片附件: 游客没有浏览图片的权限,请 登录注册

授人以渔,不授人以鱼。
2015-12-11 16:42
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:191
帖 子:3147
专家分:8408
注 册:2015-3-25
收藏
得分:0 
谢谢。T版,
Container的边框,能设置成为12楼那样,3D的感觉出来不?
2015-12-11 17:23
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
回复 14楼 mywisdom88
你那个在运行时也不是3D的呀。在设计界面上看是那样而已,在运行时也一样是平的。

[此贴子已经被作者于2015-12-11 17:40编辑过]


授人以渔,不授人以鱼。
2015-12-11 17:39
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
11楼的容器凸起不好看吗?

授人以渔,不授人以鱼。
2015-12-11 17:44
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43182
注 册:2014-5-20
收藏
得分:5 
自绘好了,shape + Container,设置一下边线色和透明。
2015-12-11 21:06
快速回复:shape控件问题?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.051908 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved