09-06-14, 03:15 PM
(09-06-14, 02:46 PM)vbnet كتب : .....
منقول من جزء من برنامج مع تعديل بسيط ليناسب طلبك
كود :
Private Sub Command1_Click()
With MSFlexGrid1
Dim row As Integer: For row = 1 To .Rows - 1
If InStr(.TextMatrix(row, 1), Me.Text1.Text) > 0 Then
.FocusRect = flexFocusNone
.SelectionMode = flexSelectionByRow
.row = row
.Col = .Cols - 1
.ColSel = 1
.TopRow = IIf(row > 1, row - 1, row)
Exit For
End If
Next
End With
End Sub
.....
الله اكبر ... ماشاء الله
ربنا يزيدك من علمه يارب
ويجعله فى ميزان حسناتك
بصراحة انته إنسان محترم جدا ... الله يخليك
جزاك الله كل الخير
