• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Make MSHFlexGrid Editable without help of any textbox or other control

Make MSHFlexGrid Editable without help of any textbox or other control

Make MSHFlexGrid Editable without help of any textbox or other control

Assumes
'Take an MSHFlexgrid name it as msh1

Rate Make MSHFlexGrid Editable without help of any textbox or other control

• 1
• 2
• 3
• 4
• 5

(23(23 Vote))

'in the keypress event of msh1 write the following code.
Private Sub msh1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
  
    Case vbKeyReturn, vbKeyTab
      'move to next cell.
      With msh1
        If .Col + 1 <= .Cols - 1 Then
          .Col = .Col + 1
        Else
          If .Row + 1 <= .Rows - 1 Then
            .Row = .Row + 1
            .Col = 0
          Else
            .Row = 1
            .Col = 0
          End If
        End If
      End With
      
    Case vbKeyBack
      With msh1
        'remove the last character, if any.
        If Len(.Text) Then
          .Text = Left(.Text, Len(.Text) - 1)
        End If
      End With
      
    Case Is < 32
    
    Case Else
      With msh1
        .Text = .Text & Chr(KeyAscii)
      End With
      
  End Select
End Sub