<%@ Page
Inherits="System.Web.UI.MobileControls.MobilePage"
Language="VB"
%>
<%@ Register
TagPrefix="mobile"
Namespace="System.Web.UI.MobileControls"
Assembly="System.Web.Mobile"
%>
<script runat="server" language="VB">
Sub OK_OnSubmit(Sender As Object, E As EventArgs)
PanQuestion.Visible = False
If txtAnswer.Text = 49 Then
PanCorrect.Visible = True
Else
PanWrong.Visible = True
End If
End Sub
</script>
<mobile:form
id="FirstPage"
runat="server">
<mobile:panel
id="PanQuestion"
runat="server"
visible="True"
>
What is 7 x 7?
<mobile:textbox
id="txtAnswer"
runat="server"
/>
<mobile:Command
runat="server"
id="cmdOK"
OnClick="OK_OnSubmit"
Text="OK"
/>
</mobile:panel>
<mobile:panel
id="PanCorrect"
runat="server"
visible="False"
>
You are correct!
</mobile:panel>
<mobile:panel
id="PanWrong"
runat="server"
visible="False"
>
You are wrong!
</mobile:panel>
</mobile:form>
|