استفسار في ظهور شاشة البحث مكتوب عليها

تستطيع عمل ذلك بواسطة تايمر وهي احدى الطرق

مثلا

ضع زر(Command1) على الفورم واكتب الشفرة التالية

Private Sub Command1_Click()
 'HnHn

Command1.Caption = "بحث"
Timer1.Enabled = True
Timer1.Interval = 3000

End Sub

ثم ضع اداة تايمر (Timer1) واكتب الشفرة التالية

Private Sub Timer1_Timer()

MsgBox "تمت عملية البحث ولم يتم العثور على بيانات"
Command1.Caption = "بحث"
Timer1.Enabled = False

End Sub

تستطيع ان تستبدل كود الرسالة بكود البحث الخاص باداة الفليكس ..

ايضا تستطيع تغيير الرسالة من الزر الى اي شكل انت تريده .... فقط هذه هي الفكرة

.

ضع المثال وسيتم التعديل عليه إن شاء الله

السلام عليكم

انظر هذا المثال

تحياتي ....،،،،،،،

Serch_Delay.zip