| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 525 人关注过本帖
标题:[分享]VFP_三维饼图示例
只看楼主 收藏
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:375
专家分:510
注 册:2012-2-29
结帖率:80%
  问题点数:0  回复次数:6   
[分享]VFP_三维饼图示例


* test.prg

PUBLIC oform1

oform1=Newobject("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form
    BorderStyle = 2
    Top = 50
    Left = 70
    Height = 500
    Width = 800
    DoCreate = .T.
    ShowTips = .T.
    Caption = "VFP_三维饼图示例"
    MaxButton = .F.
    Name = "form1"

    ADD OBJECT Container1 AS container WITH ;
        Top = 10,;
        Left = 16,;
        Width = 767,;
        Height = 321,;
        BackStyle = 0,;
        SpecialEffect = 1,;
        TabIndex = 24,;
        Name = "Container1"
    ADD OBJECT Oleboundcontrol1 AS oleboundcontrol WITH ;
        Top = 1,;
        Left = 3,;
        Height = 347,;
        Width = 790,;
        TabIndex = 25,;
        Stretch = 1,;
        Name = "Oleboundcontrol1"
    ADD OBJECT Command1 AS commandbutton WITH ;
        Top = 467,;
        Left = 571,;
        Height = 25,;
        Width = 63,;
        Caption = "退出",;
        TabIndex = 21,;
        Name = "Command1"

    PROCEDURE Init
        #DEFINE CRLF CHR(13)+CHR(10)
        #DEFINE TAB  CHR(9)

        cCount1 = "cCount1"+TAB+"1600"+TAB+"2840"+TAB+"1890"+TAB;
                            +"3040"+TAB+"3062"+TAB+"2233"+TAB+"2600"+TAB;
                            + "2610"+TAB+"2711"+TAB+"2509"+TAB+"2408"+TAB+"2409"+CRLF
        cList = ""+TAB+"A"+TAB+"B"+TAB+"C"+TAB+"D"+TAB+"E"+TAB;
                       +"F"+TAB+"G"+TAB+"H"+TAB+"I"+TAB+"J"+TAB+"K"+TAB+"L"+CRLF
        lcData = cList + cCount1
        CREATE CURSOR _ls (cVFPm G)
        APPEND BLANK
        APPEND GENERAL cVFPm CLASS "MSgraph.chart" DATA m.lcData
        THISFORM.Oleboundcontrol1.CONTROLSOURCE = "cVFPm"
        THISFORM.OleBoundControl1.autoformat(-4102,5)
        THISFORM.Oleboundcontrol1.ChartArea.Font.Size = 13
    ENDPROC

    PROCEDURE Destroy
        USE IN _ls
    ENDPROC

    PROCEDURE Command1.Click
        THISFORM.Release
    ENDPROC

ENDDEFINE
===================================================================
  研究别人的成果,不够成熟,仅供参考。

[此贴子已经被作者于2017-12-20 10:13编辑过]

附件: 您没有浏览附件的权限,请 登录注册
2017-12-16 09:13
wengjl
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:50
帖 子:1236
专家分:2376
注 册:2007-4-27
  得分:0 
谢谢!
留足,慢慢学习研究!

只求每天有一丁点儿的进步就可以了
2017-12-17 13:48
厨师王德榜
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:63
帖 子:411
专家分:1415
注 册:2013-2-16
  得分:0 
留个脚印,有点意思,不过我们在实际工作中,VFP只负责处理数组,至于数据以何种方式呈现?我们现在有魔方系统,Tableau 这些基于Web的工具,已经很少直接用VFP本身的图形处理了。
2017-12-19 13:43
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:375
专家分:510
注 册:2012-2-29
  得分:0 
@wengjl、厨师王德榜:谢谢鼓励!纯个人业余爱好,偶有空闲时间,就向前辈、大侠们多学习一些基本的方法、技巧,共享出来,相互交流。
2017-12-20 10:10
gaojx0925
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2018-1-3
  得分:0 
留着慢慢学习!
2018-01-03 10:15
星光悠蓝
Rank: 7Rank: 7Rank: 7
来 自:山水甲天下
等 级:贵宾
威 望:22
帖 子:267
专家分:631
注 册:2010-1-11
  得分:0 
我原来的图表在Office 2007上显示不正常,新版Office不知道怎样改比较好。
2018-01-03 10:24
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:11
帖 子:375
专家分:510
注 册:2012-2-29
  得分:0 
回复 6楼 星光悠蓝
我暂时也不知道如何修改哦,待研究之后有结果再交流哈。
2018-01-05 16:48







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

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