Info Rho ohne Meldung        Zurück       

Der Message befehl hat den Vorteil, dass er immer vor der restlichen Anzeige auftaucht. Er hat den Nachteil, dass sein Text nicht markiert werden kann.

Ein Beispiel ohne Messagebox zeigt folgendes Programm. Statt der Messagebox wird eine TextArea verwendet, die zunächst auf Visible = false ( = unsichtbar ) eingestellt wird. Als Befehlseingabe wird ein Toggle-Button ( Befehlsknopf mit 2 Einstellungen ) verwendet .

Clickt man auf den Button erscheint der Infotext. Clickt man noch einmal ist der Text wieder weg. Der Nachteil ist , dass die TextArea Platz wegnimmt und nicht unbedingt im Vordergrund erscheint.

Als Befehlseingabe wird ein Toggle-Button verwendet .

PUBLIC SUB ToggleButton1_Click()

DIM Help AS String

IF TextArea1.Visible = FALSE THEN

• ToggleButton1.Text = "Info weglöschen"

• Help = "Rho = Reiner Hoffmann " & Chr(13) & Chr(10)

• Help = Help & "www.madeasy.de" & Chr(13) & Chr(10)

• Help = Help & "rho54@gmx.de"

• TextArea1.Visible = TRUE

• TextArea1.text = Help

ELSE

• TextArea1.Visible = FALSE

• ToggleButton1.Text = "Info anschauen"

ENDIF

END