VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/01/18(Sat) 23:54
投稿者： ノッポ
Ｅメール：
ＵＲＬ：
タイトル： Re^6: TextMatrixについて

> Row の値はいくつになっていますか？
> 全体のプログラムを投稿して見て下さい。

    No = 0
    With Form1.MSFlexGrid1
        For Row = .FixedRows To .Rows - 1
                If "あ" = .TextMatrix(Row, 4) Then
                    .Row = Row
                    .Col = 1
                    kana01(1) = .Text
                    .Col = 2
                    kana01(2) = .Text
                    .Col = 3
                    kana01(3) = .Text
                    .Col = 4
                    kana01(4) = .Text
                    .Col = 5
                    kana01(5) = .Text
                    .Col = 6
                    kana01(6) = .Text
                    .Col = 7
                    kana01(7) = .Text
                        With Form1.MSFlexGrid1
                            .Visible = False
                            .Rows = No + 2
                            .Row = No + 1
                                For k = 1 To 7
                                    .Col = k
                                    .Text = kana01(k)
                                Next k
                            .Col = 4
                            .Sort = 5
                            No = No + 1
                            総数.Caption = "登録数 " & No & "名"
                            .RowHeight(No) = 250
                            .Visible = True
                            .Row = 1
                        End With
                End If
      Next Row
    End With

こんな感じですが、分かりますか？

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -