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 :

Zurück zur Übersichtsseite