投稿時間: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
|