|
<%@ Page Inherits="System.Web.UI.MobileControls.MobilePage" Language="VB" %>
<%@ Register TagPrefix="Mobile" Namespace="System.Web.UI.MobileControls" Assembly="System.Web.Mobile" %>
<script runat="server">
sub StockPick(obj as Object, e as ListCommandEventArgs)
lblName.Text = "Price for " + e.ListItem.Text
lblPrice.Text = e.ListItem.Value
ActiveForm = frmPrice
end Sub
</script>
<Mobile:Form id="frmMenu" BackColor="#ccddcc" runat="server" >
<Mobile:Label runat="server" StyleReference="title"
Text="Companies"/>
<Mobile:List runat="server" OnItemCommand="StockPick">
<Item Text="A" Value="5.0" />
<Item Text="B" Value="3.5" />
<Item Text="C" Value="1.4" />
<Item Text="D" Value="1.3" />
</Mobile:List>
</Mobile:Form>
<Mobile:Form id="frmPrice" BackColor="#ccddcc" runat="server" >
<Mobile:Label id="lblName" runat="server"/>
<Mobile:Label id="lblPrice" runat="server"/>
</Mobile:Form>
|