Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: Formista nettiin (Vb6)

mikakoodi [04.02.2004 22:33:04]

#

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.

make3003 [04.02.2004 22:52:09]

#

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

tnb [04.02.2004 22:58:23]

#

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)

mikakoodi [04.02.2004 23:04:50]

#

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?

mikakoodi [04.02.2004 23:18:21]

#

tnb:lle
eipä onnistunut tuollakaan....

tnb [05.02.2004 17:53:45]

#

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.

mikakoodi [06.02.2004 08:32:52]

#

Kiitos ohjeista tnb. Nyt toimii.

Vastaus

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

Tietoa sivustosta