Msgbox z przekierowaniem do strony www

Kiedyś pisząc aplikację, potrzebowałem poinformować użytkownika o błędzie oraz o możliwości naprawienia błędu poprzez pobranie odpowiedniego pakietu z internetu.

Dzięki temu rozwiązaniu użytkownik kierowany jest na prawidłową stronę oszczędzając czas na szukanie prawidłowego pakietu w internecie. Tak więc jak dodać do msgbox link z przekierowaniem do strony www?

Źródło: http://stackoverflow.com/questions/28705916/putting-a-hyperlink-in-a-messagebox#28707842


' Źródło:
' http://stackoverflow.com/questions/28705916/putting-a-hyperlink-in-a-messagebox#28707842

Private Sub GoToPage()

Set objShell = CreateObject("Wscript.Shell")

intMessage = MsgBox("Przepraszamy, ale proprawny sterownik ODBC nie jest zainstalowany." & vbCr & vbCr _
        & "Skontaktuj się z administatorem systemu, aby zainstalować sterownik, lub zrób to samodzielnie." & vbCr & vbCr _
        & "Czy chcesz teraz pobrać sterownik MySQL ODBC 5.3 Driver, aby móc połączyć się z bazą danych?", _
        vbYesNo, "Brak prawidłowego sterownika ODBC...")

If intMessage = vbYes Then
    objShell.Run ("http://exceldb.net")
Else
    Wscript.Quit
End If

End Sub

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Witryna wykorzystuje Akismet, aby ograniczyć spam. Dowiedz się więcej jak przetwarzane są dane komentarzy.