طريقة عرض هذه المواضيع بهذا الشكل

طريقة عرض هذه المواضيع بهذا الشكل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة عرض هذه المواضيع بهذا الشكل (/showthread.php?tid=25912)

الصفحات: 1 2 3

RE: طريقة عرض هذه المواضيع بهذا الشكل - elgokr - 30-07-18

بخصوص كود الرسالة

يمكنك حذف هذا الكود

كود :

                   Dim t As New Threading.Thread(AddressOf closeMsgbox)

                    t.Start(1) '1 = 1 second

                    ii += 1

                    MsgBox("الصفحة رقم " & ii)

وياليه هذا الكود

كود :

  Private Declare Sub keybd_event Lib "user32" _

                     (ByVal bVk As Byte,

                      ByVal bScan As Byte,

                      ByVal dwFlags As Byte,

                      ByVal dwExtraInfo As Byte)

   Private Const VK_RETURN As Byte = &HD

   Private Const KEYEVENTF_KEYDOWN As Byte = &H0

   Private Const KEYEVENTF_KEYUP As Byte = &H2

   Private Sub closeMsgbox(ByVal delay As Object)

       Threading.Thread.Sleep(CInt(delay) * 1000)

       AppActivate(Me.Text)

       keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0)

       keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0)

   End Sub

واذا كنت تريد اخفاء الرسالة فقط مؤقت حتى تري ماذا سيحدث

يكفى حذف هذا اجزء

كود :

MsgBox("الصفحة رقم " & ii)

اما بخصوص المرفق

فالمشكلة انك قمت بالتعديل على كل شئ الا الجزء المهم وهو

كود :

htm.Substring

حيث انك قمت بجعل القيمة 40 كما هى

لذلك جلب رابط الصورة وايضاً رابط الموضوع غير صحيح

حتى توضح الصورة لك راجع هذا الرابط

https://www.youtube.com/watch?v=SI9hBRA0414

تحياتى لك

وتمنياتى لك التوفيق

RE: طريقة عرض هذه المواضيع بهذا الشكل - ابو روضة - 30-07-18

إقتباس :اما بخصوص المرفق
فالمشكلة انك قمت بالتعديل على كل شئ الا الجزء المهم وهو

كود :

كود :

htm.Substring

حيث انك قمت بجعل القيمة 40 كما هى
لذلك جلب رابط الصورة وايضاً رابط الموضوع غير صحيح

بخصوص الرسالة واضح انها لن تعمل بدونها...

وبالنسبة للمرفق لم أصل لنتيجة للأسف أخى.

القيمة 40 بتأتى بناءا أصلا على ايه ؟

RE: طريقة عرض هذه المواضيع بهذا الشكل - elgokr - 30-07-18

اذا قمت بمراجعة الفيديو السابق

ستعلم الـ 40 بتاتي بناءاً على ايه

لهذا السبب اعلم ستقوم بالسؤال فوضعت لك

فيديو ويضح ما وظيفتها....

تحياتى لك

وتمنياتى لك التوفيق

RE: طريقة عرض هذه المواضيع بهذا الشكل - ابو روضة - 30-07-18

(30-07-18, 11:23 PM)elgokr كتب :
اذا قمت بمراجعة الفيديو السابق

ستعلم الـ 40 بتاتي بناءاً على ايه

لهذا السبب اعلم ستقوم بالسؤال فوضعت لك

فيديو ويضح ما وظيفتها....

تحياتى لك

وتمنياتى لك التوفيق

طب ما تفهمهالى انت أخى لو تسمح لآن الفيديو مش مفهوم لى " انجليزى ضعيف "

لا اريد كود جاهز كما تظن بل اريد فهمها

RE: طريقة عرض هذه المواضيع بهذا الشكل - elgokr - 31-07-18

ولا يهمك اخى ابو روضة

واسف لعدم التوضيح اكثر فى الرد السابق

الفكرة كلها عبارة عن تحديد جزء معين من النص

يبداء عند العدد محدد ويبداء من العد 0 الى العدد المحدد الاخر

فملاً انت عندك قيمة نص تحتوى على ابو روضة

كود :

TextBox1.text = Name.IndexOf(0,2)

فى اللحظة دى هيظهر فقط اسم ابو

بحيث بداء من صفر ومن ثم عدد 3 احرف وهو 0 - 1 - 2

لتكمل الصورة اكتر عن الموضوع تابع الرابط التالى

http://vb4arb.com/vb/showthread.php?tid=18391

ستجد به شرح مفصل عن كيفية الاستخدام

وبخصوص هذا الرابط احببت ان استخدم كود منه ستجده فى المشروع المرفق

بحيث تعرف الاكواد المستخدمة ماذا تعنى وكيفية استخدامه مستقبلياً

السورس + البرنامج بعد التعديل وتشغيل وجلب البيانات كما تريد مرفق

المشكلة السابقة لعدم جلب الصورة والرابط ليس فقط المشكلة فى رقم 40

بال فى محتوى الصفحة لاكواد اللـ Html حيث انه تظهر فى معرف htm

بالاحرف الكبيرة كما ان ترتيب الكلمات مختلفة عن ما يعرض فى المتصفح الاخر

لذلك تم كتابة الكود الصحيح ولجلب رابط الصورة ورابط الموضوع وستجده فى السورس

تحياتى لك

وتمنياتى لك التوفيق

RE: طريقة عرض هذه المواضيع بهذا الشكل - ابو روضة - 31-07-18

(31-07-18, 01:28 AM)elgokr كتب :
ولا يهمك اخى ابو روضة

