<%@ Register TagPrefix="mobile" Namespace="System.Web.UI.MobileControls" Assembly="System.Web.Mobile" %>
<%@ Page Inherits="System.Web.UI.MobileControls.MobilePage" Language="vb" %>
<HEAD>
<title>Mobile Control Example</title>
<script runat="server">
Protected Sub List1_Click(source As Object, e As ListCommandEventArgs)
Select Case e.ListItem.Value
Case 2
ActiveForm = Form2
Case 3
ActiveForm = Form3
Case 4
ActiveForm = Form4
End Select
End Sub
Protected Sub Command1_Click(source As Object, e As EventArgs)
If Not SelectionList1.Selection.Value = "4" Then
Label1.Text = "You run as Admin too often!"
Else
Label1.Text = "Excellent!"
End If
End Sub
</script>
</HEAD>
<body xmlns:mobile="http://schemas.microsoft.com/Mobile/WebForm">
<h1>Mobile Control Example</h1>
<mobile:Form id="Form1" Runat="server">
<mobile:Label id="Label2" runat="server">Choose a sample:</mobile:Label>
<mobile:List id="List1" OnItemCommand="List1_Click" runat="server" Decoration="Numbered">
<Item Value="2" Text="SelectionList Sample"></Item>
<Item Value="3" Text="PhoneCall Sample"></Item>
<Item Value="4" Text="TextView Sample"></Item>
</mobile:List>
</mobile:Form>
<mobile:Form id="Form2" runat="server">
<mobile:Label id="Label1" runat="server">How often do you run Windows as Admin?</mobile:Label>
<mobile:SelectionList id="SelectionList1" runat="server">
<Item Value="0" Text="Always"></Item>
<Item Value="1" Text="Often"></Item>
<Item Value="2" Text="Sometimes"></Item>
<Item Value="3" Text="Rarely"></Item>
<Item Value="4" Text="Never"></Item>
</mobile:SelectionList>
<mobile:Command id="Command1" OnClick="Command1_Click" runat="server">Submit</mobile:Command>
</mobile:Form>
<mobile:Form id="Form3" runat="server">
<mobile:PhoneCall id="PhoneCall1" runat="server" PhoneNumber="(000)555-1234" AlternateUrl="http://www.java2s.com">Call Mom</mobile:PhoneCall>
</mobile:Form>
<mobile:Form id="Form4" runat="server">
<mobile:TextView id="TextView1" runat="server" Wrapping="Wrap">mobile text view</mobile:TextView>
</mobile:Form>
</body>