تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] خاصية تعتمد علي Artificial intelligence عند كتابة في قاعدة بيانات اكسيس من خلال VB6
#1
انا مش عارف الخاصية دي اسمها ايه لكنها تسهل كثيرا من العمل موجودة في الاكسيل يمكن الصورة توضح!

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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
تسلم اخي الكريم بارك الله فيك ازاي بقي اعمل ده علي  text box هل نفذ الكود؟
الرد
تم الشكر بواسطة:
#3
(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 TextBoxKeyCode As Integer)
 
   
    On Error Resume Next
    Select 
Case KeyCode
        
'  8 = Backspace, 37=LeftArraw,   38=UpArraw, 39=RightArraw, 40=DownArraw
        ' 
46 Delete   33=PageUp    34=PageDown35=End       36=Home
        Case vbEnter
8373839404633343536
        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(TextThen
            tb
.Text names(i)
 
           tb.SelStart Len(Text)
 
           tb.SelLength Len(names(i))
 
       End If
 
   Next

End 
Function 


جزاك الله عني خير الجزاء ولكن اصبح الموضوع صعب اين اكتب ال function وجربت المثال السابق اصبح هناك اخطاء يقرأها compiler
الرد
تم الشكر بواسطة: عابر سبيل 2 , عابر سبيل 2
#4
وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا


حمل المرفق الأخير في الموقع
الرد
تم الشكر بواسطة: elgokr , جاسم عبد , جاسم عبد
#5
(01-09-18, 07:41 AM)عابر سبيل 2 كتب :
وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا


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

الف الف شكر
الرد
تم الشكر بواسطة: elgokr , جاسم عبد , جاسم عبد
#6
(01-09-18, 07:41 AM)عابر سبيل 2 كتب :
وجدت لك مثال في أحد المواقع أفضل مما أشرت له سابقا


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة كتابة المسار داخل قيمة في الريجيستري الرجل الرمادي 3 95 10-02-19, 08:05 PM
آخر رد: Amir_Alzubidy
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 15 4,072 08-02-19, 03:02 PM
آخر رد: أبوبكر سويدان
  سؤال بخصوص النقط والفواصل العشرية وغيرها في قاعدة البيانات hannileo 3 131 24-01-19, 01:58 PM
آخر رد: عبدالله الصافي
  كيفية عمل ازرار مأخوذة او مربوطة مع قاعدة البيانات hannileo 6 276 14-01-19, 10:07 AM
آخر رد: hannileo
  [سؤال] فتح ملف إكسل من خلال الفيجوال بيسك 6 Abdellah 6 1,250 13-01-19, 02:26 PM
آخر رد: aminou7
  طريقة فتح فورم من خلال قائمة منسدلة بالليبل مصمم هاوي 4 154 10-01-19, 12:10 AM
آخر رد: مصمم هاوي
  [Acces2003] ازاى اعمل قاعدة بيانات مشتركة ahmedhossam 4 2,355 25-12-18, 12:58 PM
آخر رد: aboezzat84
  [سؤال] كيفية تشغيل قاعدة بيانات برنامج VB6+Access على شبكة داخليه aboezzat84 2 209 25-12-18, 12:34 PM
آخر رد: aboezzat84
  تعبئة بيانات الكومبوكس من جدول SQLSERVER مصمم هاوي 1 128 09-12-18, 11:27 PM
آخر رد: مصمم هاوي
  [vb6.0] جلب بيانات من combo وتحديد webbrowser tempman 2 174 05-12-18, 01:04 PM
آخر رد: tempman

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


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