21-12-20, 04:05 AM
السلام عليكم
ضع هذا الكود في Command3_Click
ضع هذا الكود في Command3_Click
PHP كود :
Private Sub Command3_Click()
' استدعاء الكود الموجود في LOAD
Call Form_Load
''''''''''''''''''''''''''''''''''''''''
Dim k As Integer
Dim T As Integer
'هذه الحلقة تمر على كل الصفوف
For k = 1 To mshflexgrid1.Rows - 1
mshflexgrid1.Row = k
If Trim(Text1.Text) = Trim(mshflexgrid1.TextMatrix(k, 1)) Then
'وهذه الحلقة تلون كل الصف
'يمكن الغائها وتلوين خلية واحة او حسب الحاجة
For T = 0 To mshflexgrid1.Cols - 1
mshflexgrid1.Col = T
mshflexgrid1.CellBackColor = RGB(255, 161, 224)
Next T
End If
Next k
mshflexgrid1.Col = 0
mshflexgrid1.Row = 0
End Sub
