VB6.0用掲示板の過去のログ(No.2)−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


- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -