Ανοίξτε Visual Basic 6 . 2
Επιλέξτε "Standard EXE " από τη νέα λίστα των έργων .
Εικόνων 3
Κάντε κλικ στο " project" και , στη συνέχεια, κάντε κλικ στην επιλογή " Προσθήκη Module " για να προσθέσετε μια τυπική λειτουργική μονάδα κώδικα στο έργο VB6 σας
Η
4 Πληκτρολογήστε τον ακόλουθο κώδικα στη λειτουργική μονάδα κώδικα : .
Sub LookIntoRegisty ( )
Dim mystringValue Όπως String
SaveSetting " MyAppName " , " όνομα τμήματος " , " KeyName " , " I_Am_Saving_This_Line_Into_Registry "
mystringValue = GetSetting ( " MyAppName " , " όνομα τμήματος " , " KeyName " , " MyDefault " )
MsgBox mystringValue
End Sub
το προηγούμενο κωδικό VB6 δημιουργεί μια διαδικασία ρουτίνας που ονομάζεται : LookIntoRegisty ? στη συνέχεια χρησιμοποιεί τη δήλωση VB Dim να δηλώσει μια μεταβλητή που ονομάζεται : mystringValue . Ο κώδικας στη συνέχεια, χρησιμοποιεί τη συνάρτηση VB SaveSettings να αποθηκεύσετε τις πληροφορίες στο μητρώο των Windows . Στη συνέχεια, χρησιμοποιεί τη λειτουργία GetSetting να εξετάσει το μητρώο και να πάρει την τιμή ? Στη συνέχεια, αναθέτει στην mystringValue , και , στη συνέχεια, εμφανίζει την τιμή στην οθόνη χρησιμοποιώντας τη συνάρτηση MsgBox
5
Πατήστε το " F5 " για να . τρέξει το πρόγραμμα.
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα