Avatar billede hejhejhej Nybegynder
26. juli 2002 - 19:12 Der er 6 kommentarer og
1 løsning

åbne hjemmeside

Jeg har en form hvorpå der er placeret en tekstboks og en knap. Når jeg trykker på knappen vil jeg gerne have at den åbner den adresse som er indtastet i teskboksen i default browseren. Hvordan laves det?
Avatar billede Slettet bruger
26. juli 2002 - 19:23 #1
Først skal du definere denne funktion (sættes ind i toppen af din kode - declarations):

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

Derefter kan du benytte:

ShellExecute Me.hwnd, vbNullString, "http://www.dinside.dk/", vbNullString, vbNullString, vbMaximizedFocus

Her skal "http://www.dinside.dk/" sikkert skal erstattes med textBoxNavn.Text.
Avatar billede joern Nybegynder
26. juli 2002 - 19:26 #2
Hej hejhejhej.

Prøv at kigge på
http://www.eksperten.dk/spm/52046

og

http://www.eksperten.dk/spm/53632

De beskæftiger sig med sagen.

M.v.h.  Jørn
Avatar billede itbjarne Nybegynder
26. juli 2002 - 23:36 #3
Hej.
Jeg har lavet dette før på denne måde:
1. Inkludèr komponenten "Microsoft Internet Controls". Herved kan du anvende WebBrowser komponenten.
2. Lav objektet WebBrowser på en form. Skal laves visible = False.
3. Lav en knap som når du trykker på den aktiveres det som du beskriver. Knappens on-click event skal være:

WebBrowser1.Navigate2 "http://www.dinside.dk/", 1
WebBrowser1.FullScreen = True

Når du trykker på knappen vil et nyt browser vindue poppe op og gå til den specificerede adresse.
Avatar billede jonny Nybegynder
29. juli 2002 - 13:27 #4
Hvad med:

Call Shell("C:\Programmer\Internet Explorer\IEXPLORE.EXE " & txtUrl.Text, vbMaximizedFocus)
Avatar billede martin_moth Mester
07. august 2002 - 16:06 #5
Det vil jeg også sige - brug

Shell programnavn, programparameter - mere simpelt kan det ikke gøres. Jeg stemmer på jonnys forslag :o))
Avatar billede joern Nybegynder
07. august 2002 - 16:40 #6
>>  Ja,ja, jeg er jo bare okkenok at jeg bruger Opera som standardbrowser.

M.v.h.  Jørn
Avatar billede thesurfer Nybegynder
07. august 2002 - 16:47 #7
hvad med bare:
Retval = Shell("start " & txtUrl.text) ?

hvor teksten i txtUrl f.eks. er "http://www.yahoo.com"..

altså:
start "http://www.yahoo.com"

(virker i DOS-Prompten..)

/theSurfer.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester