mshflexgrid

[hosseinrp]

می خواهم توسط کلیدهای دلخواه (مثلا a , z ) بتوانم روی فلکس گرید حرکت کنم و ردیف آن را تغییر دهم
لطفا راهنمایی کنید

[رضا علوی]

:چشمک: سلام دوست گرامی
یک نمونه کد برای شما اینجا در این زمینه قرار می دهم.امیدوارم مشکل شما حل گردد.


Private Sub FlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyA
If FlexGrid1.Row = 1 And FlexGrid1.Col > 1 Then
FlexGrid1.Col = FlexGrid1.Col - 1
FlexGrid1.Row = FlexGrid1.Rows - 1
End If
Case vbKeyZ
If FlexGrid1.Row = FlexGrid1.Rows - 1 And FlexGrid1.Col < FlexGrid1.Cols - 1 Then
FlexGrid1.Col = FlexGrid1.Col + 1
FlexGrid1.Row = 1
End If
End Select
End Sub