Keskustelu: Koodit: VB6: Hyperlinkki

tuomas [09.05.2004 21:05:35]

Luo linkin yksinkertaisesti formille.
Tarvitset yhden labelin.

'Shell käyttöön jotta voimme avata internet explorerin
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 Sub Label1_Click()
 'Muuttuja osoitetta varten (tässä tapauksessa melko turha mutta käytetään nyt silti)
  Dim Osoite As String

 'Osoite joka avataan uudessa ikkunassa
  Osoite = "https://www.ohjelmointiputka.net"

 'Ja sitten lopuksi avataan vielä se selain
  ShellExecute hWnd, "open", Osoite, vbNullString, vbNullString, conSwNormal
End Sub

Teme [10.05.2004 17:40:35]

Joopajoo, kyl tää iha kätevä o. Voi tulla tarpeeseen :]

sooda [11.05.2004 08:58:50]

Ihan kätevä, tosin tein ton itekin kauan sitten :)

Meitzi [11.05.2004 19:37:58]

Nooh, toivottavasti nyt et suutu jos ehdotan parannuksia: (conSwNormal sinulla on muuten esittelemättä)

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 Sub Command1_Click()
  'Esimerkit
  AvaaLinkki "mailto:tauno@taavi.fi"
  AvaaLinkki "http://www.fi"
  AvaaLinkki "C:\Windows\clock.avi"
  AvaaLinkki "C:\Windows\win.ini"
End Sub

'Avaa tiedoston tai linkin siihen assosioituun ohjelmaan
Public Sub AvaaLinkki(Linkki As String)
    On Error Resume Next
    Dim X As Long
    X = ShellExecute(Me.hWnd, "Open", Linkki, vbNullString, vbNullString, 1)
End Sub

tuomas [11.05.2004 19:57:46]

Tottakai parannus ideoita saa antaa (tulee opittua itsekin aina jotain uutta.)
Itselläni oli vain tarkoitus tehdä tuo linkki projektiin mahdollisimman yksinkertaisesti.

tarmoKo [19.05.2004 16:03:47]

Jos ei tykkää noista shell executeista, niin vb tarjoo tähän toisenkin ratkainsun jolla pystyy sitten tekemään vähän muutakin, mutta yllättäen saattaa tuottaa ongelmia ihmisille jotka ovat koittaneet työllä ja tuskalla päästä eroon IE:stä koneeltansa... eli referenseistä "Microsoft Internet Controls" päälle. Sitten itse koodista:

Private WithEvents IExplorer As InternetExplorer

Private Sub testi()
 Set IExplorer = New InternetExplorer

 IExplorer.Navigate "www.fi"
 IExplorer.Visible = True

 If Not IExplorer.LocationURL = "" Then
    IExplorer.Refresh
 End If

' IExplorer.Visible = False
' IExplorer.MenuBar = False
' IExplorer.ToolBar = False
' IExplorer.AddressBar = False
' IExplorer.StatusBar = False
End Sub

AakenStein [04.11.2006 09:11:10]

Kätevä koodi, kiitoksia.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät

Kilpailu