Hejsan! 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 Alt 3...Öppna IE med VB6
jag undrar vad det är för kod man skall skriva för att öppna en webbplats i IE
genom mitt VB projekt. det skulle inte förvårna mig ifall det står i hjälpen i VB men den funkar inte.Sv: Öppna IE med VB6
Public Function HyperJump(ByVal URL As String) As Long
HyperJump = ShellExecute(0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus)
End FunctionSv: Öppna IE med VB6
gör en label med tex texten www.rst.se (välj understruken blå text, om du vill ha utseendet som en länk)
döp din label, i exemplet nedan är name = lblLink
<code>
Private Sub lblLink_Click()
ShellExecute Me.hwnd, "open", lblLink.Caption, vbNullString, vbNullString, 1
End Sub
</code>
funkar för mig...