VBMini: Programmkontrolle

Aus Wikibooks

Wechseln zu: Navigation, Suche

Zurück zu Das Drumherum |

Hoch zu Inhaltsverzeichnis |

Vor zu Hilfe

Inhaltsverzeichnis

1 Programmstart
- 1.1 Besonderheiten
2 Programmende
3 Programm abwürgen

[Bearbeiten] Programmstart

Ein fertiges Programm kann man auf verschiedene Arten starten:

Aus der Programmierumgebung mit F5
Aus der Programmierumgebung über die Menüleiste mit dem Zeichen >
Vom Desktop her mit Klick auf das Programm, wenn man es kompiliert hat und im Desktop gespeichert hat.
Mit Alt + F2 und Eingabe des Programmnamens, wenn man es kompiliert hat .

Spezielle Startmöglichkeiten:

Bei Klick auf einen Befehlsbutton.
- Diese Version ist für den Anfänger am einfachsten zu verstehen.

Mit Form_Open()
- Automatischer Programmstart mit dem Laden einer Form
Bei Doppelklick auf die Form (Event = DoppelClick)
Beim Berühren der Form mit der Maus (Event = Enter)

[Bearbeiten] Besonderheiten

[Bearbeiten] Ein Programm starten und sofort wieder beenden

Ob das Sinn macht sei dahingestellt. Wie es geht, zeigt folgendes Beispiel. Sie brauchen nur eine leere Form, um es in Gang zu bringen.

PUBLIC SUB Form_Open()
a AS String[]
x AS Integer
a = NEW String[]
FOR x = 0 TO 4
  a.Add(Str(x))
NEXT
a[0] = "Anna"
a[1] = "Anton"
a[2] = "Toni"
a[3] = "Max"
a[4] = "Klaus"
FOR x = 0 TO 4
  PRINT a[x]
NEXT
ME.Close 
END

Mit

PUBLIC SUB Form_Open()

wird das Programm direkt gestartet.

Mit

ME.Close

in der vorletzten Zeile, wird es gleich wieder beendet.

[Bearbeiten] Programmstart mit Argumentenübergabe

Noch zu bearbeiten

[Bearbeiten] zweiten Programmstart verhindern

Noch zu bearbeiten

[Bearbeiten] Programmende

Mit dem Schließen-Button, normalerweise ein Kreuz in der rechten oberen Fensterecke
Ende mit ME.Close

PUBLIC SUB Button1_Click()
  ME.Close 
END

[Bearbeiten] Programmende mit ME.Close

In VB kann man ein Programm mit dem Befehl END beenden. Als Alternative nutzen Sie den Befehl ME.Close.

Das Beispielprogramm hat nur einen Befehlsbutton.

Starten Sie ein neues Projekt, holen Sie sich eine neue Form.

Holen Sie sich aus der Werkzeugkiste = Toolbox einen Befehlsbutton.

Drückt man auf den Button, soll das Programm sofort wieder beendet werden.

So schaut das Ganze aus:

Hinter dem Button1 und hinter der Form steht folgender Code:

PUBLIC SUB Button1_Click()
  ME.Close
END

[Bearbeiten] Ende mit der ESC Taste

PUBLIC SUB Form_KeyPress()
  IF Key.Code = Key["Esc"] THEN ME.Close
END

oder einfach in den Eigenschaften des Buttons für das Beenden die Eigenschaft Cancel auf True stellen. Dadurch wird beim Drücken der ESC-Taste das selbe bewirkt, als würde man den Button mit der Maus anklicken