السلام عليكم
ارجو ان يكون الجميع بخير وعافية
ممكن مساعدة لكي انتهي من مشرعي الدي سوف اقدمه في المسابقة يوم الخميس باذن الله
المشروع هو عبر عن برنامج يفحص اذ كان الموقع موجود او غير موجود
المهم المشاكل ليس هنا المشكل لديا listbox فيه 10 موقع مثلا واريد ان افحصهم
انا لم اجد الكود المنسب ل listbox لكي يفحص عدة موقع
ارجو منكم المساعد او حتى بانصيحة لكي اتم مشروعي لانه مهم لدي
وبرك الله فيكم
تشكر اخي على الرد واهتممك بمشكلة
المشكل انا اريد التعديل على مشروعي او على الارجح المساعد في كود يعمل Post Get >> My List
نعمل مثل لكي اوضح قليلا
اقتباسIf text1.text = "" ThenMsgBox "Enter Any words to search"
Else
WebBrowser1.Navigate "http://www.google.com/search?hl=en&q=" + Text1.Text
End If
انا اريد اغير Text1.Text ب List1.Test
وبرك الله فيكم
تم تعديل هذه المشاركة بواسطة مسوق الكترونى في 2 أكتوبر 2011 في 09:55
مسوق الكترونى كتب:تشكر اخي على الرد واهتممك بمشكلة
المشكل انا اريد التعديل على مشروعي او على الارجح المساعد في كود يعمل Post Get >> My List
نعمل مثل لكي اوضح قليلا
انا اريد اغير Text1.Text ب List1.Test
وبرك الله فيكم
بسم الله الرحمن الرحيم
أخى العزيز :/
الموضوع بمنتهى السهولة يمكن حلة بالدالة FOR
و سأحاول التعديل على الكود الذي كتبته
ولكن أولا يجب أن نعرف متغير لنستخدمه في الدالة for
أرجو ان اكون قد حللت المشكله و انا حاضر لأى إستفسار
و السلام ختام ....
السلام على من إتبع السلام وخشي وجه ربه ذو الجلال والإكرام
Dim i As Long For i = 0 To List1.ListCount - 1 If List1.List(i) = "" Then MsgBox "Enter Any words to search" Else WebBrowser1.Navigate "http://www.google.com/search?hl=en&q=" + List1.List(i) End If Next i
تم تعديل هذه المشاركة بواسطة mamababadada في 4 أكتوبر 2011 في 00:50
Many of life’s failures are people who did not realize how close they were to success when they gave up
Thomas Edison
السلام عليكم
برك الله فيكم على الكود ياشباب
المشاكل تعدبل بسيط فقط هههههههه
مشكورين فعلا ياشباب ولكن لزال مشاكل اخر مع ListBox
وهو عدام معرفة الموقع موجود او غير موجود الا في الموقع الاخير HTTP/1.1 200 OK
وفي بعظ الاحين يتوقف ويضهر لي خطاء عندم لا يجد الموقع
هل من كود يتخط هد المشاكل وانا جربت كود ولكن لم ينجح معي وبقي البرنامج متوقف تماما
اقتباسPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
lngLoopCntr = 0 ' although it initializes to 0 , but it is a gud practise to initialize variable
lngMilliSecs = 1 '
Do While True
Sleep 10
lngLoopCntr = lngLoopCntr + 10
If lngLoopCntr > lngMilliSecs Then Exit Do
Loop
السلام عليكم و رحمة الله و بركاته
جرب التالي
print list1.list(2)
سوف تقوم هذه التعليمة بطباعة البند الثالث من القائمة و ذلك لان العد يبدأ من ال 0