منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
البحث بتاريخ من نوع نصي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : البحث بتاريخ من نوع نصي (/showthread.php?tid=29552)

الصفحات: 1 2

RE: البحث بتاريخ من نوع نصي - ابراهيم ايبو - 05-05-19

تفضل مثال معدل
 انظر الى التاريخ كبف مكتوب وقارن مع قاعدة البيانات السابقة 
والتعديل الذي حصل على الريجكس
فكرة الكود هي اننا نقوم بالتحقق من اتجاه التاريخ المدخل في مربع النص
والتحقق يتم بناء على اتجاه التاريخ في قاعدة البيانات
فإن كان الاتجاه موافقا للريجكس نقوم بعكس الاتجاه ليتناسب مع تاريخ القاعدة
وان كان مخالفا للريجكس فهذا يعني موافق للقاعدة 


RE: البحث بتاريخ من نوع نصي - محمد خيري - 05-05-19

ربنا يبارك فيك اخي ابراهيم و ارجو المعذرة على تعبك معاي يعوضهالك ربنا بما هو خير ان شاء الله الىن الملف شغال و يتم البحث بزر الامر كنت اتمنى اني اتخلص من زر الامر لكن للضرورة احكام بارك الله فيك و الف شكر و رمضان مبارك ان شاء الله

RE: البحث بتاريخ من نوع نصي - ابراهيم ايبو - 05-05-19

الحمد لله والشكر لله
ولك اخي محمد خيري
كم انا سعيد بحل مشكلتك
رمضان كريم


RE: البحث بتاريخ من نوع نصي - asemshahen5 - 05-05-19

تستطيع التخلص من زر الامر بوضع الكود التالي :

PHP كود :
   'كود تنفيذ الامر بحدث TextBox1_KeyDown'
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        'عند الضغط على زر انتر ينفذ الامر'
        If e.KeyCode = 13 Then
            'إذاكانت التكست فارغة يو قف الكود'
            If TextBox1.Text Is String.Empty Then Exit Sub
            'ضع كودك هنا'
            MsgBox(TextBox1.Text)
        End If
    End Sub
    'كود تنفيذ الامر بحدث TextBox1_TextChanged'
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        'إذاكانت التكست فارغة يو قف الكود'
        If TextBox1.Text Is String.Empty Then Exit Sub
        'ضع كودك هنا'
        MsgBox(TextBox1.Text)
    End Sub 


RE: البحث بتاريخ من نوع نصي - ابراهيم ايبو - 05-05-19

السلام عليكم اخي الحبيب عاصم
هذه هي لذة وحلاوة البرمجة عبر مجموعة او فريق
صدقني اني اعرف الكود واستخدمه في التنقل بين مربعات النصوص هههههه
ضحكت على نفسي لانني لم اعد افكر في شيء سوى ايصال الكود وفكرته والتخلص من الحدث TextBox1_TextChanged

فغابت عني امور شتى نعم الطبخة بلا ملح ههههههه
تسلم ياغالي ياابن سوريتي الحبيبة 
تحياتي وتقييماتي لك .. دمت بخير رمضان كريم


RE: البحث بتاريخ من نوع نصي - asemshahen5 - 05-05-19

رمضان كريم علينا جميعا و كل عام و انتم بخير .

RE: البحث بتاريخ من نوع نصي - محمد خيري - 05-05-19

السلام عليكم.شكرا جزيلا اخي ابراهيم شكرا جزيلا اخي عاصم.و الله سوريا غالية و عزيزة على قلوبنا.اخي عاصم لبس نيتي اتعبك لكن والله معرفت اعمل الكود و ارتبو مثلما شرحت لو كان بمقدورك تضبطو بالملف يلي ارفقتو ولك كل السكر و بارك الله فيك

RE: البحث بتاريخ من نوع نصي - ابراهيم ايبو - 05-05-19

عدنا اخي محمد والعود أحمد
تفضل هذا التعديل بعد اضافة الكود في حدث KeyDown 
اي اكتب التاريح ثم اضغط مفتاح انتر 
اعتقد الامور قد حلت تماما انشاء الله


RE: البحث بتاريخ من نوع نصي - محمد خيري - 05-05-19

اشكرك اخي ابراهيم و بارك الله فيك و في اخي عاصم.تم الحل و الحمد لله.رمضان كريم و كل عام و انتم طيبون