VERSION 5#
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmLisbox分页多组
Caption = "UserForm1"
ClientHeight = 7605
ClientLeft = 45
ClientTop = 390
ClientWidth = 15690
OleObjectBlob   =   "frmLisbox分页多组.frx":0000
StartUpPosition = 1    '所有者中心
End
Attribute VB_Name = "frmLisbox分页多组"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim listbox分页对象(2) As clsListboxPage    '必须是全局对象才能绑定和触发事件

Private Sub ListBox1_Click()
    MsgBox ListBox1.List(ListBox1.ListIndex, 1)
End Sub

Private Sub UserForm_Initialize()
    Set listbox分页对象(0) = New clsListboxPage
    listbox分页对象(0).init Sheet2.[A2:E63], 8, ListBox1, cmd上一页1, cmd下一页1, tb页码跳转1, lb页码显示1, "数据1!A2:E2"

    Set listbox分页对象(1) = New clsListboxPage
    listbox分页对象(1).init Sheet2.[B2:D63], 10, ListBox2, cmd上一页2, cmd下一页2, tb页码跳转2, lb页码显示2, "数据1!B2:E2"

    Set listbox分页对象(2) = New clsListboxPage
    listbox分页对象(2).init Sheet3.[A2:G71], 20, ListBox3, cmd上一页3, cmd下一页3, tb页码跳转3, lb页码显示3, "数据1!A2:E2"
End Sub