لو تكرمتم مساعدة عاجلة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default لو تكرمتم مساعدة عاجلة

مُساهمة من طرف أبو مهاب مصري في الثلاثاء مايو 08, 2007 12:26 am

لو تكرمتم مساعدة عاجلة

إخواني الكرام

سلام الله عليكم

لدي مشروع عاجل وأتمنى أن أجد من يرد علي طلبي :

المشورع يربط بين صور وليست بوكس ومربع نص

وأريد أن أضع زز بحث بسيط

كان لدي كود خاص به وها هو :

Private Sub ShowFiles(fName As String)
'fName
Open App.Path & "\" & fName & ".txt" For Input As #2
Text1.Text = Input(LOF(2), #2)
Close #2
End Sub

======================

Private Sub Command4_Click()
'ÈÍË
Dim str As String
Dim x As String
x = InputBox("ادخل البحث ", "بحث ", "")
'áÊÃßÏ ÅÐÇ Êã ÇáÙÛØ Úáì ÒÑ cancel
If StrPtr(x) = 0 Then
Exit Sub
End If
'äÞæã ÈÝÊÍ ÇáãáÝ ÇáÑÆíÓí ÇáÐí íÍÊæí Úáì ÃÓãÇÁ ÇáãáÝÇÊ
Open App.Path & "\main.txt" For Input As #1
'ääÔíÁ ÍáÞÉ ÊßÑÇÑ áÞÑÇÁ ÌãíÚ ÇáÃÓØÑ
Do While Not EOF(1)
'äÞÑà ãÍÊæíÇÊ ÇáÓØÑ æäÖÚå Ýí ãÊÛíÑ
Line Input #1, str
'äÞÇÑä åá ÇáÞíãÉ ÇáãÏÎá Ýí äÇÝÐÉ ÇáÃÏÎÇá ÊÓÇæí ãÍÊæì ÇáãÊÛíÑ
If x = str Then
'ÅÐÇ ßÇäÊ ßÐÇáß äÓÊÏÚí ÇáÃÌÑÇÁ ÇáÎÇÕ ÈÚÑÖ ÇáäÕæÕ æÇáÕæÑ æäãÑÑ áå ÇáÞíãÉ ÇáãÏÎáÉ
Call ShowFiles(x)
'äÎÑÌ ãä ÇáÍáÞÉ
Exit Do
End If
Loop
Close #1
'äÞÇÑä Èíä ÇáÞíãÊíä ãÑå ÃÎÑì ÃÐÇ ßÇäÊ Ûí ãÊØÇÈÞÊíä äÙåÑ ÑÓÇáÉ
If x <> str Then
MsgBox "&aacute;&Ccedil; &Ecirc;&aelig;&Igrave;&Iuml; &auml;&Ecirc;&Ccedil;&AElig;&Igrave; &Icirc;&Ccedil;&Otilde;&Eacute; &Egrave;&Ccedil;&Oacute;&atilde; &Ccedil;&aacute;&Igrave;&atilde;&Ccedil;&Uacute;&Eacute; &Ccedil;&aacute;&Ecirc;&iacute; &Ccedil;&Iuml;&Icirc;&aacute;&Ecirc;&aring;&Ccedil; ..&auml;&Uacute;&Ecirc;&ETH;&Ntilde; &Yacute;&aring;&iacute; &Ucirc;&iacute;&Ntilde; &atilde;&Oacute;&Igrave;&aacute;&Eacute; &aacute;&Iuml;&iacute;&auml;&Ccedil;", , ""
End If
End Sub

================

وسؤالي هو ما التعديل الذي أضيفه للكود السابق ليعرض الصورة مع مربع النص

لأن هذا الكود يعرض كبحث المعلومة في النص فقط ولا يعرض الصورة


أتمنى أن يرد علي أحد للضرورة

وجزاكم الله خيرا

محبكم
أبو مهاب

أبو مهاب مصري
عضو
عضو

عدد الرسائل : 5
تاريخ التسجيل : 08/05/2007

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: لو تكرمتم مساعدة عاجلة

مُساهمة من طرف Admin في الأحد يونيو 24, 2007 10:29 am

راجع هذا الرابط بيفيدك ان شاء الله

http://jad4vb.lightbb.com/CaENaIE-EaUE-YiIaCa-EiOs-aYiIaCa-EiOs-IaE-aE-f1/-p792.htm#792


------------------------------
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709
avatar
Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى