21-03-14, 01:55 AM
دا كود زى فلتر او بحث
Dim a As String
Dim b As String
a = textbox1.Text
b = InStr(textbox2.Text, a)
If b Then
textbox2.Focus()
textbox2.SelectionStart = b - 1
textbox2.SelectionLength = Len(a)
Else
MsgBox("No text Found!")
End If
كل اللى عليك التالى
يا تستخدم الكود كا زر بحث عشان يحدد الحاجة اللة محتجها
يا تحول الكود من خلال عبارة textbox1.Text
للجملة اللى محتاج البحث فيها
وتدمج كود النسخ بحيث نستخلك الكلمة بعد البحث عليها فى الذاكرة
تحياتى
Dim a As String
Dim b As String
a = textbox1.Text
b = InStr(textbox2.Text, a)
If b Then
textbox2.Focus()
textbox2.SelectionStart = b - 1
textbox2.SelectionLength = Len(a)
Else
MsgBox("No text Found!")
End If
كل اللى عليك التالى
يا تستخدم الكود كا زر بحث عشان يحدد الحاجة اللة محتجها
يا تحول الكود من خلال عبارة textbox1.Text
للجملة اللى محتاج البحث فيها
وتدمج كود النسخ بحيث نستخلك الكلمة بعد البحث عليها فى الذاكرة
تحياتى
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى
لكل من يقوم بالمساهمةفى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية