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

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

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

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

أولا يجب الإعلان عن 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

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

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

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

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

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

و اشكرك على مدونتك الجميلة رحيق الجنة

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

1	#الحديثة
2	#الدورات
3	#موقع_لي_نور_الإلكتروني
4	#java
5	#datagridview
6	#عقارات
7	#استثمار
8	#الامارات
9	#الشارقة
10	#سكن

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

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

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

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

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

مواضيع ذات صلة