Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Selbst Programmierte Tooltiptexts
Autor: Alex
Datum: 04.05.02 16:08
Hi! Ich hab da eine Idee. Du kanst die Function mal probieren: Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub Dies ist die Function des Labels. Wenn die Maus drüber ist kannst du die Variablen X und Y verwenden. Diese Variablen kannst du aber nur in dieser Sub verwenden. Probiers mal aus. Hier hab ich ein Codebeispiel für dich: 'Du must nur deinen Code etwas umschreieben, So das diese Sub erst dann ' angewendet wird wenn die Maus über dem Label ist. dim A as Boolean ' Dies ist der auslöser, den du auf True setzen must. Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As _ Single) If A = True then A = False frmDes.lblDes.Caption = "//use away mode;" frmDes.Show frmDes.ScaleX = X frmDes.ScaleY = Y end if End Sub Ich hoffe es hilft etwas. MFG Alexander

Selbst Programmierte Tooltiptexts	53	Klesk	04.05.02 15:24
Re: Selbst Programmierte Tooltiptexts	35	Alex	04.05.02 16:08
Re: Selbst Programmierte Tooltiptexts	27	Klesk	05.05.02 12:57
Re: Selbst Programmierte Tooltiptexts	28	Alex	05.05.02 16:40
Re: Selbst Programmierte Tooltiptexts	202	Moni	04.05.02 16:28

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