كود فتح رابط أي موقع داخل فيجول بسيك

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

كود فتح رابط أي موقع داخل فيجول بسيك

مُساهمة من طرف المبرمج المسلم في الأربعاء يوليو 02, 2014 2:19 am


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

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

أولا يجب الإعلان عن ShellExecute في المشروع الخاص بك عبر هذا الكود


الرمز:
Private Declare Function ShellExecute _
                            Lib "shell32.dll" _
                            Alias "ShellExecuteA"( _
                            ByVal hwnd As Long, _
                            ByVal lpOperation As String, _
                            ByVal lpFile As String, _
                            ByVal lpParameters As String, _
                            ByVal lpDirectory As String, _
                            ByVal nShowCmd As Long) _
                            As Long


وبعد ذالك نضع الكود الخاص بفتح الرابط في أي أداة مثلا أنا سأختار اداة الزر : commande



الرمز:
Private Sub Command1_Click()
  Dim r As Long
  r = ShellExecute(0, "open", "http://ra7y9.blogspot.com/", 0, 0, 1)
End Sub


وبالتوفيق مع مشاركة أخرى بإذن الله حياكم الله وبياكم وجعل الجنة متواكم ومتوانا أجمعين وجزاكم عنا خير الجزاء
و السلام عليكم ورحمة الله وبركاته




المبرمج المسلم
..
..

تاريخ التسجيل : 21/06/2014
المساهمات : 17
النقاط : 29
التقيم : 0
الدولة : المغرب
الجنس : ذكر
الموقع : http://ra7y9.blogspot.com/

http://ra7y9.blogspot.com/

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

رد: كود فتح رابط أي موقع داخل فيجول بسيك

مُساهمة من طرف end.sub في الأربعاء يوليو 02, 2014 11:30 am


يا اهلا وسهلا بك أخى الكريم ....و اشكرك على هذه المقدمة الرائعة

end.sub
.....
.....

تاريخ التسجيل : 15/08/2013
المساهمات : 70
النقاط : 131
التقيم : 9
الدولة : مصر
الجنس : ذكر

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

رد: كود فتح رابط أي موقع داخل فيجول بسيك

مُساهمة من طرف NEXT في الأربعاء يوليو 02, 2014 11:44 am

كل سنة و حضرتك بخير و نتمنى أن نكون عند حسن ظنك بنا  flower flower و اشكرك على مدونتك الجميلة رحيق الجنة

http://ra7y9.blogspot.com/

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

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

رد: كود فتح رابط أي موقع داخل فيجول بسيك

مُساهمة من طرف المبرمج المسلم في الأربعاء يوليو 02, 2014 2:08 pm

جزاكم الله خيرا كنتم ولا زلتم أهل الفضل والمنة تواضعكم أخجلنا

المبرمج المسلم
..
..

تاريخ التسجيل : 21/06/2014
المساهمات : 17
النقاط : 29
التقيم : 0
الدولة : المغرب
الجنس : ذكر
الموقع : http://ra7y9.blogspot.com/

http://ra7y9.blogspot.com/

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

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


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