1 Κάντε κλικ στο κουμπί των Windows " Start" και επιλέξτε " Όλα τα προγράμματα ". Κάντε κλικ στο " Microsoft Visual Basic " ομάδα του προγράμματος , στη συνέχεια, κάντε κλικ στο " Visual Basic 6 " για να ανοίξετε το λογισμικό compiler . 2
Κάντε κλικ στο "Αρχείο " μενού στο λογισμικό VB6 , στη συνέχεια, κάντε κλικ στο κουμπί "Άνοιγμα ". Κάντε διπλό κλικ στο αρχείο VB6 έργο σας για να φορτώσει όλα σχεδιασμένα φόρμες σας και τα αρχεία κώδικα .
Εικόνων 3
Κάντε διπλό κλικ στο αρχείο κώδικα που θέλετε να χρησιμοποιήσετε για να επεξεργαστείτε τη θέση App.Path . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο επάνω μέρος του αρχείου κωδικό σας :
Private Declare Function SetCurrentDirectory Lib " kernel32 " _
Alias " SetCurrentDirectoryA " ( ByVal lpPathName Όπως String ) Όπως Long
ο παραπάνω κώδικας εισάγει τη βιβλιοθήκη πυρήνα των Windows στο αρχείο , το οποίο σας παρέχει το " SetCurrentDirectory " λειτουργία.
Η
4 Μετακινηθείτε προς τα κάτω το αρχείο στο μέρος στον πηγαίο κώδικα που θέλετε να αλλάξετε το App.Path . Πληκτρολογήστε τον ακόλουθο κώδικα για να αλλάξετε τον κατάλογο :
SetCurrentDirectory ( "c : \\ Newpath \\ " )
Αντικαταστήστε το " C : \\ Newpath \\" . Με δικό σας κατάλογο
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα