Παράδειγμα 4.

Να γραφεί πρόγραμμα στο οποίο ο χρήστης να δίνει ένα ψηφίο και να εμφανίζεται το ψηφίο ολογράφως.

Τοποθετήστε στη φόρμα τα αντικείμενα που φαίνονται στην εικόνα και εισάγετε τον κώδικα :

Private Sub Form_Load()

cmdClear_Click

End Sub

Private Sub Text1_Change()

Select Case Text1.Text

Case "0"

Text2.Text = "Μηδέν"

Case "1"

Text2.Text = "Ένα"

Case "2"

Text2.Text = "Δύο"

Case "3"

Text2.Text = "Τρία"

Case "4"

Text2.Text = "Τέσσερα"

Case "5"

Text2.Text = "Πέντε"

Case "6"

Text2.Text = "Έξι"

Case "7"

Text2.Text = "Εφτά"

Case "8"

Text2.Text = "Οκτώ"

Case "9"

Text2.Text = "Εννιά"

Case Else

Text2.Text = "Δώσε αριθμό"

End Select

End Sub

Private Sub cmdClear_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Private Sub cmdExit_Click()

End

End Sub

Στο παραπάνω παράδειγμα, δεν πρέπει να αφήσετε το χρήστη να δώσει πάνω από ένα ψηφίο, ούτε να γράψει στο text box που αναγράφεται το ψηφίο ολογράφως. Για να το πετύχετε, κάντε την ιδιότητα MaxLength του Text1 ίση με 1 και την ιδιότητα Locked του Text2 ίση με True.