Salut,
leider habe ich kein VB6 auf diesem Betriebssystem. Daher kann ich dir nur eine ungefähre Anleitung geben.
Starte ein neues Projekt.
Setze die BorderStyle-Eigenschaft der Form auf 0, die Form sollte keinen Rand mehr haben.
Füge einen Timer hinzu, ändere die Interval-Eigenschaft auf 2000 (Anzahl der Millisekunden bis zum nächsten Refresh).
Wähle Projekt>Komponenten. In der Liste sollte es einen Eintrag Microsoft Internet Controls geben. Diesen aktivierst du (Haken davor) und bestätigst den Dialog mit OK.
In deiner Werkzeug-Leiste gibt es eine neues Control, WebBrowser. Füge einen zu deiner Form hinzu.
Jetzt geht es an den eigentlichen Code. Doppelklicke dazu den Timer, worauf ein Timer-Ereignis für ihn erstellt wird. Darein schreibst du dann:
WebBrowser1.Navigate "http://www.meineurl.de/refresh.php" (das wird dann alle 2 Sekunden ausgeführt und aktualisiert die angezeigte Seite).
Doppelklicke in der Form das WebBrowser Control. Daraufhin sollte ein Click-Ereignis erstellt werden. Prüfe, ob es in der Ereignisliste (rechts oben im Codefenster) ein Doppelklick-Ereignis gibt (DblClick). Gibt es das, fügst du folgenden Source dort ein, andernfalls in das Click-Ereignis:
OpenWithLinkedApp Me.hwnd, "http://www.meineurl.de/" da das zusätzlichen Code benötigt, fügst du folgendes oberhalb von allen anderen Prozeduren (aber unterhalb von Option Explicit, falls es das geben sollte) ein:
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 Function OpenWithLinkedApp(ByVal lOwnerHWND As Long, _
ByVal sFile As String, Optional ByVal sVerb As String = "open") As Boolean
OpenWithLinkedApp = ShellExecute(lOwnerHWND, sVerb, sFile, "", "", 1) > 32
End Function Damit wird die Website beim Click aufgerufen.
Bleibt noch, das Fenster dauerhaft in den Vordergrund zu bekommen. Also Form_Load mit folgendem Code füllen:
TopMost Me.hwnd in das Form_Unload Ereignis folgender Code
TopMost Me.hwnd, False Auch das benötigt wieder Zusatzcode. Folgendes direkt unter der OpenWithLinkedApp-Funktion einfügen (also hinter dem End Function):
Public Function TopMost(ByVal HWND As Long, _
Optional ByVal bTopMost As Boolean = True) As Boolean
Dim lInsertAfter As Long
lInsertAfter = IIF(bTopMost, HWND_TOPMOST, HWND_NOTOPMOST)
TopMost = SetWindowPos(HWND, lInsertAfter, 0, 0, 0, 0, FLAGS) <> 0
End Sub Folgendes direkt vor der OpenWithLinkedApp-Funktion einfügen.
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = 2
Private Const SWP_NOSIZE = 1
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE Dann mal starten. Da ich das jetzt frei aus dem Kopf geschrieben habe, wird es vielleicht nicht ganz funktionieren. Probiere selbst, ansonsten die vom Interpreter markierte Zeile und die Fehlermeldung posten.
Stefan
Web: http://www.vbtricks.de.vu/
VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar. |
Forenübersicht Suchen Forumsregeln
Oktober 2025
Sie sind aktuell nicht angemeldet.
