ASP.Net/Mobile Control/List

Материал из .Net Framework эксперт
Версия от 11:52, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Add hyperlink item to mobile list (VB.net)

<%@ 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">
</script>
<mobile:form 
    id="StartForm" 
    runat="server">
<mobile:list
    runat="server" 
    id="list1"
    decoration="Numbered"
    itemsaslinks="True"
>
    <item 
        value="http://www.nfex.ru"
        text="nfex"
    />
    <item 
        value="http://www.yahoo.ru"
        text="Yahoo"
    />
    <item 
        value="http://www.microsoft.ru"
        text="Microsoft"
    />
</mobile:list>
</mobile:form>



Add items to mobile List in code (VB.net)

<%@ 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 Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    Dim MyItem1 as New MobileListItem
    Dim MyItem2 as New MobileListItem
    Dim MyItem3 as New MobileListItem
    MyItem1.Text = "A"
    MyItem2.Text = "B"
    MyItem3.Text = "C"
    List1.Items.Add(MyItem1)
    List1.Items.Add(MyItem2)
    List1.Items.Add(MyItem3)
End Sub
</script>
<mobile:form 
    id="StartForm" 
    runat="server">
<mobile:list
    runat="server" 
    id="List1"
/>
</mobile:form>



Assign values to mobile list (VB.net)

<%@ 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">
</script>
<mobile:form 
    id="StartForm" 
    runat="server">
<mobile:list
    runat="server" 
    id="list1"
    decoration="bulleted"
    forecolor="red"
>
    <item value="A"/>
    <item value="B"/>
    <item value="C"/>
    <item value="D"/>
</mobile:list>
</mobile:form>



mobile list decoration: bulleted (VB.net)

<%@ 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">
</script>
<mobile:form 
    id="StartForm" 
    runat="server">
<mobile:list
    runat="server" 
    id="list1"
    decoration="bulleted"
    forecolor="red"
>
    <item value="A"/>
    <item value="B"/>
    <item value="C"/>
    <item value="D"/>
</mobile:list>
</mobile:form>



Remove value from mobile list (VB.net)

<%@ 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 Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Not IsPostBack Then
        Dim MyItem1 as New MobileListItem
        Dim MyItem2 as New MobileListItem
        Dim MyItem3 as New MobileListItem
        MyItem1.Text = "A"
        MyItem2.Text = "B"
        MyItem3.Text = "C"
        List1.Items.Add(MyItem1)
        List1.Items.Add(MyItem2)
        List1.Items.Add(MyItem3)
    End If
End Sub
Sub OK_OnSubmit(Sender As Object, E As EventArgs)
    List1.Items.Remove(txtitem.Text)
End Sub
</script>
<mobile:form 
    id="StartForm" 
    runat="server">
<mobile:list
    runat="server" 
    id="List1"
/>
<mobile:label 
    runat="server" 
    id="lbl1"
    Text="Item to remove:" 
/>
<mobile:textbox
    runat="server" 
    id="txtItem"
/>
<mobile:Command 
    runat="server" 
    id="cmdOK"
    OnClick="OK_OnSubmit" 
    Text="OK" 
/>
</mobile:form>