[395.xls]



' [mjSumple] のコード
'■■ リストボックスの表示列数を設定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
Dim intCnt1 As Integer
Dim intCnt2 As Integer
Dim strListData(10, 2)  As String

    'リストボックスに表示するデータの作成
    For intCnt1 = 0 To 2
        For intCnt2 = 0 To 10
            strListData(intCnt2, intCnt1) = "1000000"
        Next intCnt2
    Next intCnt1
    'データをセット
    frmSumple.lstTest.List() = strListData
    '最初は表示列数を１にしておく
    frmSumple.lstTest.ColumnCount = 1
    
   'フォームの表示
    frmSumple.Show

End Sub


' [frmSumple] のコード


Private Sub optBtn1_Click()
    frmSumple.lstTest.ColumnCount = 1
End Sub

Private Sub optBtn2_Click()
    frmSumple.lstTest.ColumnCount = 3
End Sub