Advertisement
C_Volume2 Databases/ Data Access/ DAO/ ADO #80467

Make MSHFlexGrid Editable without help of any textbox or other control

Make MSHFlexGrid Editable without help of any textbox or other control

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source
'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
Original Comments (3)
Recovered from Wayback Machine