投稿日 | : 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