(09-06-14, 12:22 PM)احمد129 كتب :

تفضل يأخي مجموعة برامج بالفيجوال بيسك منها برنامج دليل الهاتف
أضغط هنا للتحميل

(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

.....

(09-06-14, 03:33 PM)vbnet كتب : .....

منقول للإفادة

يمكن ترتيب الجدول ترتيباً أبجدياً مع إعادة ترقيم الأسطر (إذا لزم الأمر)، ويوضع عادة بعد ملئ الجدول أو الإضافة أو التعديل أو الحذف

كود :

' ترتيب الجدول ترتيباُ أبجدياً
MSFlexGrid1.Sort = flexSortStringAscending

' إعادة ترتيب أرقام الأسطر على أساس العمود رقم 0 صفر
Dim row As Integer: For row = 1 To MSFlexGrid1.rows - 1
    MSFlexGrid1.TextMatrix(row, 0) = row
Next row

الله يكرمك ويرزقك الفردوس الاعلى يارب

لو ممكن ايضا المحاذاه للبيانات فى المنتصف كيف ؟؟؟
بارك الله فيك ..
.....

(09-06-14, 04:27 PM)king2512010 كتب : ...
لو ممكن ايضا المحاذاه للبيانات فى المنتصف كيف ؟؟؟
...