Πώς να χρησιμοποιήσετε GetSetting σε VB6

Visual Basic 6 είναι μια γλώσσα προγραμματισμού και ολοκληρωμένο περιβάλλον ανάπτυξης . Η γλώσσα προέρχεται από άλλη γλώσσα που ονομάζεται BASIC . Όπως και το αρχικό BASIC , VB6 είναι απλό και εύκολο να το μάθει . Παρά το γεγονός ότι η γλώσσα είναι λιγότερο περίπλοκη από ό, τι άλλες παραδοσιακές γλώσσες εξακολουθεί να περιέχει μερικές από τις ίδιες δομές , όπως η υπό όρους δηλώσεις , loops και λειτουργίες. Μια από τις πολλές λειτουργίες που μπορείτε να χρησιμοποιήσετε σε VB6 είναι η λειτουργία GetSetting . Η λειτουργία GetSetting επιστρέφει πληροφορίες από το μητρώο των Windows . Οδηγίες
Η 1

Open VB6 . 2

Επιλέξτε "Standard EXE " από τη νέα λίστα των έργων .
Εικόνων 3

Πηγαίνετε στο η επάνω γραμμή μενού , κάντε κλικ στο " Project" και , στη συνέχεια, κάντε κλικ στην επιλογή " Προσθήκη Module . " Αυτό θα προσθέσει μια τυπική λειτουργική μονάδα κώδικα στο έργο VB6 σας
Η 4

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στη λειτουργική μονάδα κώδικα : .

Sub SaveandGetKey ( )

Dim strValue Όπως String

SaveSetting " MyAppName " , " όνομα τμήματος " , " KeyName " , " MyAddedValue "

strValue = GetSetting ( " MyAppName " , " όνομα τμήματος " , " KeyName " , " MyDefault " )

MsgBox strValue

End Sub

Ο κώδικας δημιουργεί μια διαδικασία ρουτίνας που ονομάζεται : SaveandGetKey . Στη συνέχεια, χρησιμοποιεί τη δήλωση Dim VB για να δηλώσει μια μεταβλητή που ονομάζεται strValue . Ο κώδικας στη συνέχεια, χρησιμοποιεί τη συνάρτηση VB SaveSettings να αποθηκεύσετε τις πληροφορίες στο μητρώο των Windows . Η πληροφορία αποθηκεύεται στο HKEY_CURRENT_USER \\ Software \\ VB και VBA Program Settings \\ MyAppName κλειδί στο μητρώο . Στη συνέχεια, χρησιμοποιεί τη συνάρτηση GetSetting να πάρει την τιμή , τις εκχωρεί σε strValue και , στη συνέχεια, εμφανίζει την τιμή στην οθόνη χρησιμοποιώντας τη λειτουργία MsgBox .
5

Πατήστε το " F5 " για να εκτελέσετε το πρόγραμμα , και θα πρέπει να δείτε το προστεθεί στο μητρώο αξίας .
Η
εικόνων