タイトル : Re^5: webアプリケーションでのchart 投稿日 : 2005/01/27(Thu) 09:38 投稿者 : aki
フォームにボタン(サーバーコントロールとHTMLコントロール)を2つ貼り付けます。 サーバーコントロールのクリックイベントに以下のコードを記述します。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strScript As String strScript = "<script id=clientEventHandlersVBS language=vbscript>" & vbCrLf strScript += "Sub chart_test()" & vbCrLf strScript += "dim objChart" & vbCrLf strScript += "set objChart = Form1.AxMSChart1" & vbCrLf strScript += "objChart.ColumnCount = 1" & vbCrLf strScript += "objChart.RowCount = 10" & vbCrLf strScript += "objChart.ShowLegend = True" & vbCrLf strScript += "End Sub" & vbCrLf strScript += "</script>" If (Not IsClientScriptBlockRegistered("clientScript")) Then RegisterClientScriptBlock("clientScript", strScript) End If End Sub HTMLコードのHTMLボタンのタグに onclick="chart_test()" を記述します。 サーバーコントロールのボタンをクリック後、HTMLボタンをクリックすると グラフの表示が変わるはずです。 いかがでしょうか? |