[已解决]真诚请教关于多页控件的一些问题

研究研究

怎么完成.rar (10.39 KB, 下载次数: 15)

2012-2-12 18:55 上传

点击文件名下载附件

由于特殊问题。多页控件要用其他的控件来转换页面。向高手们请教方法

最佳答案

月排行榜 / 总排行榜

Zipall

2012-2-12 19:26

Private Sub CommandButton1_Click()
    With Me.MultiPage1
        p = .SelectedItem.Index
        If p = 0 Then MsgBox "已到首页" Else .Value = p - 1
    End With
End Sub

Private Sub CommandButton2_Click()
    With Me.MultiPage1
        p = .SelectedItem.Index
        If p = .Pages.Count - 1 Then MsgBox "已到尾页" Else .Value = p + 1
    End With
End Sub

Private Sub CommandButton3_Click()
    With Me.MultiPage1
        .Value = .Pages.Count - 1
    End With
End Sub

Private Sub CommandButton4_Click()
    Me.MultiPage1.Value = 0
End Sub

跳转到最佳答案楼层

Zipall

Private Sub CommandButton1_Click()
    With Me.MultiPage1
        p = .SelectedItem.Index
        If p = 0 Then MsgBox "已到首页" Else .Value = p - 1
    End With
End Sub

Private Sub CommandButton2_Click()
    With Me.MultiPage1
        p = .SelectedItem.Index
        If p = .Pages.Count - 1 Then MsgBox "已到尾页" Else .Value = p + 1
    End With
End Sub

Private Sub CommandButton3_Click()
    With Me.MultiPage1
        .Value = .Pages.Count - 1
    End With
End Sub

Private Sub CommandButton4_Click()
    Me.MultiPage1.Value = 0
End Sub