Advertisement
7_2009-2012 Databases/ Data Access/ DAO/ ADO #228376

Make MSHFlexGrid Editable without help of any textbox or other control

Make MSHFlexGrid Editable without help of any textbox or other control

AI

Resumen de IA: 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.

Código fuente
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
Comentarios originales (3)
Recuperado de Wayback Machine