日韩在线免,成人午夜a级毛,成年人快猫

Teechart圖表應用技術詳解—第八章之Teechart應用的ASP腳本

轉帖|使用教程|編輯：況魚杰|2020-02-25 14:52:38.540|閱讀 352 次

概述：本教程轉自屈景輝的Teechart應用技術詳解——快速圖表制作工具一書。接下來將會介紹第八章——TeeChart控件的網絡應用。本文將會介紹第二節：Teechart應用的ASP腳本

相關鏈接：

Steema公司和慧都科技針對中國市場聯合推出中文版TeeChart for .NET圖表控件，一共漢化2000個詞條（17000個單詞），漢化文檔35000個單詞，包括控件設計時與運行時的界面漢化以及控件使用向導文檔的漢化，總漢化90%以上！

TeeChart for .NET中文版讓您在使用和學習上沒有任何語言障礙，至少可以節省30%的開發時間。TeeChart for .NET中文版具有易上手，使用方便，穩定性好，性價比高，價格優惠等優勢，并且針對Web應用提供無限制服務器分發授權方式，非常有利于產品集成。

點擊下載TeeChart for .NET最新試用版

ASP是編寫基于網絡應用程序的一種腳本語言，可以在任何一種文本編輯器中書寫，下面簡述使用ASP編寫TeeChart應用的基本步驟。

創建圖表TChart對象，利用CreateObject創建圖表對象。

Set TChart1=CreateObject{"TeeChart.TChart"}

屬性設定。對TChart的屬性進行設置，以產生滿足需要的統計圖形。

TChart1.Header.Text(0)="出行發行量統計圖“
TChart1.AddSeries（1)
TChart1.Aspect.View3D=0
TChart1.Series(0).Clear
TChart1.Series(0).Add 2500,"電子類",RGB(255,128,128)
TChart1.Series(0).Add 3900,"計算機類”,RGB(255,128,128)
TChart1.Series(0).Add 2700,“醫學類”,RGB(255,128,128)
TChart1.Series(0).Add 3500,“電工類”,RGB(255,128,128)
TChart1.Series(0).Add 3200,“職教類”,RGB(255,128,128)
TChart1.Series(0).ColorEachPoint=True

生成統計圖像文件，利用TeeChart的導出特性Export可以把生成的圖表保存為一個JPEG格式的圖形文件，調用格式如下：

TChart.Export.SaveToJPEGFile（FileName,Gray,Performance,Quality,Width,Height）

其中：

FileName：JPEG文件存放的絕對路徑和立件名面不是Is中的相對路徑。
Gray：是否保存為黑白圖像。
Performance：生成的PEG文件是質量優先還是速度優先。
Quality：是一個0到100的整數,100時PEG質量最好但文件最大；Quality越小則生成文件越小且圖像質量也隨之下降。

所以，生成統計圖像文件的話句應為：

TChart1.Export.SaveToJPEGEile server.mappath{"MyChart"}jpg"),False,
JPEGBestQuality,100,TChart1.Width,TChart1.Height

這樣，生成的統計圖形就以JPEG格式存于文件 MyChart.JPG中了。

釋放對象。當生成統計圖形文件后，就可以將初始狀態創建的 TChart對象刪除，以節省系統資源。

Set TChart1=nothing

顯示統計圖形。統計圖形文件生成后，用下列語句顯示該圖形文件。

img src="MyChart .jpg"

根據以上步驟，生成文本文件asp.asp如下；

<%'一-------asp.asp------------------------ set TChart1=CreateObject ("TeeChart, TChart") TChart1.Header，Text(0)="出版發行量統計圖 TChart1.AddSeries(1) TChart1.Aspect.View3D= true TChart1.Series(0).Clear TChart1.Series(0).Add 2500,"電子類”，RGB(255,0,0) TChart1.Series(0).Add 3900,"計算機類"，RGB(255,255,0) TChart1.Series(0).Add 2700,“醫學類”，RGB(255,0,255) TChart1.Series(0).Add 3500,"電工類"，RGB(255,128,0) TChart1.Series(0).Add 3200,"職教類”，RGB(255,0,128) TChart1.Series(0).Marks.Visible= true TChart1Sseries(0). Marks.Style=0 TChart1.Legend.Visible= false TChart1.Export.SaveToJPEGFile server mappath("MyChart. jpg"), False, JPEGBestQuality, 100, TChart1. Width, TChart1.Height %>