Inhaltsverzeichnis

20.2 Balloon

Die Klasse Balloon (gb.form) implementiert ein Anzeige-Objekt für Nachrichten. Diese Klasse zeigt eine Nachricht und ein optionales Icon in einem farbigen Ballon an.

Bild1

Abbildung 20.2.1: Ballon mit Icon 'Information' und farbig ausgezeichnetem Text-Abschnitt

20.2.1 Eigenschaften

Die Klasse Balloon verfügt über vier Eigenschaften:

EigenschaftDatentypBeschreibung
ControlControlEs wird NULL zurückgegeben, wenn kein Ballon angezeigt wird oder das Steuerelement, mit dem das Balloon-Objekt assoziiert ist.
DelayIntegerErmittelt oder legt die Anzahl der Millisekunden fest, wie lange der Ballon angezeigt wird. Die Standard-Zeit sind 5 Sekunden.
FontFontGibt den Font zurück oder setzt den Font für den Ballon.
VisibleBooleanGibt TRUE zurück, wenn der Ballon sichtbar ist.

Tabelle 20.2.1.1 : Eigenschaften der Klasse Balloon

20.2.2 Methoden

Die Klasse Balloon hat 2 grundlegende Methoden – eine zum Anzeigen des Ballons und eine zum Verstecken des Ballons. Bei der Anzeige können optional 5 verschiedene Icon mit angezeigt werden, die den Typ der Mitteilung (Fehler, Frage, Information, Löschen und Warnung) kennzeichnen.

MethodeBeschreibung
Balloon ( Message As String, Control As Control [ , X As Integer, Y As Integer ] )Zeigt die Mitteilung in einem Ballon mit farbigem Hintergrund an.
Balloon.TYPE ( Message As String, Control As Control [ , X As Integer, Y As Integer ] )Zeigt die Mitteilung in einem Ballon mit farbigem Hintergrund an, der ein Icon vorangestellt wird.
Hide ( [ Control As Control ] )Der Ballon wird versteckt. Sie können optional die Komponente angeben, auf die der Ballon zeigt.

Tabelle 20.2.2.1 : Methoden der Klasse Balloon

20.2.3 Hinweise zur Verwendung der Klasse Balloon

Für kleine, auf eine Komponente bezogene Hinweise eignet sich als Alternative der Einsatz der ToolTipp-Eigenschaft. Für längere Mitteilungen stellt die Klasse Message sechs unterschiedlichen Varianten zur Verfügung → Kapitel 20.1 Message. Für ausführliche Mitteilungen – zum Beispiel im Rahmen einer Programm-Hilfe – stehen Ihnen weitere Anzeige-Objekte zur Verfügung, deren Übersicht Sie im → Kapitel 11.8 Programmhilfen nachlesen können. Dort finden Sie auch Anwendungshinweise und viele Beispiele.

20.2.4 Beispiele

Die folgenden zwei Beispiele zeigen typische Einsatzfälle für Ballons.

Beispiel 1

Das Beispiel 1 bezieht sich auf die → Abbildung 20.2.1 zur Anzeige eines Ballons mit Icon. Der folgende Quelltext-Ausschnitt ist typisch für den Einsatz eines Ballons:

[1] bbPublic Sub btnHilfe_Click()
[2]   Dim sMitteilung As String
[3]   
[4]   Balloon.Font = Font["Ubuntu,12"]
[5]   Balloon.Delay = 10000
[6]     
[7]   sMitteilung = "Nach der Installation ist der MySQL-Server so konfiguriert, dass er nur vom " 
[8]   sMitteilung &= "localhost - also vom lokalen Rechner aus - erreichbar ist. Soll der Server "
[9]   sMitteilung &= "über das Netzwerk ansprechbar sein, so kann man hier zum Beispiel mit " 
[10]   sMitteilung &= "<font color='red'>'bind-address = 192.168.0.100' </font>die interne "
[11]   sMitteilung &= " IP-Adresse des Servers eintragen. So ist der MySQL-Server auch von anderen"
[12]   sMitteilung &= " Arbeitsstationen aus dem LAN ansprechbar."
[13]   
[14]   If Not Balloon.Visible Then
[15]      Balloon.Info(sMitteilung, btnHilfe, btnHilfe.W - 5, btnHilfe.H - 3)
[16]   Else
[17]     Balloon.Hide
[18]   Endif ' If Not Balloon.Visible ?
[19] End ' btnHilfe_Click()

Hinweise:

Beispiel 2

Symbol

Setzen Sie einen Ballon auf dem Formular ein – hier gebunden an einen kleinen Button neben einer Textbox mit einem kleinen i als Symbol – um dezent einen Hinweis anzuzeigen. Der Ballon mit dem Hinweistext wird angezeigt, wenn Sie mit der Maus über dem Button mit dem Icon stehen. Der Ballon verschwindet nach 3 Sekunden automatisch oder genau dann, wenn Sie mit der Maus den Button innerhalb der Anzeigezeit wieder verlassen:

Public Sub btnInformation_Enter() ' Ballon anzeigen
  Dim sMitteilung As String
   
  Balloon.Font = Font["Ubuntu,11"]
  Balloon.Delay = 3000
  sMitteilung = "Eingabe in GROSSBUCHSTABEN erforderlich!" & gb.Tab
  Balloon.Info(sMitteilung, Last) 

End ' Sub btnInformation_Enter()
Public Sub btnInformation_Leave() ' Ballon verstecken
  Balloon.Hide
End ' btnInformation_Leave()

Download

Artikel

Download