[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2007/02/05(Mon) 21:43
投稿者名:FR
Eメール:
URL :
タイトル:
SSTab上のMSFlexGridの表示方法は?
ユーザーコントロールのフォームにSSTabを1つ配置して、その上にMSFlexGrid
を1つ配置しています。2つのタブには0と1としています。タブで切り替えて表
示したいのは両方ともMSFlexGridなんですが、ABそれぞれにMSFlexGrid(計2つ
)を配置せずに1つで対処する方法はないでしょうか?
自分なりに調べて下記のようにコードを記述してみましたが途中で混乱して
しまって解決できませんでした。
教えてください。よろしくお願いします。

ユーザーコントロールのコード
'タブの切り替え
Private Sub SStabStats_Click(PreviousTab As Integer)

    On Error GoTo ErrHandle
    
    'MSFlexGridコントロールの強制表示。
    grdStats.Left = 120
    '印刷ボタンの強制表示'
    cmdStatsPrint.Left = 8280
        
    'トピックの表示。
    PanelStatsPreview_ShowContents

    Exit Sub
ErrHandle:
    CommanErrMsg
    Exit Sub
End Sub

'タブでMSFlexGridの切り替え'
Private Sub PanelStatsPreview_ShowContents()
    Dim i As Long
    Dim ixTeam As Long

    
  ixTeam = SStabStats.Tab
          
        For i = 0 To 1
             grdStats (i)
        Next
End Sub