第六章 伺服器控制项(一).ppt

* 6.6.6 DropDownList控制項 Step1：網頁介面設計如下（所有控制項皆採絕對定位）並設定屬性（其餘屬性參照屬性窗格）。 * 6.6.6 DropDownList控制項 Step2：編輯ListBox1控制項的Items，共五個項目(ListItem)。如圖： * 6.6.6 DropDownList控制項 Step3：設定DropDownList1控制項的AutoPostBack屬性為True，但不編輯其項目內容。 Step4：撰寫四個事件程序如下：（在兩個按鈕上按兩下，在DropDownList1控制項上按兩下產生） 程式部分內容： * 6.6.6 DropDownList控制項 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Protected Sub Page_Load(sender As Object, e As System.EventArgs) If Page.IsPostBack = True Then Return 若非第一次讀取網頁,則不作事 End If 第一次讀取網頁才作下列事項 For i = 0 To ListBox1.Items.Count - 1 加入項目 DropDownList1.Items.Add(ListBox1.Items(i)) Next Dim it As New ListItem() it.Text = 全部購買 it.Value = All it.Selected = False it.Enabled = True DropDownList1.Items.Add(it) 加入最後一項 it = Nothing End Sub * 6.6.6 DropDownList控制項 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 Protected Sub DropDownList1_SelectedIndexChanged(sender As Object, e As System.EventArgs) If DropDownList1.Items(5).Selected = True Then Label3.Text = 全部購買免費延長保固1年 Else Label3.Text = End If End Sub Protected Sub Button2_Click(sender As Object, e As System.EventArgs) Label1.Text = 您所購買的產品為br / For i = 0 To DropDownList1.Items.Count - 1 If DropDownList1.Items(i).Selected = True Then Label1.Text = DropDownList1.Items(i).Text br / End If Next End Sub? * 6.6.6 DropDownList控制項 範例說明： (1)第7~24行：由於每次網頁被讀取時都會執行Page_Load，而我們想要作的事只有在第一次網頁被讀取時才需要，故在第8~10行，利用Page.IsPostBack屬性判斷是否為第一次讀取網頁（其餘都屬於PostBack）。 43 44 45 46 47 48 49 50 Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Label1.Text = 您所購買的產品為br / For i = 0 To ListBox1.Items.Count - 1 If ListBox1.Items(i).Selected = True Then Label1.Text = ListBox1.Items(i).Text br / End I