一.创建含有如下控件的窗体
字体类型大小同上
图1
二.程序清单:
(1)窗体Form1的init事件:
#DEFINE CRLF CHR(13)+CHR(10) #DEFINE TAB CHR(9) #DEFINE bartype -4099 SET SAFETY OFF dime xsss(8),xss(8) sele 10 use xscx for ii=1 to 8 go ii xsss(ii) 量 xss(ii)=品名 endf SET SAFETY ON use c:\hgd\forms\pics cGData = ""+TAB+""+CRLF+; allt(xss(1))+TAB+str(xsss(1),10,2)+CRLF+; allt(xss(2))+TAB+str(xsss(2),10,2)+CRLF+; allt(xss(3))+TAB+str(xsss(3),10,2)+CRLF+; allt(xss(4))+TAB+str(xsss(4),10,2)+CRLF+; allt(xss(5))+TAB+str(xsss(6),10,2)+CRLF+; allt(xss(6))+TAB+str(xsss(7),10,2)+CRLF+; allt(xss(7))+TAB+str(xsss(8),10,2)+CRLF+; allt(xss(8))+TAB+str(xsss(8),10,2)+CRLF THIS.LockScreen = .T. append general gen1 class "msgraph.chart" DATA m.cGData THIS.OleBoundControl1.ControlSource = "Gen1" THIS.OleBoundControl1.HasLegend = .F. THIS.OleBoundControl1.autoformat(bartype,1) THIS.LockScreen = .F.
#DEFINE CRLF CHR(13)+CHR(10) #DEFINE TAB CHR(9) #DEFINE bartype -4099
SET SAFETY OFF dime xsss(8),xss(8) sele 10 use xscx for ii=1 to 8 go ii xsss(ii) 量 xss(ii)=品名 endf
SET SAFETY ON use c:\hgd\forms\pics cGData = ""+TAB+""+CRLF+; allt(xss(1))+TAB+str(xsss(1),10,2)+CRLF+; allt(xss(2))+TAB+str(xsss(2),10,2)+CRLF+; allt(xss(3))+TAB+str(xsss(3),10,2)+CRLF+; allt(xss(4))+TAB+str(xsss(4),10,2)+CRLF+; allt(xss(5))+TAB+str(xsss(6),10,2)+CRLF+; allt(xss(6))+TAB+str(xsss(7),10,2)+CRLF+; allt(xss(7))+TAB+str(xsss(8),10,2)+CRLF+; allt(xss(8))+TAB+str(xsss(8),10,2)+CRLF THIS.LockScreen = .T. append general gen1 class "msgraph.chart" DATA m.cGData THIS.OleBoundControl1.ControlSource = "Gen1" THIS.OleBoundControl1.HasLegend = .F. THIS.OleBoundControl1.autoformat(bartype,1) THIS.LockScreen = .F.
(2)按钮组Optiongroup1的click事件:
#DEFINE bartype -4099 #DEFINE coltype -4100 *#DEFINE pietype -4102 DO CASE CASE THIS.Value = 1 THISFORM.OleBoundControl1.autoformat(bartype,1) CASE THIS.Value = 2 THISFORM.OleBoundControl1.autoformat(coltype,1) ENDCASE
(3)检查框Check1的click事件:
#DEFINE C_GRAPHTITLE_LOC "菜肴销售情况表" THISFORM.OleBoundControl1.HasTitle = !THISFORM.OleBoundControl1.HasTitle IF THISFORM.OleBoundControl1.HasTitle = .T. THISFORM.OleBoundControl1.ChartTitle.Caption = C_GRAPHTITLE_LOC ENDIF
(4)检查框Check2的click事件:
THISFORM.OleBoundControl1.HasLegend = !THISFORM.OleBoundControl1.HasLegend
(5)”退出”命令按钮Command1的click事件:
Thisform.release
以上程序在中文WINDOWS98，VISUAL FOXPRO 6.0软件环境下运行通过。
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
