vb 6.0 create hyperlink

[mds33200]

Hi, i am trying to make a simple .exe file, just with different buttons on it. I want to be able to click a button, and have it take me to a specific webpage. I created the template, just dont know how to direct it to a hyperlink. Any sugestions?

[RobDog888]

Welcome to the Forums.

ShellExecute the link in the buttons click event.

Option Explicit
 
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
 
Private Const SW_SHOWNORMAL As Long = 1
 
Private Sub Command1_Click()
    ShellExecute Me.hwnd, "Open", "http://vbforums.com", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

[mds33200]

wow pretty cool, I got it to work. Thanks so much for ur help robdog- The only other thing I would like to do (if possable) I would like to have it so if I have a webpage open but minimized, and then click a specific button in the project I made, instead of changing the minimized internet explorer page to the new link (from pressing the button I made) I would like it to open a new page. Is it hard to modify it to do that? if so, its not critical, the main thing is to set up a page with different buttons on it, which I just completed. Thanks once again for ur help.

[Joacim Andersson]

Well, the ShellExecute trick shown above will simply look at what you're trying to open (an URL in this case) and then look in the Windows Registry after a program that is associated to do so. In this case it will find that an Internet browser is to be used (IE, Firefox, Netscape, or whatever you use as your default browser). So you don't really control it.

You can force, for example, a new instance of Internet Explorer to open and show the page in question, but do you think a user that loves Firefox and use that as his default browser really would appreciate that?

[RobDog888]

If you need to control the content of the opened web page then perhaps using the web browser control on a form will be best.

Check out this thread for examples on that logic.
http://www.vbforums.com/showthread.php?t=330341

[rnd me]

you can usually force a new browser by clicking a shortcut. i belive that is the default behavoir.

save a file with the url in it + a shortcut header as somthing.url.

that just shell the new file, and viola, a new browser window.
for example
open notepade and paste the code below into it, and save it with a .url extention. then double click the file.

i suppose you could also shellexecute the .url file...

[InternetShortcut]
URL=http://www.vbforums.com/showthread.php?t=455043


ok, i missed a bus, so i have some more time.
this should do it all:

Public Sub dourl(theurl)
Dim ff As Integer
ff = FreeFile
dim sFileName As String
sfilename=environ$("temp") & "\urltmp.tmp"
dim FileContent As String
filecontent="[InternetShortcut]" & vbcrlf & theurl

Open sFileName For Output As #ff
Print #ff, FileContent;
Close #ff

call shell ( "%comspec% /c " & sFileName )
End Sub

didnt test, but should get you goin...

another happy side effect it that it uses the users browser of choice to run...