كيف وضع رابط منتدى على الفورم +صوره

راجع : Yomna Link control

أخي

ضع أداة عنوان Label في مشروعك و غير الخصائص الآتية لها

ForeColor = VbBlue

لون الخط أزرق

FontUnderLine = True

خط سفلي لأداة النص

ثم ضع هذا الكود في حدث الضغط علي أداة العنوان Label

'تصريح متغير من النوع object كائن

Dim X As Object

'جعل x يأخد خصائص الأداة internet control activeX الخاصة ببرنامج المتصفح Internet explirer

Set X = CreateObject("InternetExplorer.Application")

'ثم ايصال قيمة Value باسم الموقع المراد فتحه الي Navigate

X.Navigate "www.YourSite.com"

'ثم اظهار الصفحة بعد ذلك

X.Visible = True

اذا الكود من غير شرح هو

Dim X As Object

Set X = CreateObject("InternetExplorer.Application")

X.Navigate "www.YourSite.com"

X.Visible = True

تقبل تحياتي

بيجاسوس - شريف

ممكن برده بس Shellexecute هتبقى أفضل للفتح , حتى لا يكون فتح الروابط حصريا على Internet Explorer و لكن يكون بالبرنامج الأفتراضى لها.

و شكرا

ملحوظة ( فى حالة عدد قليل من الروابط 2 مثلا ) فطريقة شريف (بيجاسوس) أحسن مع ملاحظتى بالأعلى , أما فى حالة الكثير من الروابط فالأداة بتاعتى هتسهل المواضيع.

السلام عليكم ورحمة الله وبركاته

ارجو هذا المثال يلبي طلبك !!!

بالتوفيق ,,,,

A7med_prof

Link.zip

بالتأكيد يا أخي العزيز

في حالة الروابط الكثيرة فمن الأفضل استخدام أداة UserControl صممها حضرتك أو أي شخص كان

أو حتي أداة ActiveX Control

و لكني وضعت له الطريقة و ليس الأداة ( لاحظ ذلك )

شريف

اقتباس

و لكني وضعت له الطريقة و ليس الأداة ( لاحظ ذلك )

اقتباس

فطريقة شريف (بيجاسوس)

So So Funny

يا أخي الأخ العزيز كان بيسال علي طريقة علشان يتعلم

مكانش عايز أداة حتي و لو Usercontrol علشان يضيفها لبرنامجه و خلاص

فأنا اديتله الطريقة علشان لو هو عايز يصمم أداة مستخدم UserControl خاصة بيه

أو حتي عايز يضيف الكود للفورم عادي هو حر

اخي العزيز

قم بإنزال الاداة لخاصة بـــ WebBrowser في النموذج

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

	 
WebBrowser1.Navigate lable1.Caption

مينفعش يا أخي

الأداة Microsoft Internet Control تظهر داخل النموذج

و لكن الأخ العزيز يريد عمل وصلة داخل البرنامج تفتح موقع (وصلة) خارج البرنامج

بيجاسوس كتب:

So So Funny

O'Really 10x <_< :angry:

بيجاسوس كتب:

يا أخي الأخ العزيز كان بيسال علي طريقة علشان يتعلم

مكانش عايز أداة حتي و لو Usercontrol علشان يضيفها لبرنامجه و خلاص

فأنا اديتله الطريقة علشان لو هو عايز يصمم أداة مستخدم UserControl خاصة بيه

أو حتي عايز يضيف الكود للفورم عادي هو حر

هو قال :

اقتباس

ابغى اضع رابط منتدى على الفورم عندما يضغط عليه المستخدم يوجه الى المنتدى

اقتباس

ولو امكن طريقة الاميل

و لم يقل اريد طريقة و ليس اداه !

و هل التعلم من Usercontrol غير ممكن :rolleyes: ؟!

و هل فى فرق بين اداه و Usercontrol ؟!

لا اله الا الله و سبحان الله !

أولا أنا لم أقل أن هناك فرق

و لكن نفرض أن السائل مبتدء هل كان من الحكمة ان تعطيه أداة UserControl و تريده أن يتعلم منها

