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

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

フレキシブルグリッド複数選択不可(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2007/07/15 20:16
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[グリッド関係][データベース][]                                      *
* キーワード：フレックスグリッド,MSHFlexGrid,複数行,選択できない,選択出来ない,    *
***********************************************************************************

------------------------------------------------------------------------------------
No.652 Re：フレキシブルグリッド複数選択不可　　投稿者：ゆう(U) [1999/08/20(金)2：26分]
------------------------------------------------------------------------------------

これならいかが・・・

Option Explicit
Private blnMouseDown As Boolean
Private blnShift As Boolean

Private Sub Form_Load()
  With MSFlexGrid1
    .FocusRect = flexFocusNone
    .HighLight = flexHighlightAlways
    .SelectionMode = flexSelectionByRow
  End With
End Sub

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
  If Shift And vbShiftMask = vbShiftMask Then
    blnShift = True
  End If
End Sub

Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyShift Then
    blnShift = False
  End If
End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, _
                        Shift As Integer, x As Single, y As Single)
  With MSFlexGrid1
    If .MouseRow < .FixedRows Then
      If .MouseCol < .FixedCols Then
        .Row = .FixedRows
        .ColSel = .Cols - 1
      End If
    Else
      .Row = .MouseRow
      .ColSel = .Cols - 1
    End If
    If Button = vbLeftButton Then
      blnMouseDown = True
    End If
  End With
End Sub

Private Sub MSFlexGrid1_MouseMove(Button As Integer, _
                       Shift As Integer, x As Single, y As Single)
  With MSFlexGrid1
    If blnMouseDown Then
      If .Row = .MouseRow Then Exit Sub
      If .MouseRow < .FixedRows Then
        If .Row = .FixedRows Then Exit Sub
        .Row = .FixedRows
      Else
        .Row = .MouseRow
      End If
      .ColSel = .Cols - 1
    End If
  End With
End Sub

Private Sub MSFlexGrid1_MouseUp(Button As Integer, _
                          Shift As Integer, x As Single, y As Single)
  If Button = vbLeftButton Then
    blnMouseDown = False
  End If
End Sub

Private Sub MSFlexGrid1_SelChange()
  Static blnFlg As Boolean

  If Not blnFlg Then
    blnFlg = True
    If blnShift Then
      With MSFlexGrid1
        .Row = .RowSel
        .ColSel = .Cols - 1
      End With
    End If
    blnFlg = False
  End If
End Sub

念のため・・・

Private Sub Form_Load()
  With MSFlexGrid1
    .FocusRect = flexFocusNone
    .HighLight = flexHighlightAlways
    .SelectionMode = flexSelectionByRow
    .ColSel = .Cols - 1
  End With
End Sub

と、した方が良いみたいですね。