mshflexgrid [بایگانی] - برنامه نویس

hosseinrp

دوشنبه 23 آبان 1384, 02:27 صبح

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

رضا علوی

چهارشنبه 25 آبان 1384, 11:00 صبح

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

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