تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] لماذا لم يجيب أحد على سؤالي ؟؟؟ - أرجو الرد
#1
السلام عليكم ورحمة الله وبركاته

الأساتذة الكبار بالمنتدى


 أريد كود للبحث في كومبوبوكس  وتظهر النتيجة في ليستبوكس أسفله

بحيث يظهر النتائج المتطابقة مع البحث في ليست بوكس

وأيضا تظهر النتيجة المماثلة لأحرف البحث في نفس الكومبو بوكس الذي يتم الكتابه فيه

كما في الصورة المرفقة


 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد
تم الشكر بواسطة:
#2
السلام عليكم
المكتبه في الاعلى اخي
PHP كود :
Private Const CB_ERR = (-1)
Private Const 
CB_GETDROPPEDSTATE = &H157
Private Const CB_SHOWDROPDOWN = &H14F
Private Const CB_FINDSTRING = &H14C
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongByVal wMsg As LongByVal wParam As LonglParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long

وهذا الكود يقوم بالاكتمال التلقائي لعمية البحث
PHP كود :
Private Sub Combo1_KeyPress(KeyAscii As Integer)
 
   
    Dim CB 
As Long
    Dim FindString 
As String
    
    If KeyAscii 
32 Then Exit Sub
    
       
If SendMessage(Combo1.hWndCB_GETDROPPEDSTATE0&, 0&) = 0 Then
        SendMessage Combo1
.hWndCB_SHOWDROPDOWN1&, 0&
 
   End If
 
   
    If Combo1
.SelLength 0 Then
        FindString 
Combo1.Text Chr$(KeyAscii)
 
   Else
        FindString 
Left$(Combo1.TextCombo1.SelStart) & Chr$(KeyAscii)
 
   End If
 
   
        CB 
SendMessage(Combo1.hWndCB_FINDSTRING, -1ByVal FindString)
 
   If CB <> CB_ERR Then
        Combo1
.ListIndex CB
        Combo1
.SelStart Len(FindString)
 
       Combo1.SelLength Len(Combo1.Text) - Combo1.SelStart
        KeyAscii 
0
    End 
If
End Sub 
ويجب تغيير خاصية ال
 Style الى  Simple Combo

بالتوفيق

الاسم الافتراضي الى الكومبو هو Combo1

بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
تم الشكر بواسطة: hamada salah90
#3
(22-08-21, 11:42 PM)ahmedabdelaliem كتب : السلام عليكم
المكتبه في الاعلى اخي
PHP كود :
Private Const CB_ERR = (-1)
Private Const 
CB_GETDROPPEDSTATE = &H157
Private Const CB_SHOWDROPDOWN = &H14F
Private Const CB_FINDSTRING = &H14C
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongByVal wMsg As LongByVal wParam As LonglParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long

وهذا الكود يقوم بالاكتمال التلقائي لعمية البحث
PHP كود :
Private Sub Combo1_KeyPress(KeyAscii As Integer)
 
   
    Dim CB 
As Long
    Dim FindString 
As String
    
    If KeyAscii 
32 Then Exit Sub
    
       
If SendMessage(Combo1.hWndCB_GETDROPPEDSTATE0&, 0&) = 0 Then
        SendMessage Combo1
.hWndCB_SHOWDROPDOWN1&, 0&
 
   End If
 
   
    If Combo1
.SelLength 0 Then
        FindString 
Combo1.Text Chr$(KeyAscii)
 
   Else
        FindString 
Left$(Combo1.TextCombo1.SelStart) & Chr$(KeyAscii)
 
   End If
 
   
        CB 
SendMessage(Combo1.hWndCB_FINDSTRING, -1ByVal FindString)
 
   If CB <> CB_ERR Then
        Combo1
.ListIndex CB
        Combo1
.SelStart Len(FindString)
 
       Combo1.SelLength Len(Combo1.Text) - Combo1.SelStart
        KeyAscii 
0
    End 
If
End Sub 
ويجب تغيير خاصية ال
 Style الى  Simple Combo

بالتوفيق

الاسم الافتراضي الى الكومبو هو Combo1

بالتوفيق
بارك الله فيك أخي الغالي
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [نقاش] ارجو الرد على السؤال الفلترة والفرز amer2000 4 1,342 01-10-18, 01:20 AM
آخر رد: amer2000
  سؤال الى ذوي الخبرة ....أرجو إيفادي من خبراتكم مشكوريين Rami_Mezo 1 1,070 29-01-18, 05:26 PM
آخر رد: Amir_Alzubidy
  [vb6.0] الأخوة الأعزاء أرجو مساعدتي للضرورة القصوى ....وجزاكم الله تعالى عني كل خير Rami_Mezo 5 1,511 08-11-17, 05:49 PM
آخر رد: Amir_Alzubidy
  أرجو مساعدتكم - ماهو سبب ظهور رسائل الخطأ هذه sher 3 1,799 21-02-16, 11:53 AM
آخر رد: sher
  أرجو المساعدة .. اظهار رسالة انتهاء التاريخ قبل مدة محددة haniblack 2 1,941 15-02-16, 09:35 AM
آخر رد: haniblack
  [vb6.0] خطأ كبير في المشروع النهائي أرجو المساعدة hamada salah90 0 1,224 17-11-15, 06:24 PM
آخر رد: hamada salah90
  [vb6.0] طلب : أرجو من الأساتتذة الكبار بالمنتدى الرد على هذه المشاركة التى ارجو ان تكون مفيدة hamada salah90 4 1,727 06-11-15, 02:15 AM
آخر رد: hamada salah90
Photo [vb6.0] طلب : أرجو من الأساتذه الكبار كود ربط وطباعة textbox في الوورد word hamada salah90 3 2,088 02-07-15, 07:00 PM
آخر رد: Amir_Alzubidy
Photo [vb6.0] طلب : أرجو من الأساتذه الكبار كود ربط ADODC بقاعدة البيانات و DataGrid hamada salah90 2 2,140 13-06-15, 06:57 PM
آخر رد: hamada salah90
  أرجو مساعدتي لحل هذه المشكلة fady013 2 1,662 21-12-14, 08:28 PM
آخر رد: Amir_Alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم