MSFlexGridで↑や↓押下時の処理

質問

現在ＶＢの勉強をしております（WindowsXｐ、VB6.0）

MSFlexGridの行を選択すると、行のデータをテキストボックスへ表示する、といった処理を実装したんですが、キーボードの「↑」や「↓」押下時に、選択行は変わるんですが、クリックイベントでもフォーカスイベントでも処理を拾えません・・・。

まだ試してはいないんですが、keyDownイベントで、「↑」「↓」を判断し、更にグリッドにフォーカスが存在する場合に、１行上（または下）のデータをテキストボックスに表示する。
という処理をしないと不可能でしょうか？

どう考えても上記の方法はスマートでは無いなぁと思い、何か良い方法があれば教えていただきたく質問させていただきました。

よろしくお願いいたしますm(__)m

回答No.3

noname#140971 · ベストアンサー

Private Sub MSFlexGrid1_SelChange()
　　Static intNowRow As Integer <----- 静的変数として現行行を記憶する変数を宣言
　　Dim intNewRow As Integer　　<----- カーソル移動後の行を格納する変数を宣言

　　intNewRow = MSFlexGrid1.Row　　<----- カーソル移動後の行を intNewRow に代入
　　If intNewRow <> intNowRow Then　<----- 記憶している現行行と新しい行の行番号を比較
　　　　intNowRow = intNewRow　<----- 新しい行の値をを現行行を記憶する intNowRow に代入
　　　　MsgBox intNowRow　<--------- MsgBox 関数で　 intNowRow　を表示。
　　End If　<----------------------- End If
End Sub

カーソル移動は上下だけでなく左右もあります。
そのために、カーソルが移動したからと言って新しい行へ移動したかどうかは不明です。
で、上下移動したかどうかを知るには新しい行番号と現行の行番号との比較が必要です。
新しい行番号と現行の行番号ろが異なる限りで＜行のデータをテキストボックスへ表示する＞を。
そこが MsgBox関数の位置に書くべきコードです。

お礼

ご丁寧にありがとうございますm(__)m

参考にさせていただき、行いたい処理が実現出来ました！

本当にありがとうございますm(__)m

回答No.2

noname#140971

補足:　RowColChange()も・・・。

回答No.1

noname#140971

＞クリックイベントでもフォーカスイベントでも処理を拾えません・・・。

・クリックしていないので当然です。
・フォーカスが変化しないので当然です。

Private Sub MSFlexGrid1_SelChange()
　　Static intNowRow As Integer
　　Dim intNewRow As Integer

　　intNewRow = MSFlexGrid1.Row
　　If intNewRow <> intNowRow Then
　　　　intNowRow = intNewRow
　　　　MsgBox intNowRow
　　End If
End Sub

お礼

ご回答ありがとうございます。

＞・クリックしていないので当然です。
＞・フォーカスが変化しないので当然です。
やｈりそうですよね・・・。

コードを記載していただきありがたいのですが、何のことでしょうか？
グリッドにチェンジイベントって感じだと思うのですが、よく分かりません・・・。