/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Hyperlinks i VB
Fra : Factory


Dato : 25-02-02 16:49

Er det muligt (og hvordan) at lave et hyperlink på en VB-form, som åbner
linket i
en browser når der klikkes på det?

~factory



 
 
Jens Vestergaard (25-02-2002)
Kommentar
Fra : Jens Vestergaard


Dato : 25-02-02 17:22

"Factory" <bfpDELETE_THIS@post5.tele.dk> skrev i en meddelelse
news:3c7a5ce1$0$201$edfadb0f@dspool01.news.tele.dk...
> Er det muligt (og hvordan) at lave et hyperlink på en VB-form, som åbner
> linket i
> en browser når der klikkes på det?
>
> ~factory

I et modul skal du have flg. declare:

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

(på een linie)

Lav f.eks. en label1 med .Caption ="http://www.railsoft.dk"

Sub Label1_Click()
Dim ret As Long
ret = ShellExecute(Me.hwnd, "open", Label1.Caption, "", "", 0)
End Sub



Factory (25-02-2002)
Kommentar
Fra : Factory


Dato : 25-02-02 17:51


"Jens Vestergaard" <j@railsoft.dk> wrote in message
news:3c7a6413$0$39825$edfadb0f@dspool01.news.tele.dk...
> "Factory" <bfpDELETE_THIS@post5.tele.dk> skrev i en meddelelse
> news:3c7a5ce1$0$201$edfadb0f@dspool01.news.tele.dk...
> > Er det muligt (og hvordan) at lave et hyperlink på en VB-form, som åbner
> > linket i
> > en browser når der klikkes på det?
> >
> > ~factory
>
> I et modul skal du have flg. declare:
>
> 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
>
> (på een linie)
>
> Lav f.eks. en label1 med .Caption ="http://www.railsoft.dk"
>
> Sub Label1_Click()
> Dim ret As Long
> ret = ShellExecute(Me.hwnd, "open", Label1.Caption, "", "", 0)
> End Sub
>
>

Takker mange gange - fik det til at virke men skal dog erklære funktionen
som Private.
Kan man angive adressen som en variabel man trækker ud af en database, og
hvordan?



Søg
Reklame
Statistik
Spørgsmål : 177501
Tips : 31968
Nyheder : 719565
Indlæg : 6408526
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste