MSFlexGrid

VB6SP6を用いています。MSFlexGridですが、固定行をラベルに用いています。このグリッドをクリックして処理を行っています。固定行では、クリックを無視してほしいのです。固定行をクリックしても、grid.Rowの値は0ではなく、押してもいない、１が返ってきます。本来はクリックしたくない場所ですが、処理を行う１行目をクリックしたことと同じになってしまいます。
ラベル部分をクリックしないようにと伝えていますが、やはり具合が悪いです。
良い、回避方法はないでしょうか。

No.3 ベストアンサー 回答者： GatyaBu 回答日時： 2006/03/20 21:47

#2です。

デバッグはどうおこなっていますか?MouseRowはデバッグ中にマウスが
動くと答えが変わったりするので。
私の方ではMsFlexGridをFormに貼り付けてテストしたところ、
うまく切り抜けてるようです。
以下に貼り付けますので参考までに。
あとMouseRowについてはヘルプもみて、どんな値が返るのか理解してくださいね。
(私の環境　WindowsXP VB6SP2)
Private Sub Form_Load()
With MSFlexGrid1
.Rows = 10
.Cols = 10
.FixedCols = 2
.FixedRows = 2
End With
End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
With MSFlexGrid1
If .MouseRow < 2 Then Exit Sub 'ここでは2行を固定行にしているので、固定行の位置の時、クリック処理をせず抜けるようにしています。固定行の時はMsgboxの処理はしないようにしています。
MsgBox .MouseRow
End With
End Sub

この回答へのお礼

ありがとうございました。
解決できました。

お礼日時：2006/03/27 10:31

No.2 回答者： GatyaBu 回答日時： 2006/03/18 22:17

クリックイベント等で、

MouseCol MouseRowプロパティで判定されてはどうでしょうか?
ヘルプでは、現在のマウス ポインタの位置を行と列の座標で
返します。とあるので、その値が、durian_skさんが固定行としている
行であれば、クリック処理をしないようにするとか・・・

この回答へのお礼

ありがとうございます。
値を見たのですが、MouseRowがどこを押しても
14という値なのです。
クリック処理をしないようというのはどのようにするのでしょうか？

お礼日時：2006/03/20 07:29

No.1 回答者： noname#22222 回答日時： 2006/03/18 19:30

conX、conYの値は質問者で求めて下さい。

Dim mlngX As Single
Dim mlngY As Single
Const conX = 90
Const conY = 90

Private Sub MSHFlexGrid1_Click()
　　MsgBox MSHFlexGrid1.Row * Abs((mlngY > conY) * (mlngX > conX))
End Sub

Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
　　mlngX = x
　　mlngY = y
End Sub