نوشته شده توسط vbhamed سلام از این کد استفاده کن فقط ارتفاع سطرهات مثل هم باشه Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) With MSFlexGrid1 .Row = y / (.RowHeight(0) + 10) + .TopRow - 1 End With '... '... '... End Sub خیلی ممنون مشکل به کمک شما برطرف شد.
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) With MSFlexGrid1 .Row = y / (.RowHeight(0) + 10) + .TopRow - 1 End With '... '... '... End Sub
قوانین سایت