明輝手游網(wǎng)中心：是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

一個(gè)圖象區(qū)分的組件。（調(diào)用源碼，備注加組件）

發(fā)表時(shí)間：2024-05-29 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]<% Response.ContentType="image/jpeg" Set DelphiASPObj = Server.CreateObject("ASPCOM.ChartImage") 'DelphiASPObj.About Delph...

<%
Response.ContentType="image/jpeg"
Set DelphiASPObj = Server.CreateObject("ASPCOM.ChartImage")
'DelphiASPObj.About
DelphiASPObj.Clear
DelphiASPObj.Title="標(biāo)題" '顯示柱狀圖的標(biāo)題
DelphiASPObj.Foot="備注" '備注柱狀圖是分析啥地
DelphiASPObj.Width=600 '設(shè)備柱狀圖的寬度
DelphiASPObj.Height=400 '設(shè)備柱狀圖的長度
'DelphiASPObj.SetRange 0, 100
DelphiASPObj.AddValue 200, "達(dá)", 123456 '轉(zhuǎn)入值,標(biāo)識和顏色（這個(gè)不敢確定）
DelphiASPObj.AddValue 40, "#2", 3456677
' DelphiASPObj.AddNull "Null" '轉(zhuǎn)入值,標(biāo)識和顏色（這個(gè)不敢確定）
'DelphiASPObj.AddValue 20, "#5", 1243535
DelphiASPObj.AddValue 20, "#3", 1243535 '轉(zhuǎn)入值,標(biāo)識和顏色（這個(gè)不敢確定）
DelphiASPObj.AddValue 50, "#4", 243455 '轉(zhuǎn)入值,標(biāo)識和顏色（這個(gè)不敢確定）
DelphiASPObj.AddValue 40, "#5", 123535 '轉(zhuǎn)入值,標(biāo)識和顏色（這個(gè)不敢確定）
DelphiASPObj.AddValue 550, "#6", 123535 '轉(zhuǎn)入值,標(biāo)識和顏色（這個(gè)不敢確定）
DelphiASPObj.SetChartType 0
DelphiASPObj.SetMarkFont 8, 0
DelphiASPObj.SetTitleFont 8, 0
DelphiASPObj.SetFootFont 8, 0
'Font Size , Font Color
'0: Bar 1: HorizBar 2: Line 3: Pie 4: Point 5: Area
DelphiASPObj.SetMark true,false,true,1
'Mark Visible , Mark Transparent , Border Visible , Mark Style
'Style: 0:Value 1:Label 2:LabelValue 3:LabelPercentTotal 4: Percent 5:PercentTotal
DelphiASPObj.SetAxis true,"x軸",90,"Y軸",0,true '顯示x,y軸
'Axis Visible , Horiz Title , Horiz Angle , Vertical Title , Veritcal Angle , Legend Visible
'DelphiASPObj.SetPanel 1677215,true,true,9895167,1677215
'Color , Border Visible , Gradient Visible , Start Color , End Color
DelphiASPObj.SetBGImage "D:\aliang\chart\TestBG.jpg" '設(shè)置圖象的背景色
'BackGround Image File Name
DelphiASPObj.View3D=true '設(shè)置是否顯示3d
Response.BinaryWrite DelphiASPObj.Image(100)
'Image Quality [Optional] 100 is the best 0 is the worst
%>