Visual Basic Property τσάντα Tutorial

Η PropertyBag είναι ένα Visual Basic 6.0 αντικειμένου που χρησιμοποιείται για να κρατήσει τα κλειδιά των δεδομένων και τις αξίες παρόμοιο με ένα πίνακα κατακερματισμού . Υπάρχουν μόνο δύο διαθέσιμες μεθόδους με την PropertyBag ? Την ανάγνωση και τη γραφή . Αυτά τα αντικείμενα που χρησιμοποιούνται κατά κύριο λόγο κατά τη δημιουργία τους ελέγχους των χρηστών , προκειμένου να αποθηκεύουν τα δεδομένα που πρέπει να επαναχρησιμοποιηθεί σε όλη επικλήσεις . PropertyBags αποθηκεύουν τα δεδομένα τους στον τύπο δεδομένων Variant , πράγμα που σημαίνει ότι τα δεδομένα μπορεί να είναι οποιουδήποτε άλλου τύπου δεδομένων, ακόμα και ολόκληρο αρχεία, και να εξακολουθεί να αποθηκευτεί επιτυχώς . Το αντικείμενο PropertyBag έχει αντικατασταθεί σε Visual Basic . NET με αντικείμενα όπως πίνακες κατακερματισμού και serialization . Οδηγίες
Η

1 Δημιουργήστε ένα νέο PropertyBag με τη διαστασιολόγηση και εμφανίσεων που όπως αποδεικνύεται από το ακόλουθο κώδικα :

Dim objMyPropertyBag As New PropertyBag 2

Ανέβασε ιδιοκτησίας PropertyBag σας χρησιμοποιώντας τη μέθοδο WriteProperty . Αυτή η μέθοδος παίρνει δύο απαιτούμενες παραμέτρους και μία προαιρετική παράμετρο . Οι παράμετροι είναι ένα όνομα για το ακίνητο , η αξία και η προεπιλεγμένη τιμή , αν θέλετε. Παρακάτω είναι δύο παραδείγματα προσθήκης αξιών. Η πρώτη δείχνει μια τυπική προσθήκη ακινήτου και ο δεύτερος δείχνει μια προσθήκη με μια προκαθορισμένη τιμή .

ObjMyPropertyBag.WriteProperty ( " myNumber " , 74 ) objMyPropertyBag.WriteProperty ( " myString " , " μια τιμή string" , "NULL " )
εικόνων 3

Ανάκτηση ένα ακίνητο από PropertyBag σας με τη μέθοδο ReadProperty . Η μέθοδος αυτή έχει μία απαιτούμενη παράμετρο για το όνομα ιδιοκτησίας και μια προαιρετική παράμετρο για μια προκαθορισμένη τιμή . Στην περίπτωση αυτή , η προεπιλεγμένη τιμή θα πρέπει να επιστραφεί μόνο εάν η πραγματική τιμή δεν υπάρχει .

Δημ. strRetrievedValue Όπως StringstrRetrievedValue = objMyPropertyBag.ReadProperty ( " myString " )

Dim intFakeValue Όπως IntegerintFakeValue = objMyPropertyBag . ReadProperty ( « myNumber " , 0 )
Η

4 Αφήστε τη μνήμη που κατέχονται από PropertyBag σας όταν ολοκληρώσετε τη χρήση , θέτοντας σε τίποτα .

Set objMyPropertyBag = Nothing


Η