サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2009/12/27 13:25
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[グリッド関係][][] *
* キーワード：MSHFlexGrid,フレックスグリッド,,,, *
***********************************************************************************
ダブルクリックで MSFlexGrid の列幅を変更 - 匿名1412 2003/03/27-13:36No.3273
-----------------------------------------------------------------------------------
Re^3: ダブルクリックで MSFlexGrid の列幅を変更 - Starfish 2003/03/28-03:00 No.3283
-----------------------------------------------------------------------------------
イベントが上がらないのを利用するのもありかなということで、列幅のみであればこんな感じでDblClickイベントのコメントのところに、幅を変更する処理を入れればいいのでは。
（列と幅を両方とも変更する場合は、1行目と1列目の区別が付かないので後一工夫必要です。）
Option Explicit
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 の列幅を変更する
MSFlexGrid1.ColWidth(MSFlexGrid1.MouseCol) = 500
End If
End Sub
 |
