[mohamed arafa]

انا مش عارف الخاصية دي اسمها ايه لكنها تسهل كثيرا من العمل موجودة في الاكسيل يمكن الصورة توضح!

سؤالي بقي هل ممكن اعمل حاجة كده بكود معين في الفيجوال بيسيك 6 تسهل عملية البحث او حتي الكتابة او الحذف؟

[mohamed arafa]

تسلم اخي الكريم بارك الله فيك ازاي بقي اعمل ده علي  text box هل نفذ الكود؟

[mohamed arafa]

(01-09-18, 06:40 AM)عابر سبيل 2 كتب :

عدلت قدر الإمكان

على الكود في الموضوع المشار إليه في مشاركتي السابقة

إعمل مشروع جديد

ثم ضع أداة TextBox ثم ضع هذا الكود

PHP كود :

Option Explicit

Dim names(5) As String

Private Sub Form_Load()
    names(0) = "ahmed"
    names(1) = "amal"
    names(2) = "muhammad"
    names(3) = "mahmoud"
    names(4) = "saeed"
    names(5) = "salah"
End Sub

' الربط مع دالة الإكمال التلقائي
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    AutoSel Text1, KeyCode
End Sub

' دالة الإكمال التلقائي
Function AutoSel(tb As TextBox, KeyCode As Integer)
    
    On Error Resume Next
    Select Case KeyCode
        '  8 = Backspace, 37=LeftArraw,   38=UpArraw, 39=RightArraw, 40=DownArraw
        ' 46 = Delete,    33=PageUp,     34=PageDown, 35=End,        36=Home
        Case vbEnter, 8, 37, 38, 39, 40, 46, 33, 34, 35, 36
        Exit Function
    End Select
    
    Dim Text As String
    Text = tb.Text
    
    Dim i As Long
    Dim Temp As String
    
    For i = 0 To UBound(names)
        Temp = Left(names(i), Len(Text))
        If LCase(Temp) = LCase(Text) Then
            tb.Text = names(i)
            tb.SelStart = Len(Text)
            tb.SelLength = Len(names(i))
        End If
    Next

End Function 


جزاك الله عني خير الجزاء ولكن اصبح الموضوع صعب اين اكتب ال function وجربت المثال السابق اصبح هناك اخطاء يقرأها compiler

[عابر سبيل 2]

وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا

I want to Auto Complete My Text box in Visual Basic 6

حمل المرفق الأخير في الموقع

Opps !.zip

[mohamed arafa]

(01-09-18, 07:41 AM)عابر سبيل 2 كتب :

وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا

I want to Auto Complete My Text box in Visual Basic 6

حمل المرفق الأخير في الموقع

Opps !.zip

الف الف شكر

[mohamed arafa]

(01-09-18, 07:41 AM)عابر سبيل 2 كتب :

وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا

I want to Auto Complete My Text box in Visual Basic 6

حمل المرفق الأخير في الموقع

Opps !.zip

المشكلة انه بيظهر الاسم المخزن من قبل ولكن لا يمكن الاكمال عليه