dotNETportal.cz

Než si tohle přečtete rád bych upozornil ze sem uplny amatér co se VB6 týče. Chtěl bych se zeptat jak mám tlačítku dát funkci odkazu na libovolnou www adresu predem diky lamka. :-D

Co se VB6 týče asi jste přehlédl že píšetedo kategorie Off Topic, pokud je dotez ve VB6 jděte do odpovídající kategorie

 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()
   ' otevřít v defaultním prohlížeči
   ' k tomu patří deklarace fce ShellExecute nahoře
   ShellExecute Form1.hwnd, "open", "http://seznam.cz", "", "", 1
  
   ' anebo otevřít v aplikaci po přidání komponenty WebBrowser
   ' není-li k dispozici, pak volte v menu: Project / Components...
   ' a vyberte Microsoft Internet Controls
   WebBrowser1.Navigate2 "http://www.seznam.cz"
 End Sub