RichTextBox og HTML

lissom i MicroSoft Word

jeg har netop set at det ik kan lade sig gøre :-(

Hej.
Mener du at starte en standardbrowser med en bestemt URL indlæst?

I general declarations:

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

Det er én lang linie, delt her med underscore, det kan du også gøre i koden.

Hos mig er der et link fra en label med produktoplysninger, der fører til manualen på min hjemmeside;

Private Sub labprod_Click()
  ret = ShellExecute(Me.hwnd, \"Open\", \"http://www.jkfsoft.dk/manual02.htm\", \"\", App.Path, 1)
    \'Check om det lykkes
    If ret > 32 Then
        MsgBox \"Went på browseren og log ind.\"
        ugeskema.WindowState = 1
      Else
        x = MsgBox(\"Kunne ikke finde en standard-browser.\", 48, \"Ingen internet adgang.\")
    End If
End Sub

God fornøjelse.  Der i øvrigt svaret på samme spørgsmål adskillige gange af forskellige personer her på Eksperten.

Send nogle point, når du har set at det virker.  Du kan have en hel listeboks med URL\'er

M.v.h.  Jørn

Nå, nu ved nærlæsning.  I en tekstboks må du anvende select og så skal URL\'en markeres forinden.

M.v.h.  Jørn