Hallo,
als Neueinsteiger in VB scheitere ich bereits an folgendem Problem:
Ich hab einen String, der eine vollständige HTML-Page enthält. Wie kann ich den jetzt anzeigen?
Ich schreibe gerade einen Filter für Mails in Outlook 2000.
Vielen Dank,
igis
Guten Rutsch
wenn ich dich richtig verstehe
arbeitest du mit vb - script und willst eine webseite gestalten.
Ich hab einen String, der eine vollständige HTML-Page enthält.
Wie kann ich den jetzt anzeigen?
heißt das, daß du dir den inhalt der seite (inkl. der html-tags) in einen string zusammengestopft hast und diesen jetzt ausgeben willst? wenn ja, dann:
Response.Write(my_html_string)
Ich hab einen String, der eine vollständige HTML-Page enthält.
Wie kann ich den jetzt anzeigen?
in einem Browser-Control oder in einem externen Broswerfenster?
Ich hab einen String, der eine vollständige HTML-Page enthält.
Wie kann ich den jetzt anzeigen?in einem Browser-Control oder in einem externen
Broswerfenster?
In einem eigenen externen Fenster, also es soll ein neues Browser-Fenster hochfahren und dann die Seite, die in Form eines Strings mit allen Tags vorhanden ist.
Danke einstweilen, versuche mal den Tip der nächsten mail.
sl, igis
Ja, genau, so meinte ich das. Vielen Dank, werde ich gleich versuchen
sl, igis
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Dies ist eine leicht modifizierte Version einer Funktion die ich auch benutze. Sie sucht das Programm das
mit html-dateien verknüpft ist
(in 99,5% aller Fälle der Browser) und startet es mit der aus dem html-string Datei gebildeten als Parameter.
Das Funktioniert sowohl mit netscape, ie, opera und lynx.
Hier die Funktion:
Public Function start\_html(ByVal html\_str As String)
Dim dok As String, exe As String, path As String, i As integer
dim fn as integer
On Error GoTo fehler
fn=FreeFile
open app.path & "\tmphtml.html" for output as #fn
print #fn, html\_str
close #fn
exe = Space(254) & Chr(0)
dok = "tmphtml.html"
path = app.path & "\"
i = FindExecutable(dok, path, exe)
If i 42 Or Left(exe, 1) = Chr(0) Then
MsgBox "Cannot find html-associated Application!"
Else
Shell Left(exe, InStr(exe, Chr(0)) - 1) & " " & app.path & "\tmphtml.html"
End If
Exit Function
fehler:
If Err.Number = 53 Then
MsgBox "Die Datei " & Left(exe, InStr(exe, Chr(0)) - 1) & Chr(13) & "die zum öffnen einer Internetverbindung erforderlich ist wurde nicht gefunden!", vbCritical
Else
Call ext\_err\_msg(Err.Number, Err.Description, "", "functions/Hilfestarten", "BLM")
End If
End Function