VB-Homepage Tipp 036
Verweis auf eine Internetadresse (LINK), bzw. Mailto im Programm
Die Zeit ist Online - und Ihr Programm sollte natürlich auf der Höhe der Zeit sein.

Vielleicht besitzen Sie ja auch eine eigene Homepage und möchten dem Nutzer Ihres Programms diese für Updates oder Hilfe mitteilen.
Vielleicht aber soll es auch nur Werbung für Ihre Homepage sein.
Sei es wie es sei, mit den nachfolgendem Programmcode, können Sie dem Nutzer Ihres Programms Zugriff auf Ihre Internetadresse bieten.
Voraussetzung ist natürlich eine aktive Internetverbindung.

Definieren Sie dazu im Abschnitt Allgemein/Deklarationen
folgenden API-Befehl

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

(Wenn Sie über ein Modul definieren, lassen sie die Anweisung Private weg)

Des weiteren definieren Sie einen Command-Button
(oder etwas was die Aktion starten soll)
und definieren in der "Click" Aktion folgendes.
Da eine aktive Verbindung notwendig ist, hab ich noch eine Msgbox zur Abfrage eingebaut, dies gehört nicht direkt zum Tipp.

Mldg = "Für diesen Programmpunkt muß eine aktive Online-Verbindung vorhanden sein" + Chr(13) + "Ist diese vorhanden ??"
Stil = vbYesNo
Titel = "Online-Zugriff ?"
variable = MsgBox(Mldg, Stil, Titel)

If variable = vbYes Then Call ShellExecute(Me.hwnd, "Open", "http://www.vb-homepage.de", "", "", 1)

Mehr gehört nicht dazu.
Es wird nun der Browser gestartet (der muß natürlich auch vorhanden sein)
und bei aktiver Internetverbindung wird die vordefinierte Seite geladen.

Ergänzung 15.08.1999

Eigentlich ist das ein Tipp für sich, da er aber durch die selbe API Funktion ausgeführt wird und Thematisch in die selbe Richtung geht, hab ich mich entschlossen, diesen hier mit anzufügen.
Wenn Sie also anstatt eines Links auf Ihre Homepage lieber einen Mailto, also
eine Mail senden lassen möchten, müssen Sie folgendes tun, die API Funktion selber bleibt identisch, nur der Aufruf ändert sich wie folgt.

'################################################

Dim Empfänger As String, Betreff As String, Text As String

Empfänger = "webmaster@vb-homepage.de"
Betreff = "Information"
Text = "hier die Kurzmitteilung"

Call ShellExecute(Me.hwnd, vbNullString, "mailto:" & Empfänger & "?subject=" & Betreff & "?body=" & Text, "", "", 1)

'################################################

Nach dem Aufruf öffnet sich das Mailfenster und die entsprechenden Angaben sind schon eingetragen. Testen konnte ich das Verhalten aber nur mit Outlook97 bzw. 98.

Einschränkung : Die gesamte Anweisung, also inklusive Mailto, Subject, Body, darf nicht mehr als 255 Zeichen lang sein.
Tipp-Download
Quelle :
Zurück zur Übersichtsseite