Πώς να Αναβαθμίστε το Visual Basic 6 Κωδικός

Visual Basic 6 ( VB6 ) έχει ένα εργαλείο , κώδικα Σύμβουλος για το Visual Basic 6.0 , που ελέγχει υπάρχοντα κώδικα για τη συμμόρφωση με τις βέλτιστες πρακτικές . Ο Σύμβουλος σας προειδοποιεί για τα προβλήματα και μπορεί να σώσει κάποια στιγμή σε μια αναβάθμιση σε ένα από τα Visual Basic 2005 ή άλλες εκδόσεις Visual Basic.NET . Δεν μπορεί να πιάσει όλα τα προβλήματα , αλλά θα πρέπει να μειωθεί ο αριθμός τους . Μέσα σε Visual Studio 2005 και Visual Studio 2008 , μια αναβάθμιση Οδηγός ενεργοποιεί όταν προσπαθείτε να ανοίξετε ένα πρόγραμμα γραμμένο σε Visual Basic 6 . Οδηγίες
Η

1 Κατεβάστε και εγκαταστήστε το δωρεάν Κωδικός Σύμβουλος για το Visual Basic 6.0 ( δείτε το σύνδεσμο πρώτη Πόρων) . Ανοίξτε το Visual Basic 6 και να δημιουργήσετε ένα νέο έργο Standard.exe να αποδείξει το Σύμβουλο . 2

Κάντε διπλό κλικ στο στοιχείο ελέγχου πλαισίου κειμένου , ένα μικρό τετράγωνο εικονίδιο με πεζά γράμματα " ab " στην εργαλειοθήκη πάνελ στο αριστερό μέρος της οθόνης για να τοποθετήσετε ένα πλαίσιο κειμένου στη φόρμα . Κάντε διπλό κλικ στο CommandButton , ένα μικρό ορθογώνιο πλαίσιο του ελέγχου πλαίσιο κειμένου , για να το προσθέσετε στη φόρμα .
Εικόνων 3

Κάντε κλικ στο πλαίσιο Text1 τώρα την φόρμα για να δείτε τις ιδιότητες στην δεξιό τμήμα της οθόνης . Η ιδιότητα κειμένου τονίζεται . Κάντε διπλό κλικ για να επισημάνετε την πραγματική περιουσία ανάγνωση " Text1 " και να το διαγράψετε .
Η

4 Κάντε διπλό κλικ στο κουμπί " Command1 " για να ανοίξετε το παράθυρο κώδικα . Πληκτρολογήστε τον ακόλουθο κώδικα και , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να το τρέξει . Κάνετε αυτό αρκετές φορές για να δοκιμάσετε κάθε απάντηση όταν επιβεβαίωσης asked.Option ExplicitPrivate Sub Command1_Click ( ) Dim yourname , απόκριση Όπως Stringyourname = InputBox ( " Ποιο είναι το όνομά σου;" ) Text1.Text = " Είπες το όνομά σας ήταν " & yournameresponse = MsgBox ( " Είναι αυτό σωστό ; " , vbYesNoCancel ) Εάν η απάντηση = vbYes ThenMsgBox ( "Fine ". ) απάντηση EndElseIf = vbNo ThenText1.Text = " Συγγνώμη , παρακαλώ προσπαθήστε ξανά ; " Else : Text1.Text = " μην τα παρατάτε up ! " End Sub IfEnd
5

Διαγραφή ή τοποθετήστε μια απόστροφο μπροστά από το " Option Explicit "γραμμή . Αλλάξτε την τελευταία λέξη της γραμμής ανάγνωση "Dim yourname , απάντηση As String " στο "Double ". Πατήστε το πλήκτρο " F5 " και σημειώστε το πρόγραμμα εξακολουθεί να λειτουργεί . Κάντε κλικ στο κουμπί "Add - Ins " στο κύριο μενού , στη συνέχεια, «Κώδικας Advisor " και επιλέξτε "Προσθήκη FixIts . " Ο Σύμβουλος εντοπίζει δύο προβλήματα με την προσθήκη αυτών των γραμμών στην θέση του προβλήματος :

« FIXIT : Χρήση Option Explicit να αποφευχθεί η δημιουργία σιωπηρά μεταβλητές τύπου Variant'FIXIT : να κηρύξει « yourname »με μια δέσμευση νωρίς τύπο δεδομένων

Διαγράψτε τις γραμμές FIXIT . Αποθηκεύστε το έργο και την έξοδο της Visual Basic 6 .
Η 6

Ανοίξτε μια νεότερη έκδοση του Visual Basic . Κάντε κλικ στο " Αρχείο" και " Άνοιγμα έργου ". Εντοπίστε το έργο της Visual Basic αρχείο που αποθηκεύσατε στο βήμα 4 , το οποίο θα έχει « vbp " επέκταση , και κάντε διπλό κλικ πάνω του . Ο Οδηγός αναβάθμισης ανοίγει με κάποιες προκαταρκτικές οδηγίες . Κάντε κλικ στο κουμπί "Next" και επιλέξτε τον τύπο του έργου , συνήθως μια " EXE " έκδοση . Κάντε κλικ στο κουμπί " Next" και πάλι , επιλέξτε που θέλετε να αποθηκεύσετε τη νέα έκδοση και να συμφωνήσουν σε ένα νέο φάκελο, εάν είναι απαραίτητο . Συνεχίστε να κάνετε κλικ στο " Next" μέχρι ο οδηγός αρχίζει . Όταν τελειώσει , όλες οι προβληματικές περιοχές που πρέπει να καθοριστεί πριν από το πρόγραμμα είναι συμβατό θα προσδιοριστούν με Αναβάθμιση προειδοποιήσεις .
Η
εικόνων