Entwicklung - VB - Einen URL im Standardbrowser öffnen

VB: Einen URL im Standardbrowser öffnen

rob (53)

rob

12.08.2002 00:42

Vinn

  • 323 Postings, noch 27 bis zum nächsten Level (350)

Postings: 323

Einen URL im Standardbrowser öffnen

Dienstag, 10. September 2002 18:25

  • 0.0/6 Votes: 0
0.0/6 Votes: 0
'API-Function deklarieren
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

'Konstante deklarieren
Private Const SW_SHOWNORMAL = 1

'------------------------------------------------------------
Private Sub btnSenden_Click()
Dim tsDummy

tsDummy = tsSendAnMail(txtAdresse.Text, txtKopie.Text, txtBetreff.Text, txtText.Text)

End Sub

'------------------------------------------------------------
Private Sub btnURL_Click()
Dim tsDummy

tsDummy = tsOpenURL(txtURL.Text)

End Sub

'------------------------------------------------------------
Function tsOpenURL(tsURL As String)

tsOpenURL = ShellExecute(0&, vbNullString, tsURL, vbNullString, vbNullString, SW_SHOWNORMAL)

End Function

'------------------------------------------------------------
Function tsSendAnMail(tsAdresse As String, tsCopy As String, tsBetreff As String, stText As String)
Dim tsEmail As String

tsEmail = "mailto:" & txtAdresse & "?CC=" & txtKopie & "&Subject=" & txtBetreff & "&Body=" & txtText

tsSendAnMail = ShellExecute(0&, vbNullString, tsEmail, vbNullString, vbNullString, SW_SHOWNORMAL)

End Function
Bookmark setzen!:Zu Google Bookmark hinzufügen.Zu bloglines hinzufügen.Zu Newsgator hinzufügen.Zu FURL hinzufügen.Zu DIGG hinzufügen.Zu Webnews hinzufügen.Zu Netscape hinzufügen.Zu Yahoo MyWeb hinzufügen.Zu spurl.net hinzufügen.Zu diigo hinzufügen.Zu Newsvine hinzufügen.Zu del.icio.us hinzufügen.Zu SIMPIFY hinzufügen.Zu Mister Wong hinzufügen.Zu Linkarena hinzufügen.Zu isio.de hinzufügen.Zu Oneview hinzufügen.Zu yigg.de hinzufügen.Zu reddit hinzufügen.Zu StumbleUpon hinzufügen.Zu Slashdot hinzufügen.Zu Blinklist hinzufügen.Zu Technorati hinzufügen.Zu Blogmarks hinzufügen.Zu Blinkbits hinzufügen.Zu ma.gnolia hinzufügen.Zu smarking.com hinzufügen.Zu Netvouz hinzufügen.Zu co.mments hinzufügen.Zu Connotea hinzufügen.Zu de.lirio.us hinzufügen.

Specials

Bytefresser Specials: Anno 1404

Umfrage

Welches ist Dein Lieblings-Anno?

(17 Stimmen)

1. Ganz klar: Anno 1800!
2. Anno 2205
3. Anno 2070
4. Anno 1404
5. Anno 1701
6. Anno 1503
7. Anno 1602
8. Anno Online

Benutzer-Counter

Besucher gesamt: 1.160.051
Besucher heute: 70
Besucher gestern: 57
Max. Besucher/Tag: 900
Gerade online: 9
Max. online: 77
Seiten gesamt: 18.114.609
Aufrufe diese Seite: 540

Tag-Cloud

  level     signatur     bytefresser     const     shellexecute     programmierung     september     webdesign     sw_shownormal     konstante     subject     function     alias     standardbrowser     dienstag     declare     bookmark     postings     private     öffnen     byval     api-function     entwicklung