2. 程式人生 > >微軟圖形控制元件（Chart或MSchart）的用法

微軟圖形控制元件（Chart或MSchart）的用法

阿新 • • 發佈：2019-02-15
自己看  
  1、折線圖  
  <HTML>  
  <HEAD>  
  <META   NAME="GENERATOR"   Content="Microsoft   FrontPage   4.0">  
  <TITLE>   Êý&frac34;ÝÏÔÊ&frac34;Í&frac14;   </TITLE>  
  <SCRIPT   ID="clientEventHandlersJS"   LANGUAGE="javascript">  
  function   window_onload()    
  {  
  t=0;  
  mschart1.chartType   =1; //Í&frac14;ÐÎÑùÊ&frac12;£º3DÖùÍ&frac14;  
   
  mschart1.Title.VtFont.Size       =10; //±êÌâ´óС£º10  
  mschart1.Title.VtFont.VtColor.Blue   =true; //±êÌâÑÕÉ«£ºÀ¶É«  
  mschart1.Title.VtFont.Style                 =1; //±êÌâÐÎÊ&frac12;£º´ÖÌ塢бÌå  
  mschart1.TitleText                                   =document.form1.chtitle.value; //±êÌâÄÚÈÝ  
   
  mschart1.Legend.VtFont.Size                       =9; //ϵÁÐÎÄ×Ö×ÖÌå´óС£º9  
  mschart1.Legend.Location.LocationType   =4; //ϵÁÐÎÄ×ÖÏÔÊ&frac34;λÖãºÓÒ&sup2;¿  
  mschart1.ShowLegend     =true;  
  if   (document.form1.ccount.value==1)  
  {   mschart1.ShowLegend                           =false;   } //Èç&sup1;û×ÜÏßÊýΪ1£¬ÏµÁÐÎÄ×Ö&sup2;»ÏÔÊ&frac34;  
   
  mschart1.Plot.Axis(0).Labels(1).VtFont.Size     =10; //XÖá´óС£º10  
  mschart1.Plot.Axis(1).Labels(1).VtFont.Size     =10; //YÖá´óС£º10  
  mschart1.Plot.Axis(2).Labels(1).VtFont.Size     =10; //ZÖá´óС£º10  
  mschart1.Plot.Axis(0).Labels(1).VtFont.Style   =1; //XÖáÐÎÊ&frac12;£º´ÖÌå  
   
  mschart1.ColumnCount   =document.form1.ccount.value; //×Ü&sup1;&sup2;ÏßÊý  
  mschart1.RowCount   =document.form1.rcount.value; //ÿÏßÉϵãÊý  
   
  for   (i=0;   i<document.form1.rcount.value;   i++)  
  {  
  for   (j=0;   j<document.form1.ccount.value;   j++)  
  {    
  mschart1.Row         =i+1;  
  mschart1.Column   =j+1;  
   
  if   (document.form1.ccount.value>1)  
  {   mschart1.ColumnLabel   =document.form1.cname(j).value;   }  
  else  
  {   mschart1.ColumnLabel   =document.form1.cname.value;       }  
   
  if   ((document.form1.rcount.value*document.form1.ccount.value)>1)  
  {   mschart1.Data   =document.form1.rc_data(t).value;   }  
  else  
  {   mschart1.Data   =document.form1.rc_data.value;         }  
   
  t++;  
  }  
  if   (document.form1.rcount.value>1)  
  {   mschart1.RowLabel   =document.form1.rname(i).value; }  
  else  
  {   mschart1.RowLabel   =document.form1.rname.value; }  
  }  
  }  
   
  function   select1_onchange()  
  {  
  mschart1.chartType   =select1.value  
  mschart1.Plot  
  }  
  </SCRIPT>  
  </HEAD>  
   
  <BODY   TOPMARGIN="0"   LANGUAGE="javascript"   ONLOAD="return   window_onload()">  
  <TABLE   BGCOLOR="#EEEEEE">  
  <TR   ALIGN="center"><TD>  
  <TABLE   WIDTH=100%><TR   align=center><TD><Font   size=2   color=blue><b><%=Request.Form("chtitle")%></b></FONT></TD></TR></TABLE>  
  <HR   COLOR="#F3C905">  
  <OBJECT   CLASSID="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D"   CODEBASE="mschart.cab"   DATA=""   ID="mschart1"   STYLE="HEIGHT:350px;   LEFT:0px;   TOP:0px;   WIDTH:700px"></OBJECT>    
  <BR>  
  <HR   COLOR="#F3C905">  
  <FONT   SIZE="2"   COLOR="blue"><B>ÇëÑ¡ÔñÍ&frac14;±íÏÔÊ&frac34;·&frac12;Ê&frac12;:  
  <SELECT   NAME="select1"   LANGUAGE="javascript"   ONCHANGE="return   select1_onchange()">  
  <OPTION   value=1>¶þάֱ·&frac12;Í&frac14;</OPTION>  
  <OPTION   value=0>Èýάֱ·&frac12;Í&frac14;</OPTION>  
  <OPTION   value=3>¶þάÕÛÏßÍ&frac14;</OPTION>  
  <OPTION   value=2>ÈýάÕÛÏßÍ&frac14;</OPTION>  
  <OPTION   value=5>¶þάÃæ»ýÍ&frac14;</OPTION>  
  <OPTION   value=4>ÈýάÃæ»ýÍ&frac14;</OPTION>  
  </SELECT>  
      
  °æȨËùÓУºÉϺ£Ò×&frac12;Ü&frac14;ÆËã»ú&frac14;&frac14;ÊõÓÐÏÞ&sup1;«Ë&frac34;</B></font>  
  <HR   COLOR="#F3C905">  
  </TD></TR>  
  </TABLE>  
   
  <FORM   NAME="form1"   ID="form1">  
  <input   type="hidden"   name="chtitle"   id="chtitle"   value=""   >  
   
  <input   type="hidden"   name="ccount"     id="ccount"     value=<%=Request.Form("ccount")%>         >  
  <%for   i=1   to   Request.Form("ccount")%>  
  <input   type="hidden"   name="cname"       id="cname"       value="<%=Request.Form("cname")(i)%>">  
  <%next%>  
   
  <input   type="hidden"   name="rcount"     id="rcount"     value=<%=Request.Form("rcount")%>         >  
  <%for   i=1   to   Request.Form("rcount")%>  
  <input   type="hidden"   name="rname"       id="rname"       value="<%=Request.Form("rname")(i)%>">  
  <%next%>  
   
  <%for   i=1   to   Request.Form("rcount")*Request.Form("ccount")%>  
  <%  
  if   Request.Form("rc_data_type")=1   then  
  xvalue   =   Request.Form("rc_data1")(i)  
  end   if  
  if   Request.Form("rc_data_type")=2   then  
  xvalue   =   Request.Form("rc_data2")(i)  
  end   if  
  if   Request.Form("rc_data_type")=3   then  
  xvalue   =   Request.Form("rc_data3")(i)  
  end   if  
  %>  
  <input   type="hidden"   name="rc_data"   id="rc_data"   value=<%=xvalue%>>  
  <%next%>  
  </FORM>  
  </BODY>  
  </HTML>  
   
   
  2、餅圖  
  <HTML>  
  <HEAD>  
  <META   NAME="GENERATOR"   Content="Microsoft   Visual   Studio   6.0">  
  <TITLE>   Êý&frac34;ÝÏÔÊ&frac34;Í&frac14;   </TITLE>  
  <SCRIPT   ID="clientEventHandlersJS"   LANGUAGE="javascript">  
  function   window_onload()    
  {  
  t=0;  
  mschart1.chartType   =14; //Í&frac14;ÐÎÑùÊ&frac12;£º±ýÍ&frac14;  
   
  mschart1.Title.VtFont.Size                   =10; //±êÌâ´óС£º10  
  mschart1.Title.VtFont.VtColor.Blue   =true; //±êÌâÑÕÉ«£ºÀ¶É«  
  mschart1.Title.VtFont.Style                 =1; //±êÌâÐÎÊ&frac12;£º´ÖÌ塢бÌå  
  mschart1.TitleText                                   =document.form1.chtitle.value; //±êÌâÄÚÈÝ  
   
  mschart1.Legend.VtFont.Size                       =9; //ϵÁÐÎÄ×Ö×ÖÌå´óС£º9  
  mschart1.Legend.Location.LocationType   =6; //ϵÁÐÎÄ×ÖÏÔÊ&frac34;λÖ㺵×&sup2;¿  
  mschart1.ShowLegend                                       =true; //ϵÁÐÎÄ×ÖÏÔÊ&frac34;  
   
  mschart1.Plot.Axis(0).Labels(1).VtFont.Size     =10; //XÖá´óС£º10  
  mschart1.Plot.Axis(1).Labels(1).VtFont.Size     =10; //YÖá´óС£º10  
  mschart1.Plot.Axis(2).Labels(1).VtFont.Size     =10; //ZÖá´óС£º10  
  mschart1.Plot.Axis(0).Labels(1).VtFont.Style   =1; //XÖáÐÎÊ&frac12;£º´ÖÌå  
   
  mschart1.ColumnCount   =document.form1.ccount.value; //ÿ¿éÉÏ·Ö¸îÊý  
  mschart1.RowCount         =document.form1.rcount.value; //×Ü&sup1;&sup2;¿éÊý  
   
  for   (i=0;   i<document.form1.rcount.value;   i++)  
  {  
  for   (j=0;   j<document.form1.ccount.value;   j++)  
  {    
  mschart1.Row         =i+1;  
  mschart1.Column   =j+1;  
   
  if   (document.form1.ccount.value>1)  
  {   mschart1.ColumnLabel   =document.form1.cname(j).value+"("+document.form1.rc_data(j).value+"%";    
      for   (x=1;   x<document.form1.rcount.value;   x++)  
      {   mschart1.ColumnLabel   =mschart1.ColumnLabel+",   "+document.form1.rc_data(document.form1.ccount.value*x+j).value+"%";   }  
      mschart1.ColumnLabel   =mschart1.ColumnLabel+")";  
  }  
  else  
  {   mschart1.ColumnLabel   =document.form1.cname.value;   }  
   
  if   ((document.form1.rcount.value*document.form1.ccount.value)>1)  
  {   mschart1.Data   =document.form1.rc_data(t).value;   }  
  else  
  {   mschart1.Data   =document.form1.rc_data.value;         }  
   
  t++;  
  }  
  if   (document.form1.rcount.value>1)  
  {   mschart1.RowLabel   =document.form1.rname(i).value;   }  
  else  
  {   mschart1.RowLabel   =document.form1.rname.value;         }  
  }  
  }  
   
  function   select1_onchange()    
  {  
  mschart1.chartType   =select1.value    
  mschart1.Plot  
  }  
  </SCRIPT>  
  </HEAD>  
   
  <BODY   TOPMARGIN="0"   LANGUAGE="javascript"   ONLOAD="return   window_onload()">  
  <TABLE   BGCOLOR="#EEEEEE">  
  <TR   ALIGN="center"><TD>  
  <TABLE   WIDTH=100%><TR   align=center><TD><Font   size=2   color=blue><b><%=Request.Form("chtitle")%></b></FONT></TD></TR></TABLE>  
  <HR   COLOR="#F3C905">  
  <OBJECT   CLASSID="clsid:3A2B370C-BA0A-11D1-B137-0000F8753F5D"   CODEBASE="mschart.cab"   DATA=""   ID="mschart1"   STYLE="HEIGHT:350px;   LEFT:0px;   TOP:0px;   WIDTH:750px"></OBJECT>    
  <BR>  
  <HR   COLOR="#F3C905">  
  <FONT   SIZE="2"   COLOR="blue"><B>ÇëÑ¡ÔñÍ&frac14;±íÏÔÊ&frac34;·&frac12;Ê&frac12;:  
  <SELECT   NAME="select1"   LANGUAGE="javascript"   ONCHANGE="return   select1_onchange()">  
  <OPTION   value=14>±ýÍ&frac14;</OPTION>  
  <OPTION   value=1>¶þάֱ·&frac12;Í&frac14;</OPTION>  
  <OPTION   value=0>Èýάֱ·&frac12;Í&frac14;</OPTION>  
  </SELECT>  
      
  °æȨËùÓУºÉϺ£Ò×&frac12;Ü&frac14;ÆËã»ú&frac14;&frac14;ÊõÓÐÏÞ&sup1;«Ë&frac34;</B></font>  
  <HR   COLOR="#F3C905">  
  </TD></TR>  
  </TABLE>  
   
  <FORM   NAME="form1"   ID="form1">  
  <input   type="hidden"   name="chtitle"   id="chtitle"   value=""   >  
   
  <%  
  ccount   =   Request.Form("ccount")  
  if   CInt(Request.Form("ccount"))>CInt(Request.Form("rc_data_point"))   then  
  ccount   =   Request.Form("rc_data_point")+1  
  end   if  
  %>  
  <input   type="hidden"   name="ccount"     id="ccount"     value=<%=ccount%>                                         >  
  <%for   i=1   to   Request.Form("ccount")%>  
  <%if   i=Request.Form("rc_data_point")+1   then%>  
  <input   type="hidden"   name="cname"   id="cname"   value="ÆäËû">  
  <%  
  exit   for  
      end   if  
  %>  
  <input   type="hidden"   name="cname"       id="cname"       value="<%=Request.Form("cname")(i)%>">  
  <%next%>  
   
  <input   type="hidden"   name="rcount"     id="rcount"     value="<%=Request.Form("rcount")%>"     >  
  <%for   i=1   to   Request.Form("rcount")%>  
  <input   type="hidden"   name="rname"       id="rname"       value="<%=Request.Form("rname")(i)%>">  
  <%next%>  
   
  <%rc_data_point   =   0%>  
  <%xvalue                 =   0%>  
  <%if   Request.Form("rcount")>=1   then    
      for   i=1   to   Request.Form("ccount")%>  
  <%  
  xvalue   =   xvalue   +   Request.Form("rc_data1")(i)  
   
  if   (rc_data_point<CInt(Request.Form("rc_data_point")))   or   (rc_data_point=CInt(Request.Form("ccount"))-1)   then  
  %>  
  <input   type="hidden"   name="rc_data"   id="rc_data"   value=<%=formatnumber(xvalue,2,-1)%>>  
  <%  
  xvalue   =   0  
  end   if  
   
  rc_data_point   =   rc_data_point+1  
  if   rc_data_point   mod   CInt(Request.Form("ccount"))=0   then  
  rc_data_point   =   0  
  end   if  
  %>  
  <%next  
      end   if%>  
   
  <%if   Request.Form("rcount")>=2   then    
      for   i=1   to   Request.Form("ccount")%>  
  <%  
  xvalue   =   xvalue   +   Request.Form("rc_data2")(i)  
   
  if   (rc_data_point<CInt(Request.Form("rc_data_point")))   or   (rc_data_point=CInt(Request.Form("ccount"))-1)   then  
  %>  
  <input   type="hidden"   name="rc_data"   id="rc_data"   value=<%=formatnumber(xvalue,2,-1)%>>  
  <%  
  xvalue   =   0  
  end   if  
   
  rc_data_point   =   rc_data_point+1  
  if   rc_data_point   mod   CInt(Request.Form("ccount"))=0   then  
  rc_data_point   =   0  
  end   if  
  %>  
  <%next  
      end   if%>  
   
  <%if   Request.Form("rcount")>=3   then    
      for   i=1   to   Request.Form("ccount")%>  
  <%  
  xvalue   =   xvalue   +   Request.Form("rc_data3")(i)  
   
  if   (rc_data_point<CInt(Request.Form("rc_data_point")))   or   (rc_data_point=CInt(Request.Form("ccount"))-1)   then  
  %>  
  <input   type="hidden"   name="rc_data"   id="rc_data"   value=<%=formatnumber(xvalue,2,-1)%>>  
  <%  
  xvalue   =   0  
  end   if  
   
  rc_data_point   =   rc_data_point+1  
  if   rc_data_point   mod   CInt(Request.Form("ccount"))=0   then  
  rc_data_point   =   0  
  end   if  
  %>  
  <%next  
      end   if%>  
  </FORM>  
  </BODY>  
  </HTML>  
 

相關推薦

微軟圖形控制元件（Chart或MSchart）的用法

自己看     1、折線圖     <HTML>     <HEAD>     <META   NAME="GENERATOR"   Content="Microsoft   FrontPage   4.0">     <TITLE>   Êý&

WindowsXamlHost：在 WPF 中使用 UWP 的控制元件（Windows Community Toolkit）

原文 WindowsXamlHost：在 WPF 中使用 UWP 的控制元件（Windows Community Toolkit） Windows Community Toolkit 再次更新到 5.0。以前可以在 WPF 中使用有限的 UWP 控制元件，而現在有了 WindowsXamlHost，則可以使

HTML5學習第6篇—video：自己實現video的播放控制元件（新增樣式版）

     本篇部落格接著上一篇文章，實現了一個帶樣式的video播放控制元件，程式碼如下： <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8">

OpenLayers官方示例詳解九之鷹眼控制元件（Overview Map Control）

  一、示例簡介     這個示例演示了OpenLayers中鷹眼控制元件（ol.control.OverviewMap）的使用。 二、程式碼詳解 <!DOCTYPE html> <html lang="en"> <h

一步一步學android控制元件（之十四） —— NumberPicker

NumberPicker 是用於選擇一組預定義好數字的控制元件。比如時間hour的選擇只有0—23有效，則可以通過setMinValue和setMaxValue設定。 使用該控制元件時需注意他的兩個listener和一個formatter：一個listener用於監聽當前v

