用VFP6.0显示MSGRAPHIC图表

用VFP6.0编写应用程序时，大家都希望用图表的方式实时反映销售情况、产值和产量情况。作者利用activeX控件ms graphic97的图表功能实现了图表的实时显示。显示效果如图1所示。
1。用下列控件创建一个窗体

控件名称控件属性
标签1标题:图表类型字体:Microsoft Yahe Fontsize:12
标签2标题:显示效果字体字号同上

按钮组选项组1
选项1标题:二维条形字体大小同上
选项2标题:三维列字体大小同上
线框形状1
复选框复选1标题:标题字体大小同上
复选框复选2标题:列标题字体类型和大小同上
ole控件Oleboundcontrol1。

图1

二。程序列表:

(1)表单Form1的init事件:

#定义CRLF CHR(13)+CHR(10)
#定义选项卡CHR(9)
#定义bartype -4099

设置安全关
dimxsss (8)，XSS (8)
sele10
使用xscx
for ii = 1 to 8
go ii
xsss(ii)

对
使用c:\ hgd \ forms \ pics
CG data = " "+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+；
all t(XSS(8))+TAB+str(xsss(8)，10，2)+CRLF
THIS。lock screen = . t .
追加general gen 1 class " ms graph . chart " DATA m . CG DATA
THIS。oleboundcontrol 1 . control source = " gen 1 "
THIS。oleboundcontrol 1 . has legend = . f .
THIS。oleboundcontrol 1 . auto format(bar type，1)
THIS。锁屏= .F。

(2)按钮组Optiongroup1的click事件:

# DEFINE bar type-4099
# DEFINE coltype-4100
* # DEFINE pietype-4102
DO CASE
CASE THIS。Value = 1
此表单。oleboundcontrol 1 . auto format(bar type，1)
CASE THIS。value = 2
此表单。oleboundcontrol 1 . auto format(coltype，1)
ENDCASE

(3)检查复选框1的点击事件:

# DEFINE C _ graph title _ LOC " dish销售情况表"
this form . oleboundcontrol 1 . hastitle =！这种形式。oleboundcontrol 1 . HasTitle
如果此表单。oleboundcontrol 1 . HasTitle = . t .
this form。oleboundcontrol 1 . chart title . caption = C _ graph title _ LOC
ENDIF

(4)检查复选框2的点击事件:

这种形式。OleBoundControl1.HasLegend =！这种形式。OleBoundControl1.HasLegend

(5)点击事件的“退出”命令按钮Command1:

此表单.释放

以上程序在中文WINDOWS98和VISUAL FOXPRO 6.0软件环境下运行。