路过的哥们看一下我的问题?在线等!

Question

有没有一个能实现多面板切换的控件,就像VB自带的SSTab控件一样,并且它能够实现滚动条的功能,
因为我想用一个控件数组在其中的一个面板里来显示一组图片,但因为它没有流动条,超过面板的
显示范围后就有好多图片看不到了,各位大哥能否给小弟推荐一个这方面的控件或者是有没有好的
解决方案!谢谢.
附代码:
'************************************************************************
'初始定义界面上显示的数据的行列数目
'************************************************************************
Const M = 10 '表示列
Const N = 4 '表示行Private Sub Form_Load()
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    SSTab.Width = Screen.Width
    SSTab.Top = Toolbar.Top + Toolbar.Height
    
    '**********************************************************************
    '将所有的图标的形式表示在界面上
    '算法：运用控件数组
    '说明:UserControl11是自己做的一个Active控件,由一个picture和4个label组合
    '***********************************************************************
    Dim i As Integer
    Dim j As Integer
    Dim wth As Integer
    Dim hth As Integer
    wth = 1500
    hth = 1800
    
    With UserControl11(0)
        .Width = wth
        .Height = hth
        .Left = Me.ScaleLeft
        .Top = SSTab.Top
    End With
    For i = 0 To N - 1
        For j = 0 To M - 1
            If i <> 0 Or j <> 0 Then
                Load UserControl11(i * M + j)
                With UserControl11(i * M + j)
                    .Width = wth
                    .Height = hth
                    .Left = UserControl11(0).Left + wth * j
                    .Top = UserControl11(0).Top + hth * i
                    .Visible = True
                End With
            End If
        Next j
    Next i
End Sub

Answer 1

http://www.vbaccelerator.com/home/VB/Code/Libraries/Subclassing/Adding_Scroll_Bars_To_Forms__PictureBoxes_and_UserControls/article.asp

Answer 2

http://www.vbaccelerator.com/home/VB/Code/Libraries/Subclassing/Adding_Scroll_Bars_To_Forms__PictureBoxes_and_UserControls/VB6_Scroll_Bars_Demonstration.asp这个是下载页

Answer 3

可以用SSTab组合H/VScrollBar及Frame或Picture来实现

Answer 4

faysky,你的做法是不是要自己做一个Active控件,能否把想法说明白点,谢谢!

Answer 5

不一定要做成Active控件，在你的工程里组合使用就行了，不过你想做成Active控件也可以