̃eLXgɂ

{Lł́AJҎgLq̃R[ĥ݂ЉĂ܂AÂ܂܂œ삷킯ł͂܂Bł́A쐬vWFNgɂĎIɋLqꂽ܂߁AUĨ_OɕKvȕЉĂƂɂ܂傤B

yMobileWebForm1.aspx/MobileWebForm1.aspx.vbz---------------------------------

<%@ Register TagPrefix="mobile" Namespace="System.Web.UI.MobileControls" Assembly="System.Web.Mobile, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" %>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="MobileWebForm1.aspx.vb" Inherits="MobileWebApps.MobileWebForm1" %>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/Mobile/Page">
<body Xmlns:mobile="http://schemas.microsoft.com/Mobile/WebForm">
    <mobile:Form id="Form1" runat="server">
        <mobile:TextBox id="TextBox1" runat="server"></mobile:TextBox>
        <mobile:Command id="Command1" runat="server">Command</mobile:Command>
        <mobile:Label id="Label1" runat="server">Label</mobile:Label>
    </mobile:Form>
    <FONT face="MS UI Gothic"></FONT>
</body>

Public Class MobileWebForm1
    Inherits System.Web.UI.MobileControls.MobilePage
    Protected WithEvents Form1 As System.Web.UI.MobileControls.Form
    Protected WithEvents TextBox1 As System.Web.UI.MobileControls.TextBox
    Protected WithEvents Command1 As System.Web.UI.MobileControls.Command
    Protected WithEvents Label1 As System.Web.UI.MobileControls.Label

#Region " Web Form Designer Generated Code "

    '̌Ăяo Web tH[ fUCiŕKvłB
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        ' CODEGEN: ̃\bhĂяo Web tH[ fUCiŕKvłB
        ' R[h GfB^gĕύXȂłB
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' y[W郆[U[ R[hɑ}܂B
    End Sub

    Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
        Label1.Text = TextBox1.Text
    End Sub
End Class

-------------------------------------------------------------------------------

yCalendar.aspx / Calendar.aspx.vbz-------------------------------------------

<%@ Register TagPrefix="mobile" Namespace="System.Web.UI.MobileControls" Assembly="System.Web.Mobile, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" %>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Calendar.aspx.vb" Inherits="MobileWebApps.Calendar" %>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/Mobile/Page">
<body Xmlns:mobile="http://schemas.microsoft.com/Mobile/WebForm">
	<mobile:Form id="Form1" runat="server">
		<mobile:Calendar id="Calendar1" runat="server"></mobile:Calendar>
		<mobile:Label id="Label1" runat="server">Label</mobile:Label>
	</mobile:Form>
</body>

Public Class Calendar
    Inherits System.Web.UI.MobileControls.MobilePage
    Protected WithEvents Calendar1 As System.Web.UI.MobileControls.Calendar
    Protected WithEvents Label1 As System.Web.UI.MobileControls.Label
    Protected WithEvents Form1 As System.Web.UI.MobileControls.Form

#Region " Web Form Designer Generated Code "
    
    '̌Ăяo Web tH[ fUCiŕKvłB
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        ' CODEGEN: ̃\bhĂяo Web tH[ fUCiŕKvłB
        ' R[h GfB^gĕύXȂłB
        InitializeComponent()
    End Sub
    
#End Region

    Private Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
        Label1.Text = "Iꂽ̂́A" & Calendar1.SelectedDate
    End Sub
End Class

-------------------------------------------------------------------------------