أم تعطيه الكود المباشر و البسيط لمطلبه

يعني في حالتك انت الأخ بدل ما يتعلم ازاي يعمل وصلة انترنت , لازم يتعلم ازاي يفهم عمل أداة يوزر كونترول علشان يعرف يطلع مطلبه منها

ثانيا يا معلم المنتدي معمول للتعلم مش للطلبات فقط

و هناك فرق بين أداة اليوزر كونترول و الأكتف اكس في انه لن يستطيع استعراض الكود في حالة الأكتف اكس

و اليوزر كوتنرول تضاف عن طريق Add UserControl

أما الأكتف اكس فتضاف عن طريق Componets

علي الرغم من أن الأكتف اكس هي نفسها اليوزر كونترول و لكن بعد عملية الكومبايلينج

Homme tellement drôle

سلام

اقتباس

Homme tellement drôle

= So funny man

Merci

Who is talking about ActiveX controls ?

I did not ! ;)

I mention nothing about OCXs :rolleyes: !

OK OK you just want to frustrate me and appear like the one who never be wrong , OK go ahead but remember YOU CAN NOT FRUSTRATE ME , I can continue arguing till you commit a suicide or destroy your PC but I do not like to do especially with those kids who just believe that they are right and others are wrong , btw : it is called paranoia :lol:

Ok Man

Let Me Say Some Notes

I'm not wrong

But you cann't talk in arabic language Because You are wrong

and me say all the true

Many thanks for you

Well I can !

بالنسبة لأستعمال اللغات فأنت من بدأ بأستعمال عضلاته و بالنسبة لك و لأرائك فتوقيعك يكفى للرد عليك !

اقتباس

Let Me Give You the Perfect and Full Lisson Selfesh

واضح خبرتك بالأنانية فأنت قادر على أعطاء دروس بها , سبحان الله !

بالمناسبة بتنكتب lesson و ليس lisson !

و selfish و ليست selfesh

وتكون الجملة lesson of selfishness او lesson about selfishness

:lol:

و اللهي مش أنا اللي بدأت

كل اللي يقرأ الموضوع يشوف مين اللي غلطان

و مين الصح

و مين الغلط

انت داخل عليا علي الحامي من الأول سبحان الله ليه دا كله

انا باكتب حاجة و أي حد يقرا و يشوف من الغلطان

و ملكش دعوة بتوقيعي خلاص , اللي فيه مش موجه ليك

و لا انت حاطط في مخك كده

و بالنسبة للغات فا.................. و لا أقولك احنا خلينا لك اللغات

و لا الاه الا الله

سلام

يا راجل أنا اللى بدأت :lol: ماشى يا سيدى و خليلى موضوع اللغات.

السلام عليكم ورحمة الله وبركاته

يعطيكم الف عافيه و الله يجزاكم خير

ويقول المثل كل الطرق تودي الى روما

بس انا بصراحه ولا يهونون الجميع اعجبتني طريقة بيجاسوس ومن دون زعل

لاني وانا مبتدء يلزمني التعامل مع الاكواد

ولو اضفت الاداة وحبيت مستقلبيا اني اعطيه احد ابضطر اني ارفق الاداة

والشباب يبونه بدون تثبيت لاسبابهم الخاصه

واشكر كل من رد علي في سؤالي هذا والله يجزاكم خير جميعا

الله لايهينكم وبيض الله وجيهكم

وبالتوفيق

سلام

اقتباس

ولو اضفت الاداة وحبيت مستقلبيا اني اعطيه احد ابضطر اني ارفق الاداة

يعطيك العافيه

اجل انا كنت فاهم غلط

مشكور على توضيحك وانا اخذت بالطريقتين

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

سلام

أوك و للتسهيل أكتر ممكن تعمل مجموعة الـ Labels كـ Control array و تحط الرابط بخاصية الـ Tag و عند الضغط تعمل Shellexecute للرابط اللى بالـ Tag

انا من الاول حسيت ان الموضوع هيولع