لفتح صفحة انترنت - نسخة قابلة للطباعة

لفتح صفحة انترنت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : لفتح صفحة انترنت (/showthread.php?tid=5894)

لفتح صفحة انترنت - RaggiTech - 17-10-12

كاتب الموضوع : AhmedEssawy

في التصريحات :

كود :

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

الأمر لفتح صفحة :

كود :

X = ShellExecute(MDIForm1.hwnd, "Open", "http://www.VBExplorer.com",

0&, 0&, 0&)