jQuery-uploader輕量級圖片上傳控制元件（可拖拽）

在xxx-uploader基礎上修改。 基於bootstrap和jQuery，需要引入 bootstrap.js 和 jQuery.js 原控制元件大小30多k，風格類似於bootstrap，可在css內修改樣式。 我這裡在uploader.js裡展現的樣式做了略微的調整：

Swift-iOS常用控制元件（UIActivityIndicatorView 活動指示器）

//UIActivityIndicatorView 活動指示器 func createActivityIndicatorView() { //建立活動指示器 let aiv = UIActi

WebKit開發實戰（一）：在WPF中使用WebKit控制元件（含示例程式碼）

WebKit 是一個開源的瀏覽器引擎，可以用於程式內建瀏覽器的開發。開發時，需要將WebKit的相關檔案都拷貝至專案檔案，方便程式設計時呼叫，實現WebKit的功能。 在WPF中使用WebKit時，需要新增以下引用。 新增好引用後，就可以在WPF中使用WebKit控

CSDN 牛人部落格及開源控制元件（好東西啊）

開源專案 https://github.com/onurakpolat/awesome-bigdata 安卓有關 （不分排名）2014年7月2日13:32:25 安卓之星  其他 1.講Hadoop  http://blog.csd

Winform遍歷視窗的所有控制元件（兩種方式）

博文主要以下圖中的控制元件來比較這兩種方式獲取控制元件的方式： 1. 最簡單的方式： private void GetControls1(Control fatherControl) { C

自定義控制元件（陰影，漸變）

一、陰影： Paint 類定義了一個名為 setShadowLayer 的方法： publicvoid setShadowLayer(float radius,float dx,float dy,int shadowColor)， 引數意義如下： radius：陰影半徑 d

Android ListView的應用（如何去實現ListView控制元件（自定義介面卡））

稀稀拉拉學了有快1年的Android了，但是依然跟剛入門的小白一樣，用到啥學啥，上網查別人的程式碼，然後複製貼上過去，最後什麼都沒學到，現在是深有體會，我希望記錄一些知識點，踏踏實實的走好每一步，希望剛入門的小白能用到。首先Android Studio中有許多系統自帶的空間，

EXT--日期時間選擇控制元件（精確到秒）

一。一些廢話近日來，有幾個專案用到了EXTJS作為Web前端。也看到了一些童鞋苦苦在網上尋覓可以選擇時間的控制元件，由於EXTJS版本差異較大，利用官方3.2的Demo製作了一個可以選擇到秒的時間控制元件，該控制元件只能夠用於ExtJs2.2以上的版本。經過測試ExtJs2.02版本不適用該控制元件，如

android 自定義倒計時控制元件（圓形倒計時顯示）

先上效果圖 - 倒計時結束 程式碼塊 attr.xml 控制元件需要用到的屬性： <?xml version="1.0" encoding="utf-8"?> <resources> <de

安卓顯示和隱藏控制元件（button,TextView等）

關鍵詞：nvisible，visible，gone 含義： nvisible：不顯示,但保留所佔的空間 gone：不顯示,且不保留所佔的空間 visible：正常顯示 使用例子： XML

android學習筆記——GridView控制元件（九宮格佈局）

GridView跟ListView都是比較常用的多控制元件佈局，而GridView更是實現九宮圖的首選! 先來介紹一下要做的工作，有一個完整的思路 1.在activity_main.xml中加一個G

android自定義控制元件_完全自定義控制元件（自定義開關）

前面總結到自定義控制元件分為 組合控制元件 繼承已有控制元件 比如自定義SmartImageView繼承ImageView 完全自定義控制元件 上一篇寫了自定義控制元件的自定義屬性深入理解點選連結檢視，是自定控制元件比較難以理解的地方，但是是很重

VC中的MONTH CALENDAR控制元件（CMonthCalCtrl）--微軟的BUG

使用MONTH CALENDAR控制元件時總是得不到正確的日期。 原因是該控制元件類提供的函式本身就有問題。GetCurSel()中幾個變數沒有被清空，導致資料總是向後延遲了很多。 以下是處理程式碼：     SYSTEMTIME   st;       m_calen

Linux下編譯並使用Qt第三方圖形控制元件qwt（Ubuntu12.04 + Qt4.8.1 + qwt6.1.2）

編譯環境 主機系統： VMWare + Ubuntu 12.04 （32位） 編譯器版本： gcc-4.6.3 Qt版本： Qt-4.8.1 + Qt Creator-2.5.0 qwt版本： qwt-6.1.2 安裝步驟 cd

ListView中有多個Item（Item中是edittext或則其他需要焦點的控制元件丟失焦點的問題）

ListView中有多個Item,Item中是edittext或則其他需要焦點的控制元件丟失焦點的問題.         發生這個的原因是因為，當點選item中的edittext的時候，軟鍵盤彈出來的時候，如果軟鍵盤會覆蓋到Item佈局，那麼就會造成ListView將會發生