book.aspx.vb

来自「这是用VB开发的小型查询书籍系统」· VB 代码 · 共 65 行


Partial Class book
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        xdsj.Items.Add(gxsj.SelectedItem.Text)
        gxsj.Items.Remove(gxsj.SelectedItem.Text)
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        gxsj.Items.Add(xdsj.SelectedItem.Text)
        xdsj.Items.Remove(xdsj.SelectedItem.Text)
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim i As Integer
        For i = 0 To gxsj.Items.Count - 1
            xdsj.Items.Add(gxsj.Items(i).Text)
        Next



        gxsj.Items.Clear()




    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim i As Integer
        For i = 0 To xdsj.Items.Count - 1
            gxsj.Items.Add(xdsj.Items(i).Text)
        Next



        xdsj.Items.Clear()
    End Sub
    Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim i As Integer
        While i < gxsj.Items.Count - 1
            If (gxsj.Items(i).Selected) Then
                xdsj.Items.Add(gxsj.Items(i))
                gxsj.Items.Remove(gxsj.Items(i))
            Else
                i = i + 1


            End If

        End While

    End Sub
    Protected Sub CheckBoxList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBoxList1.SelectedIndexChanged
        If CheckBoxList1.SelectedIndex > -1 Then
            Label1.Text = "您选择了" & CheckBoxList1.SelectedItem.Text & "方式!"
        End If
    End Sub
End Class