طــريقــة عمـل مربـع بحث خاص فيك في برنامجكـ/

^^

اليوم حبيت اوضح لكم طريقة عمل مربع بحث خاص بك ببرنامجك ...

اول شي نقـوم بآدرآج مربع نص textBox1 مثل مافي الصوره

الان والكود هو كودين فقط للـ Textbox في خاصية KeyPress ضغط المفاتح
عشان نبحث بزر انتر وتقدر تخليها بدون KeyPress
نـكتب هذا الكود

اقتباس:

Dim other
If KeyAscii = 13 Then
other = S h e l lExecute(Me.hwnd, "Open", "http:\\" & Text1.Text & "", "", "", 1)
End If

لاتنسون ماتشيلون المساحه بين جملة S h e l l
مثل مافي الصوره

رقم 13 هذا الرقم الخاص برقم انتر وتقدر تغيرهـ الى رقم ثاني

لاكن عليك ان تعرف ارقام الاحرف الخاصه بالكيبورد

والان نكتب كود اخر في الجـنرآلً

اقتباس:

Private Declare Function S h e l l Execute Lib "s h e l l 32.dll" Alias _
"S h e l l ExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

مثل مافي الصورهـ

وبكذا نجرب ونشوف

ان شاءالله الشرح كان واضح

» ۞ عمـل تأثير إحترافـي على الصـورة :[تصميم شعاع]: ۞