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

Το παρακάτω παράδειγμα επιδεικνύει τη χρήση των κουμπιών εντολών (command buttons) καθώς και των πλαισίων κειμένου (text box).

Βάλτε πάνω στη φόρμα ένα text box με όνομα txtDist και ορίστε την ιδιότητα MaxLength σε 3, ώστε ο χρήστης να μπορεί να εισάγει μόνο μέχρι τριψήφιους αριθμούς. Τοποθετήστε τέσσερα command buttons με ονόματα cmdUp, cmdDown, cmdLeft και cmdRight και αντίστοιχα captions. Τοποθετήστε ακόμα δύο ετικέτες (labels) όπως φαίνεται στην εικόνα, και ονομάστε lblTest αυτή με το caption ”Κινείται” (δεν θα χρησιμοποιήσουμε στον κώδικα την άλλη, οπότε αγνοήστε το όνομά της). Αλλάξτε και το caption της φόρμας.

Εισάγετε τον κώδικα :

Dim Distance As Integer

Private Sub Form_Load()

txtDist.Text = 100

End Sub

Private Sub cmdUp_Click()

lblTest.Top = lblTest.Top - Distance

End Sub

Private Sub cmdDown_Click()

lblTest.Top = lblTest.Top + Distance

End Sub

Private Sub cmdLeft_Click()

lblTest.Left = lblTest.Left - Distance

End Sub

Private Sub cmdRight_Click()

lblTest.Left = lblTest.Left + Distance

End Sub

Private Sub txtDist_Change()

Distance = Val(txtDist.Text)

End Sub

Κάθε φορά που το περιεχόμενο της μεταβλητής txtDist αλλάζει, η μεταβλητή Distance παίρνει καινούρια τιμή, που χρησιμοποιείται για να αλλάζει η θέση της ετικέτας, με κατάλληλο τρόπο, κάθε φορά που πατιέται κάποιο από τα command buttons.