VB-Homepage Tipp 062

Tooltips

Was denn, Sie arbeiten noch mit VB3, Sie Ärmster und vieles steht Ihnen nicht so ohne weiteres zur Verfügung, was in neueren Versionen von VB sogar zu den Standardeigenschaften gehört. Damit wir dieses Manko wieder etwas reduzieren können, hier dieser Tipp. Was in den neuen VB Versionen unter "ToolTippText" firmiert und den eingegeben Text zur Laufzeit als Hilfetext zu jedem Objekt der Form anzeigt, daß soll dieser Tipp auch für VB3 zur Verfügung stellen. Mal wieder ein Tipp zum Auffrischen von eigenen Projekten und zur allseits geforderten Benutzerfreundlichkeit. Tooltips sind kleine Hilfefenster die dem "blöden" Anwender sagen, was er zu tun und gegebenenfalls zu lassen hat. :-)) Als erstes brauchen wir ein neues VB-3 Projekt. Diesem Projekt fügen wir ein Timerobjekt und eine Picturebox hinzu. Timerinterval auf 500 stellen. Picturebox auf nicht visible stellen, als Name=Tooltip eingeben und BackColor auf gewünschte Farbe einstellen. General/Declarations Private Sub ToolTipps (Frm As Form, Ctl As Control, OnOff As Integer) 'Damit der Tooltip auch innerhalb der Form angezeigt wird (mal über & mal unter dem Objekt) If OnOff Then    Frm.ToolTipp.Cls    Frm.ToolTipp.Print " " & Ctl.Tag & " "    Frm.ToolTipp.Width = Frm.ToolTipp.TextWidth(Ctl.Tag & " ")       If Ctl.Top + Ctl.Height + Frm.ToolTipp.Height + 40 < Frm.ScaleHeight Then       Frm.ToolTipp.Top = Ctl.Top + Ctl.Height + 40    Else       Frm.ToolTipp.Top = Ctl.Top - Frm.ToolTipp.Height - 40    End If    If Ctl.Left + Frm.ToolTipp.Width < Frm.ScaleWidth Then      Frm.ToolTipp.Left = Ctl.Left    Else      Frm.ToolTipp.Left = Ctl.Left - Frm.ToolTipp.Width + Ctl.Width    End If    Frm.Timer1.Enabled = True Else    Frm.ToolTipp.Visible = False    'damit der Tooltip im Vordergrund angezeigt wird    Frm.ToolTipp.ZOrder 1    Frm.Timer1.Enabled = False End If End Sub Timer1/Timer ToolTipp.Visible = True ToolTipp.ZOrder 0 Timer1.Enabled = False Form/Load Damit zu Beginn keine Box angezeigt wird ToolTipps Me, ToolTipp, False Form/MouseMove Damit auch ansonsten keine Anzeige erfolgt, wenn der Mauszeiger auf der Form steht. ToolTipps Me, ToolTipp, False Für jedes Objekt das eine Hilfebox anzeigen soll, in der Aktion MouseMove ToolTipps Me, Command1, True ToolTipps Me, Label1, True ToolTipps Me, Text1, True nun muß nur noch in jeder TAG Eigenschaft des Objekts der entsprechende Hilfetext eingegeben werden. Ist die Eigenschaft ENABLED = False gesetzt, erfolgt keine Anzeige !

Tipp-Download

Quelle :