| 投稿日 | ： 2003/03/28(Fri) 03:00 |
| 投稿者 | ： Starfish |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: ダブルクリックで MSFlexGrid の列幅を変更 |
イベントが上がらないのを利用するのもありかなということで、列幅のみであれば
こんな感じでDblClickイベントのコメントのところに、幅を変更する処理を入れれば
いいのでは。（列と幅を両方とも変更する場合は、1行目と1列目の区別が付かないので
後一工夫必要です。）
Dim mblnMouseDown As Boolean
Private Sub MSFlexGrid1_Click()
mblnMouseDown = True
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
mblnMouseDown = True
End Sub
Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
mblnMouseDown = False
End Sub
Private Sub MSFlexGrid1_DblClick()
If Not mblnMouseDown Then
' MSFlexGrid1.MouseCol の列幅を変更する
End If
End Sub