各セル個別にToolTipTextを表示する
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
MSFlexGridのToolTipTextは１個しか表示できません。そこで、MouseMoveイベントと配列データを使って実現します。

データ部分等は各自の環境によりシーケンシャルファイルで作成し、起動時に配列に読込だりして使って下さい。

例えば、前回の成績を読込んでおけば、今回の成績と比較が簡単に出来たりアイデア次第では使い道が増えるのでは。　　　　　　　　　（０３９）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　（０３９）

Private Sub MSFlexGrid1_MouseMove(Button As Integer, _
              　　　　　　　　     Shift As Integer, x As Single, y As Single)
'MSFlexGrid のセル個別に ToolTipText を設定表示
    If TTTShow = True Then
        Dim i As Integer
        Dim j As Integer
        Dim Ro As Integer
        Dim Co As Integer
        'データ配列の確保
        Dim Msg(10, 10) As String
        '表示用データを作成
        For i = 0 To 10
            For j = 0 To 10
                Msg(i, j) = i & "行目の" & j & "列目のセル"
            Next j
        Next i
        'マウス位置の読み込み
        Ro = MSFlexGrid1.MouseRow
        Co = MSFlexGrid1.MouseCol
        '該当セルとデータの照合
        If MSFlexGrid1.MouseRow = Ro And MSFlexGrid1.MouseCol = Co Then
            '該当セルにToolTipTextを表示
            MSFlexGrid1.ToolTipText = Msg(Ro, Co)
        End If
    End If
End Sub




02/01/05