واسف لعدم التوضيح اكثر فى الرد السابق

الفكرة كلها عبارة عن تحديد جزء معين من النص

يبداء عند العدد محدد ويبداء من العد 0 الى العدد المحدد الاخر

فملاً انت عندك قيمة نص تحتوى على ابو روضة

كود :

TextBox1.text = Name.IndexOf(0,2)

فى اللحظة دى هيظهر فقط اسم ابو

بحيث بداء من صفر ومن ثم عدد 3 احرف وهو 0 - 1 - 2

لتكمل الصورة اكتر عن الموضوع تابع الرابط التالى

http://vb4arb.com/vb/showthread.php?tid=18391

ستجد به شرح مفصل عن كيفية الاستخدام

وبخصوص هذا الرابط احببت ان استخدم كود منه ستجده فى المشروع المرفق

بحيث تعرف الاكواد المستخدمة ماذا تعنى وكيفية استخدامه مستقبلياً

السورس + البرنامج بعد التعديل وتشغيل وجلب البيانات كما تريد مرفق

المشكلة السابقة لعدم جلب الصورة والرابط ليس فقط المشكلة فى رقم 40

بال فى محتوى الصفحة لاكواد اللـ Html حيث انه تظهر فى معرف htm

بالاحرف الكبيرة كما ان ترتيب الكلمات مختلفة عن ما يعرض فى المتصفح الاخر

لذلك تم كتابة الكود الصحيح ولجلب رابط الصورة ورابط الموضوع وستجده فى السورس

تحياتى لك

وتمنياتى لك التوفيق

الله يبارك بعمرك اخى الجوكر ويجزيك كل الخيرات والبركات...

فعلا نجحت مائة فى المائة لكن لما بضغط على اى رابط لانتقل للموضوع بتم النقل للصفحة الرئيسية

ليس الصفحة المعنية.

RE: طريقة عرض هذه المواضيع بهذا الشكل - elgokr - 31-07-18

بخصوص الرابط الذى يقوم بالتحويل الى الصفحة الرئيسية

كل ما عليك التعديل على هذا السطر

كود :

lbl.Tag = "http://www.storiesrealistic.com/" & lnk

بان تجعله بهذا الشكل

كود :

lbl.Tag = lnk

وستجد بان رابط الموضوع يعمل بدون مشكلة

تحياتى لك

وتمنياتى لك التوفيق

RE: طريقة عرض هذه المواضيع بهذا الشكل - ابو روضة - 31-07-18

(31-07-18, 09:31 AM)elgokr كتب :
بخصوص الرابط الذى يقوم بالتحويل الى الصفحة الرئيسية
كل ما عليك التعديل على هذا السطر

كود :

lbl.Tag = "http://www.storiesrealistic.com/" & lnk

بان تجعله بهذا الشكل

كود :

lbl.Tag = lnk

وستجد بان رابط الموضوع يعمل بدون مشكلة

تحياتى لك

وتمنياتى لك التوفيق

إن سألتك عن شيء بعدها فلا تصاحبني قد بلغت من لدني عذرا صدق الله العظيم...حقيقى لقد فاض صبرك بى وأشعر بذلك فاتمنى أن لا ياتى يوم وتقول لى فيه هذا فراق بينى وبينك من كثرة أسالتى وكثرة صبرك لكن هذا عشم أخى الجوكر ليس أكثر.. نجحت الطريقة تمام جزاك الله كل خير

RE: طريقة عرض هذه المواضيع بهذا الشكل - elgokr - 01-08-18

صدق الله العظيم

فالحمد لله والشكر لله على كل حال

لكن اعترض معك اخى ابو روضة

فانا لن اقول مثل هذا ابداً فيمكنك ان تطلب وتسال كما تشاء

فكلما انا على قيد الحياه وبامكانى تقديم المساعدة للجميع ساقوم بذلك

دون اى تردد مهما كانت الظروف والوضع

فربنا اعطانا علماً كى نفيد به علم الاخرين بالخير

فمن بخل بالعلم فهو كالامي الذى لا يفقه شئ

فكما تعلم بان العلم نور ومن ليس له نور بالحياه فهو لا يعيش

بما اعطاه الله لعباده من علم

فالحمد لله على نعمة الاسلام

تحياتى لك

وتمنياتى لك التوفيق

RE: طريقة عرض هذه المواضيع بهذا الشكل - ابو روضة - 01-08-18

(01-08-18, 01:31 AM)elgokr كتب :
صدق الله العظيم

فالحمد لله والشكر لله على كل حال

لكن اعترض معك اخى ابو روضة

فانا لن اقول مثل هذا ابداً فيمكنك ان تطلب وتسال كما تشاء

فكلما انا على قيد الحياه وبامكانى تقديم المساعدة للجميع ساقوم بذلك

دون اى تردد مهما كانت الظروف والوضع

فربنا اعطانا علماً كى نفيد به علم الاخرين بالخير

فمن بخل بالعلم فهو كالامي الذى لا يفقه شئ

فكما تعلم بان العلم نور ومن ليس له نور بالحياه فهو لا يعيش

بما اعطاه الله لعباده من علم

فالحمد لله على نعمة الاسلام

تحياتى لك

وتمنياتى لك التوفيق

اقصد فاص صبرك من خلال هذا الموضوع اخى الكريم ولا اقصد لن اطلب منك شيئ فيما بعد

بالعكس انت انسان خلوق وخدوم لكنى احسست اننى تثاقلت عليك فى هذا الموضوع...

هذا كل ما اقصده فقط وربنا يحميك