Creating a new button/command

fennec · September 24, 2008

I have this code (Oldschool ASP):

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head> <title>Untitled</title></head><body><%Set ChartFX1 = Server.CreateObject("ChartFX.ASP.Server")ChartFX1.OpenData COD_Values, 2, 3ChartFX1.Value(0,0) = 2ChartFX1.Value(0,1) = 3ChartFX1.Value(0,2) = 4ChartFX1.Value(1,0) = 2ChartFX1.Value(1,1) = 4ChartFX1.Value(1,2) = 5ChartFX1.Series(0).Color = RGB(255,255,128)ChartFX1.Series(1).Color = RGB(0,128,192)ChartFX1.Series(0).Visible = trueChartFX1.Series(1).Visible = falseChartFX1.ContextMenus = FalseChartFX1.Axis(AxisItem_Y).Min = 0ChartFX1.Axis(AxisItem_Y).Max = 10ChartFX1.SerLegBox = trueChartFX1.AllowDrag = FalseChartFX1.AllowEdit = FalseChartFX1.MenuBar = falseChartFX1.Toolbar = TrueChartFX1.Chart3D = falseChartFX1.Axis(AxisItem_Y).Gridlines = trueChartFX1.ToolbarObj.RemoveAt 0,21Dim cmds, nPictSet cmds = ChartFX1.CommandsnPict = cmds.AddPicture((Server.MapPath("\")) & "\cms\GB\web\grafik\nr2.gif")cmds(1).Text = "Person"cmds(1).Picture = nPictChartFX1.ToolBarObj(0) = 1nPict = cmds.AddPicture((Server.MapPath("\")) & "\cms\GB\web\grafik\nr3.gif")cmds(2).Text = "Square meter"cmds(2).Picture = nPictChartFX1.ToolBarObj(1) = 2ChartFX1.CloseData COD_Values%><%= ChartFX1.GetHtmlTag(680,300,"Auto","ChartFX1") %><br></body></html>

This code works fine. I see the 2 buttons as the only buttons. I need the two buttons to switch between the to graphs.Button 1 should just do:ChartFX1.Series(0).Visible = trueChartFX1.Series(1).Visible = false

And button 2:ChartFX1.Series(0).Visible = falseChartFX1.Series(1).Visible = true

How do I do that??

Sign In

Creating a new button/command

Recommended Posts

fennec

Link to comment

Share on other sites

Join the conversation

Browse

Activity