22-04-17, 17:22
|
 | Συντονιστής Όνομα: Νίκος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 28-12-2008 Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
| |
Καλησπέρα
Με 'το άνοιγμα' η φόρμα frm1 τρέχει τη ρουτίνα CheckVolumeSerialNumber που υπάρχει στη module1.
Εκεί έφτιαξα μια μεταβλητή Public Serial As Long που έχει ως τιμή το αποτέλεσμα της ρουτίνας, δηλαδή τον σειριακό αριθμό. Αυτή η τιμή είναι ορατή από παντού.
Αν σε οποιαδήποτε φόρμα φτιάξεις ένα πλαίσιο κειμένου με όνομα έστω text_sr και σε ένα κουμπάκι της φόρμας γράψεις σε κάποιο συμβάν Me!text_sr = Serial, τότε στο πλαίσιο θα δεις να γράφεται ο ζητούμενος σειριακός αριθμός.
Προϋπόθεση ! Να τρέξεις πρώτα τη ρουτίνα CheckVolumeSerialNumber.
Αυτό είναι όλο... Εφόσον θες να ασχοληθείς σοβαρά με τον προγραμματισμό, να μάθεις να διαβάζεις κώδικα, αλλιώς ό,τι φτιάχνεις θα σε βασανίζει και δεν θα τελειώνει ποτέ.
Φιλικά -πάντα- ότι σε λέω / Νίκος
|