VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

ダブルクリックで MSFlexGrid の列幅を変更(VB6.0) ( No.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