VB6: einfach nur Internet-Seite aufrufen!!!

Chris 08/15 · 06.01.2006

Hi!

Ich bin VB6-Einsteiger und hab mir im Laufe der Zeit angewoehnt, Programmiersprachen durch Veraendern und Ergaenzen von vorhandenen Projekten zu lernen...hat bisher auch ganz gut geklappt...

Was ich jetzt nur machen will ist lokal gespeicherte html-Seite zu oeffnen. Die absolute Adresse is dabei aber variabel, weswegen die relative zur DLL verwendet werden muss (also sowas wie ..\..\Test\index.htm)

Leider hab ich im Netz kein Beispiel von solch einfachen Sachen gefunden, bei den anderen Beispielen ging's gleich los mit API und ActiveX und wasweißich...

Ich hab in meinem Projekt eine frm-Datei mit dem HELP-Button, der auf click dann die besagte HTML-Seite oeffnen soll...am Besten natuerlich mit dem Standart-Browser...
Die Zweite Datei meines Projektes ist eine cls-Datei...

Dank euch fuer die Hilfe!

Chris

Fizbin · 07.01.2006

Hi.

Um die API wirst Du da nicht herrumkommen, ist aber auch nicht so wild.
In dem Beispiel wird eine HTML Seite geöffnet, die sich im selben Ordner wie das Programm befindet (funktioniert nicht wenn das Programm direkt im Root liegt).

Code:

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()

Dim strPfad As String
strPfad = App.Path &amp; \test.htm
ShellExecute Me.hWnd, Open, strPfad, vbNullString, vbNullString, 1

End Sub

Chris 08/15 · 09.01.2006

Hi Fizbin!

Danke fuer die Antwort, das hat mir schon ziemlich weitergeholfen. Was ich jetzt machen muss ist sowas wie

Code:

strPfad = App.Path &amp; \..\Help\test.htm

Das funktioniert hier auf meinem Rechner ganz gut, aber kann ich das (ganz allgemein) so machen oder gibts da bessere Ansaetze?

Danke und Gruß!

Chris

tom_222_STYYYLE · 29.11.2006

ey man kann mir mal einer helfen bei visual basic 6 hier mein fehler: das will ned addieren da kommt gar nix!! was kann ich machen????

Private Sub Command1_Click()
Dim Command1 As String
Dim Text1 As Integer
Dim Text2 As Integer
Dim label1 As String

Select Case Text1 & Text2
Case Is > 0.00000000000001
label1 = Text1 + Text2
End Select

bitte helft mir!!

tom_222_STYYYLE2 · 29.11.2006

ey man kann mir mal einer helfen bei visual basic 6 hier mein fehler: das will ned addieren da kommt gar nix!! was kann ich machen????

Private Sub Command1_Click()
Dim Command1 As String
Dim Text1 As Integer
Dim Text2 As Integer
Dim label1 As String

Select Case Text1 & Text2
Case Is > 0.00000000000001
label1 = Text1 + Text2
End Select

bitte helft mir!!

hier schreibt mir bitte ne e-mail an: [email protected] danke im vorraus

VB6: einfach nur Internet-Seite aufrufen!!!

Chris 08/15

Fizbin

Chris 08/15

tom_222_STYYYLE

tom_222_STYYYLE2

VB6: einfach nur Internet-Seite aufrufen!!!

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums