Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Scrollender Hyperlink
Autor: michi-bib
Datum: 17.09.02 11:58
Hallo erstmal, ich stelle mir das wie folgt vor: drei indizierte Label1 wandern von rechts nach links über den Bildschirm in derselben Höhe, in der Caption-Eigenschaft der darzustellende Text, in der Tag-Eigenschaft die URL. Das Wandern erfolgt timergesteuert (im Entwurf Enabled = False). Ansonsten habe ich versucht, alle Eigenschaften per Code einzustellen. Auf Command1_Click startet die Geschichte. Auf Label1(index)_Click navigiert der Default-Browser zur entsprechende URL. Das ganze lässt sich leicht auf noch mehr Labels erweitern. 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() Dim i As Long For i = 1 To 2 Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width Next i Timer1.Interval = 100 Timer1.Enabled = True End Sub Private Sub Form_Load() Dim i As Long For i = 0 To 2 Label1(i) = " --- Überschrift " + CStr(i) + " --- " Label1(i).AutoSize = True Next i Label1(0).Tag = "www.microsoft.com" Label1(1).Tag = "www.ibm.com" Label1(2).Tag = "www.oracle.com" Form1.ScaleMode = vbPixels End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim i As Long For i = 0 To 2 Label1(i).ForeColor = RGB(0, 0, 0) Next i End Sub Private Sub Label1_Click(Index As Integer) Dim ret As Long ret = ShellExecute(0, "open", Label1(Index).Tag, 0, 0, 0) End Sub Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim i As Long For i = 0 To 2 If i = Index Then Label1(i).ForeColor = RGB(0, 0, 255) Else Label1(i).ForeColor = RGB(0, 0, 0) End If Next i End Sub Private Sub Timer1_Timer() Dim xTemp(2) As Long Dim i As Long For i = 0 To 2 xTemp(i) = Label1(i).Left xTemp(i) = xTemp(i) - 1 If xTemp(i) + Label1(i).Width < 0 Then xTemp(i) = Form1.ScaleWidth Label1(i).Move xTemp(i) Next i End Sub Ich hoffe das hilft ein bisschen weiter. Gruß Michi aus Hannover

Scrollender Hyperlink	95	Levis	16.09.02 20:38
Re: Scrollender Hyperlink	48	michi-bib	17.09.02 11:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen