C# と VB.NET の質問掲示板

■No9543 (まどか さん) に返信
> と言いながら、一番簡単なのは標準のFlexGrid(Windows Common Controls x)を使うことだと思います。

MSFlexGrid や MSHFlexGrid は、Windows Common Controls ではありません。
VideoSoft 社から OEM 提供されている「機能限定版 VSFlexGrid」です。


また、標準の MSFlexGrid / MSHFlexGrid では、「列境界あり/行境界無し」は対応できません。
無理にやるとすれば、こんな方法ぐらいしか…。

ColCount = 3
RowCount = 4
With MSHFlexGrid1
　.Rows = RowCount
　.Cols = ColCount * 2 - 1
　.FixedRows = 0
　.FixedCols = 0
　.GridLines = flexGridNone
　.HighLight = flexHighlightNever
　
　.FillStyle = flexFillRepeat
　For c = 1 To .Cols - 1 Step 2
　　.Row = 0
　　.Col = c
　　.RowSel = .Rows - 1
　　.ColSel = c
　　.ColWidth(c) = Screen.TwipsPerPixelX
　　.CellBackColor = vbBlack
　Next
　
　.FillStyle = flexFillSingle
　n = 0
　For r = 0 To .Rows - 1
　　For c = 0 To .Cols - 1 Step 2
　　　n = n + 1
　　　.TextMatrix(r, c) = CStr(n)
　　Next
　Next
　.Row = 0
　.Col = 0
End With



■No9542 (かな さん) に返信
> そしてカラムを３列使うと指定しておきます。（ColumnCount = 3）

ListBox の高さが 4 行分だったとし、項目が 19 個あったとします。
その場合、ColumnCount = 3 とは、

　┏━━━━━━━━━┳━┓
　┃　 1　　 2　　 3　┃△┃
　┃　 4　　 5　　 6　┃　┃可視領域
　┃　 7　　 8　　 9　┃　┃
　┃　10　　11　　12　┃▽┃
　┗━━━━━━━━━┻━┛
　│　13　　14　　15　│　│
　│　16　　17　　18　│　│スクロール領域
　│　19　　　　　　　│　│
　└─────────┴─┘

という縦スクロール配置ではなく、

　┏━━━━━━━━━┓──────┐
　┃　 1　　 5　　 9　┃　13　　17　│
　┃　 2　　 6　　10　┃　14　　18　│
　┃　 3　　 7　　11　┃　15　　19　│
　┃　 4　　 8　　12　┃　16　　　　│
　┣━━━━━━━━━┫──────┤
　┃≪　　　　　　　≫┃　　　　　　│
　┗━━━━━━━━━┛──────┘
　　　可視領域　　　　　　スクロール領域

という横スクロール配置になりますが、その点は問題ないですか?

■No9594 (かな さん) に返信
> ただ、Replaceを使う件は一度試してみます。

という事は、行単位の表示だけで良いのでしょうか?
だとすれば、こういう逃げ方とか。


Private Sub Form_Load()
    List1.Font.Name = "ＭＳ ゴシック"
    List1.Font.Size = 12

    Dim L As Long
    For L = 1 To 99 Step 3
        Dim S As String
        S = Format(CStr(L), "@@@") & "|" & vbTab
        S = S & Format(CStr(L + 1), "@@@") & "|" & vbTab
        S = S & Format(CStr(L + 2), "@@@")
        List1.AddItem S
    Next
End Sub