练习.net WinForm开发（一）：自定义分页控件（2）

代码

Imports System.Data
Imports System.Data.OleDb
Imports System.Text.RegularExpressions
Public Class PagerWinControl
    Dim strsql As String = ""
    '总项数
    Private _TotalItem As Integer
    Public Property TotalItem() As Integer
        Get
            Return _TotalItem
        End Get
        Set(ByVal value As Integer)
            _TotalItem = value
            If value = 0 Then Exit Property
            ToolCount.Text = value
            Dim result As Integer
            result = CInt(ToolCount.Text) Mod _PageCount
            If result = 0 Then
                ToollblCount.Text = CInt(ToolCount.Text) \ _PageCount
            Else
                ToollblCount.Text = CInt(ToolCount.Text) \ _PageCount + 1
            End If
        End Set
    End Property
    '每一页的数量
    Private _PageCount As Integer
    Public Property PageCount() As Integer
        Get
            Return _PageCount
        End Get
        Set(ByVal value As Integer)
            _PageCount = value
        End Set
    End Property
    '页码
    Private _PageNO As Integer
    Public Property PageNO() As Integer
        Get
            Return _PageNO
        End Get
        Set(ByVal value As Integer)
            _PageNO = value
        End Set
    End Property
    Private Sub TooLFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TooLFirst.Click
        Toolcurrent.Text = 1
        _PageNO = 1
        RaiseEvent OnButtonClick(sender, e)
    End Sub

    Private Sub ToolPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolPrevious.Click
        If Toolcurrent.Text <= 1 Then
            MessageBox.Show("已经是第一页了", "五洲商慧提醒您", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If
        Toolcurrent.Text = CInt(Toolcurrent.Text) - 1
        _PageNO = CInt(Toolcurrent.Text)
        RaiseEvent OnButtonClick(sender, e)
    End Sub

    Private Sub ToolNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolNext.Click
        If Toolcurrent.Text >= ToollblCount.Text Then
            MessageBox.Show("已经是最后一页了", "五洲商慧提醒您", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If
        Toolcurrent.Text = CInt(Toolcurrent.Text) + 1
        _PageNO = CInt(Toolcurrent.Text)
        RaiseEvent OnButtonClick(sender, e)
    End Sub

    Private Sub ToolLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolLast.Click
        Toolcurrent.Text = ToollblCount.Text
        _PageNO = CInt(ToollblCount.Text)
        RaiseEvent OnButtonClick(sender, e)
    End Sub

    Private Sub ToolGO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolGO.Click
        If TooltxtPage.Text = "" Then Exit Sub
        If Not Regex.Match(TooltxtPage.Text, "^[1-9]\d*$").Success = True Then
            MessageBox.Show("请输入数字", "五洲商慧提醒您", MessageBoxButtons.OK, MessageBoxIcon.Information)
            TooltxtPage.Text = ""
            Exit Sub
        End If
        If CInt(TooltxtPage.Text) > CInt(ToollblCount.Text) Then
            MessageBox.Show("不存在此页", "五洲商慧提醒您", MessageBoxButtons.OK, MessageBoxIcon.Information)
            TooltxtPage.Text = ""
            Exit Sub
        End If
        Toolcurrent.Text = TooltxtPage.Text
        _PageNO = CInt(Toolcurrent.Text)
        RaiseEvent OnButtonClick(sender, e)
    End Sub
    Public Custom Event OnButtonClick As EventHandler
        AddHandler(ByVal value As EventHandler)
            Events.AddHandler("ClickEvent", value)
        End AddHandler

        RemoveHandler(ByVal value As EventHandler)
            Events.RemoveHandler("ClickEvent", value)
        End RemoveHandler

        RaiseEvent(ByVal sender As Object, ByVal e As System.EventArgs)
            CType(Events("ClickEvent"), EventHandler).Invoke(sender, e)
        End RaiseEvent
    End Event
End Class

调用代码

代码

Private Sub PagerWinControl1_OnButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PagerWinControl1.OnButtonClick
        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\pageing.mdb;")
        conn.Open()
        Dim pageCount As Integer
        Dim pageNO As Integer
        pageNO = PagerWinControl1.PageNO
        pageCount = PagerWinControl1.PageCount
        If pageNO = 1 Then
            strsql = "select top " & pageCount & " * from student order by id asc"
        Else
            strsql = "select top " & pageCount & " * from student where id not in(select top " & pageCount * pageNO - pageCount & " id from student) order by id asc"
        End If
        Dim ad As New OleDbDataAdapter(strsql, conn)
        Dim dt As New DataTable
        ad.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

 

不费话了，直接上代码了。自定义控件。

 

效果图。

 

希望哪个大哥给我改改。我水平太差。

 

转载于:https://www.cnblogs.com/Believeme/archive/2010/02/25/1673775.html