UserForms

Ein Programm kann Elemente der Benutzeroberfläche durch Anweisungen zur Laufzeit erstellen.

In einigen Fällen kann es aber bequemer sein, wenn der Gestalter eines Programmes die Benutzeroberfläche selber graphisch gestaltet als wenn er ein Programm schreibt, das eine Benutzeroberfläche aufbaut. Besonders für Anfänger ist das leichter. Aber auch Fortgeschrittene schätzen diese Möglichkeit für die Fälle, in denen die volle Flexibilität einer programmierten Benutzeroberfläche nicht benötigt wird.

Die ursprünglich Vision des „visuellen Programmierens“ war es Programme nicht als Texte zu schreiben, sondern diese durch Graphiken darzustellen. In solche einem „visuellem Programm“ gäbe es gar keinen Quelltext mehr, sondern nur noch Bilder. In vba ist diese Form der visuellen Programmierung nicht verwirklich.

UserForm in Projekt einfügen

Werkzeuge anzeigen

Zwei Textfelder und eine Befehlsschaltfläche hinzufügen

CommandButton1

Option Explicit
Private Sub CommandButton1_Click() 
  TextBox2 = TextBox1 / 1.95583 
End Sub

Form von Makro aus aktivieren

Modul1

Sub Zeige1
  UserForm1.Show
End Sub

CommandButton1

Option Explicit
Private Sub CommandButton1_Click() 
  TextBox2 = TextBox1 / 1.95583 
End Sub

Form von Makro aus aktivieren

Modul1

Sub Zeige1
  UserForm1.Show
End Sub

Ereignisprozedur zum Erkennen der Eingabetasten (nicht "Enter"!)

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "ok"
End Sub
Private Sub TextBox1_change()
MsgBox  KeyCode 
End Sub

Währungsrechner erweitern

Erweitern Sie den Währungsrechner so, daß er auch in die andere Richtung umrechnen kann. (Wenn dann noch Zeit bleibt, können Sie die Gestaltung verbessern oder (schwierig) den Dialog so gestalten, daß es nicht mehr nötig ist, die Schaltfläche anzuklicken.)

Beispiel

Bei Fehlen eines Häkchens im Kontrollkästchen k soll Textfeld t unsichtbar und Textfeld s gesperrt werden.

Sub K_Click
  Me.t.Visible = Me.K.Value
  Me.s.Enabled = Me.K.Value
End Sub