Entwicklung - VB - Einen URL im Standardbrowser öffnen

VB: Einen URL im Standardbrowser öffnen

rob (57)

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?

(151 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.265.876
Besucher heute: 464
Besucher gestern: 286
Max. Besucher/Tag: 1.578
Gerade online: 20
Max. online: 167
Seiten gesamt: 28.900.302
Aufrufe diese Seite: 38

Tag-Cloud

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