Formissa textbox johon syötetään www-osoite, sekä command button, joka avaa sivun selaimelle. Miten toteutus?
Olen etsinyt putkan keskusteluista, mutta ei löytynyt vinkkejä.
Onko kellään antaa apuja?
Kiitos jo etukäteen.
Kokeile Tota (ei testattu)
Public Explorer As SHDocVw.InternetExplorer Private Sub Command1_Click() On Error GoTo errorhandler Set Explorer = New SHDocVw.InternetExplorer Explorer.Visible = True Explorer.Navigate Text1.Text Exit Sub errorhandler: MsgBox "Error displaying file", , Err.Description End Sub
Tässä toinen tapa, ei testattu
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 Public Const SW_ShowNormal = 1
Dim iReturn As Long, temp As String temp = "http://www.garybeene.com/free/" iReturn = ShellExecute(frmMain.hwnd, "Open", temp, vbNullString, App.Path, SW_ShowNormal)
Compile error:
User defined-type not defined
eli herjaa tätä:
Explorer As SHDocVw.InternetExplorer.
Pitääkö formilla olla lisäksi WebBrowser- komponentti vai joku muu?
tnb:lle
eipä onnistunut tuollakaan....
Ohjeita:
Eka loota pitää laittaa moduliin.
Toka loota laitetaan napin taakse.
Tokassa lootassa pitää frmMain muuttaa vastaamaan käytössä olevaa formin nimeä, yleensä se on form1.
Kiitos ohjeista tnb. Nyt toimii.
Aihe on jo aika vanha, joten et voi enää vastata siihen.