StockPicker.aspx:
<scriptlanguage="VB"runat=server>
SubChartBtn_Click(SenderasObject,EasEventArgs)
chart.ImageUrl="ImageGenerator_Vb.aspx?"
chart.Visible=true
Fori=0toStocks.Items.Count-1
If(Stocks.Items(i).Selected=true)Then
chart.ImageUrl=chart.ImageUrl&"symbols="&Stocks.Items(i).Value&"&"
EndIf
Next
EndSub
</script>
<html>
<body>
<formrunat=server>
<h1>Scott'sStockPicker</h1>
<asp:checkboxlistid="Stocks"runat=server>
<asp:listitem>MSFT</asp:listitem>
<asp:listitem>SUN</asp:listitem>
</asp:checkboxlist>
<asp:buttontext="ChartYourSelectedStocks"OnClick="ChartBtn_Click"runat=server/>
<hr>
<asp:Imageid="chart"ImageUrl=""Visible=falserunat=server/>
</form>
</body>
</html>
ImageGenerator_VB.aspx:
<%@PageLanguage="VB"ContentType="image/jpeg"%>
<%@ImportNamespace="System.Drawing"%>
<%@ImportNamespace="System.Drawing.Drawing2D"%>
<%@ImportNamespace="System.Drawing.Imaging"%>
<%@ImportNamespace="ChartGenerator"%>
<%@OutputCacheDuration="10"%>
<scriptlanguage="VB"runat=server>
FunctionGetStockDetails(SymbolasString)asChartLine
DimmyChartLineasnewChartLine
if(symbol="msft")then
DimStockValues()asSingle={60,110,120,180,185,190,240,290}
myChartLine.Width=5
myChartLine.Color=Color.Blue
myChartLine.LineStyle=DashStyle.Solid
myChartLine.Title="MicrosoftCorp.(MSFT)"
myChartLine.Symbol="MSFT"
myChartLine.Values=StockValues
returnmyChartLine
elseif(symbol="sun")then
DimStockValues()asSingle={180,155,125,60,25,15,10,3}
myChartLine.Width=5
myChartLine.Color=Color.Red
myChartLine.LineStyle=DashStyle.Dot
myChartLine.Title="SunCorp.(Sun)"
myChartLine.Symbol="Sun"
myChartLine.Values=StockValues
returnmyChartLine
endif
returnnothing
EndFunction
SubPage_Load(SenderasObject,EasEventArgs)
'GenerateChartDataForImage....
