كيف يمكن فتح صفحة بالفيجوال بيسك

قم بتعريف API في قسم التصاريخ العامة

Public 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
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMAXIMIZED = 3

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

Public Sub GoToWeb(ByVal URL As String, ByVal LinkType As Long)

Dim Success As Long
Dim strURL As String

    Select Case LinkType
        Case 1
            If Left(URL, 7) <> "mailto:" Then
                strURL = "mailto:" & URL
            Else
                strURL = URL
            End If
        
        Case 2
            If Left(URL, 7) <> "http://" Then
                strURL = "http://" & URL
            Else
                strURL = URL
            End If
        
        Case 3
            If Left(URL, 7) <> "file://" Then
                strURL = "file://" & URL
            Else
                strURL = URL
            End If
        
    End Select
                
    Success = ShellExecute(0&, vbNullString, strURL, vbNullString, "C:\", SW_SHOWNORMAL)


End Sub

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

GoToWeb "http://www.arabteam2000.com",2

ولفتح صفحة على الجهاز اكتب

GoToWeb "c:\1.htm",3

ولفنح بريد

GoToWeb "webmaster@arabteam2000.com",1