隣り合ったCELLの境界線を消す方法

解決

GON 2003-04-17 17:45:10 No: 77742 IP: [192.*.*.*]

MSFlexGridコントロールで左右および
上下のセルの境界線を消す方法を教えて下さい。

編集削除

Loreley 2003-04-18 01:48:39 No: 77743 IP: [192.*.*.*]

プロパティページからGrid関連をNoneにすればできます(2箇所)
時間がないので大雑把ですがすいません

編集削除

GON 2003-04-18 12:59:52 No: 77744 IP: [192.*.*.*]

質問のしかたが悪くて済みません。
沢山あるセルのうち、特定の隣合った２個の
セルの境界線のみ消し、他の線はそのまま表示
即ち、２個のセルが見掛け上１個に見えるように
する方法を知りたいのですが。

編集削除

魔界の仮面弁士 2003-04-18 16:02:11 No: 77745 IP: [192.*.*.*]

これで如何でしょう。

Private Sub Form_Load()
    Dim S As String

    S = "1-1|1-2|1-3|1-4|1-5" & vbCr _
      & "2-1|2-2|2-3|2-4|2-5" & vbCr _
      & "3-1|2-2|3-3|3-4|3-5" & vbCr _
      & "4-1|4-2|4-3|4-3|4-5" & vbCr _
      & "5-1|5-2|5-3|5-4|5-5"

    With Me.MSFlexGrid1
        .SelectionMode = flexSelectionFree
        .MergeCells = flexMergeFree
        .Rows = .FixedRows
        .Cols = .FixedCols
        .Rows = 5
        .Cols = 5
        .FixedRows = 1
        .FixedCols = 1
        .Row = 0
        .Col = 0
        .RowSel = 4
        .ColSel = 4
        .Clip = Replace(S, "|", vbTab)
        .Row = 1
        .Col = 1
        .MergeCol(1) = True
        .MergeRow(3) = True
    End With
End Sub

編集削除

GON 2003-04-18 18:57:55 No: 77746 IP: [192.*.*.*]

な〜るほど、Merge を使う方法ですネ。
ありがとうございました。
回転が速くて、機転の利く人は羨ましい
限りです。

編集削除