Question

我是新鲜的。

灵活治理

Header 01 .... 31
Values .........

如果我点击表塔顿,那么,我会把重点转移到同一行的下囚室。

Ascii

Private Sub flexgrid_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
  Case 48 To 57
   flexgrid.Text = flexgrid.Text & Chr(KeyAscii)
  Case 46  Dot
   flexgrid.Text = flexgrid.Text & Chr(KeyAscii)
  Case 8
   If Len(flexgrid.Text) > 0 Then
    flexgrid.Text = Left(flexgrid.Text, (Len(flexgrid.Text) - 1))
   End If
  Case Else
   KeyAscii = 0
   Beep
 End Select
End Sub

如何做到这一点。

And also how to change the particular cell background color. Code

    For i = 1 To flexgrid.Rows - 1
        flexgrid.TextMatrix(i, 33) = vbred  It s giving value like  255 
        flexgrid.TextMatrix(i, 33) = .CellBackColor = vbred  It s giving value  False 
    Next i

任何想法和建议?

Answer 1

移转所选栏使用主编(如果你愿意的话,则使用主编)活动,并将贵方的代码放在其中。

Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = Asc(vbTab) Then
        If MSFlexGrid1.Col < MSFlexGrid1.Cols - 1 Then
            MSFlexGrid1.Col = MSFlexGrid1.Col + 1
        End If
    End If

End Sub

为了改变囚室背景颜色,首先将囚室设为囚室,然后将囚室设置。

flexgrid.Row = i
flexgrid.Col = 33
flexgrid.CellBackColor = vbRed

友情链接