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

投稿日: 2003/03/06(Thu) 21:17
投稿者花ちゃん
Eメール
URL
タイトルRe^3: MSFlexGridの複数検索

> thenのあとがちょっと分からないんですよ。
行単位で検索しヒットしたら、その行をもう一つのグリッドのMSFlexGrid2に順に
表示していきたいのです。

そのための Clip です。

> Clipとは?使ったことがなくMSDNで調べましたがいまいち分かりません。

調べたのならそこに使用例が書いていたと思うのですが、試しましたか?
面倒だから試さなかったのですか?
覚える気があるなら使用例等を色々いじって見て下さい。そうすれば理解ができるかと
思います。
ここのMSFlexGrid関係を一通り目を通して試してみれば大体の事はできるようになりますよ!
下記をよく理解して見て下さい。理解しないと(人頼みでは)応用ができませんよ

Private Sub Command1_Click()
    MSFlexGrid2.Rows = 1
    Dim Ro     As Long
    Dim Co     As Long
    Dim myStr  As String
    Dim N      As Long
    With MSFlexGrid1
        For Ro = .FixedRows To .Rows - 1
            .Row = Ro
            .Col = 0
            .ColSel = .Cols - .FixedCols
            myStr = .Clip
            If InStr(myStr, Text1.Text) > 0 And _
                            InStr(myStr, Text2.Text) > 0 Then
                With MSFlexGrid2
                    .Row = N
                    .AddItem " ", .Row + 1
                    .Row = N + 1
                    .Col = 0
                    .ColSel = .Cols - .FixedCols
                    .Clip = myStr
                    myStr = ""
                    N = N + 1
                End With
            End If
        Next Ro
    End With
End Sub


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- Web Forum -