🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #15529

Re: Url starten vanuit visual Basic

#15529
From: Development
Date: Fri, 22 Sep 2000 00:06
44 lines
2156 bytes
Volledige code volgt onderaan (algemeen bruikbare API call - verschillende
platformen en ook Access/Excel).

Hoop dat dit helpt,

Waldo Smets
SoftwareSuite�
Heverlee-Leuven

'Declare these in a module:
Public Const SW_SHOW = 1

Public 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

Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
'Executes the default Web browser, directing it toward the specified Web
site.
Dim hBrowse As Long
hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", "", SW_SHOW)
End Sub

xinks wrote:

> Kan iemand mij vertellen hoe je een URL kunt opstarten
> vanuit een VB programma?
>
> Moet je eerst de default browser nemen en dan via Shell opstarten en zo
> Ja,
> hoe kom je te weten welke de default browser is?
>
> graag antwoord
> XiniksABC@iname.com
>
> belangrijk : ABC uit het e-mail verwijderen om te antwoorden
>
> Alvast Bedankt
> Xinks
Technical Details
Message-ID: <39CAA265.D59A234F@softwaresuite.be>
Path: arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!sn-xit-03!supernews.com!hermes.visi.com!news-out.visi.com!news.grmbl.tm!zapata.tvd.be!news.tvd.be!news.chello.be!not-for-mail
References: <39C4F751.19CE7C50@iname.com>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII
X-Google-Thread: fcea4,65df824d13a492ea
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2000-09-21 18:15:10 PST
Path: arc1-ca.pugleaf.net!supernews.google.com!sn-xit-02!sn-xit-03!supernews.com!hermes.visi.com!news-out.visi.com!news.grmbl.tm!zapata.tvd.be!news.tvd.be!news.chello.be!not-for-mail
Message-ID: <39CAA265.D59A234F@softwaresuite.be>
From: "Development@SoftwareSuite.be" <development@softwaresuite.be>
X-Mailer: Mozilla 4.75 [en] (Win98; U)
X-Accept-Language: en
MIME-Version: 1.0
Newsgroups: be.comp.programming
Subject: Re: Url starten vanuit visual Basic
References: <39C4F751.19CE7C50@iname.com>
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Lines: 45
Date: Fri, 22 Sep 2000 00:06:13 GMT
NNTP-Posting-Host: 195.162.216.140
X-Complaints-To: abuse@chello.be
X-Trace: news.chello.be 969581173 195.162.216.140 (Fri, 22 Sep 2000 02:06:13 MET DST)
NNTP-Posting-Date: Fri, 22 Sep 2000 02:06:13 MET DST
Organization: Chello Usenet Service