Παραμετροποίηση πεδίων

[kapetang]

Γεια σας
Ίσως τα παρακάτω να μπορούναν να βοηθήσουν στη συγγραφή απλούστερου και πιο κατανοητού κώδικα:
1. Κάθε χειριστήριο (control) εκτός από το όνομα έχει μια ιδιότητα ετικέτα (tag) που μπορούμε να την ορίσουμε στη μορφή σχεδίασης. Έστω ότι μας ενδιαφέρουν 10 χειριστήρια και ορίζουμε την ιδιότητα tag στους φυσικούς 1, 2, 3, ..., 10.
2. Κάθε χειριστήριο που έχει την εστίαση μπορεί να προσδιοριστεί στον κώδικα με την έκφραση me.ActiveControl. Έτσι οι εκφράσεις me.ActiveControl.Name και me.ActiveControl.Tag μας δίνουν το όνομα και την ετικέτα του.
3. Μπορύμε να δημιουργήσουμε μία συνάρτηση ή διαδικασία με βασικές εντολές
dim x as integer
x=cint(me.ActiveControl.Tag)
Select case x
case 1
εντολές........
case 2
εντολές

case 9
εντολές........
case slse
εντολές.....
end select

Φιλικά/Γιώργος