用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軟件環境下運行。

位律師廻複