| 投稿日 | ： 2004/02/13(Fri) 19:47 |
| 投稿者 | ： nobu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: MSHFlexGridの列幅変更のイベント |
> 参考にはなったのですが、ダブルクリックでイベントを
> 発生させるのではなくて、あくまでもグリッドの最上部の
> 固定行の間でマウスが矢印になっている際にドラッグを
> して、列幅を変更した際にイベントを発生させたいのです。
> （ダブルクリックイベントは他の処理で使用している為）
スマートでは無いですが下記見たいなのはどうですか？
Form を表示後にCommand1_Clickでタイマーを起動させていますが。
Option Explicit
Dim i As Integer
Dim col_width(10) As Long
Private Sub Command1_Click()
Timer1.Interval = 100
End Sub
Private Sub Form_Load()
With MSHFlexGrid1
.Cols = 8
.Rows = 10
For i = 0 To 7
col_width(i) = .ColWidth(i)
Next i
End With
End Sub
Private Sub Timer1_Timer()
With MSHFlexGrid1
For i = 0 To 7
If col_width(i) <> .ColWidth(i) Then
MsgBox (i & " が変換")
col_width(i) = .ColWidth(i)
End If
Next i
End With
End Sub