Entwicklung - VB - Einen URL im Standardbrowser öffnen

VB: Einen URL im Standardbrowser öffnen

rob (58)

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?

(161 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.355.431
Besucher heute: 253
Besucher gestern: 379
Max. Besucher/Tag: 1.642
Gerade online: 13
Max. online: 167
Seiten gesamt: 35.153.764
Aufrufe diese Seite: 1.350

Tag-Cloud

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