Πώς να ενεργοποιήσετε ένα παράθυρο API να δείξει σε VB6

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

Ανοίξτε script VB6 σας στο προτιμώμενο επεξεργαστή σας VB 2

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στον κώδικα του δηλώσεις : . Private Declare Function FindWindow Lib " user32 " ? _Alias ​​" FindWindowA » _ ( ByVal lpClassName As String , _ByVal lpWindowName Όπως String ) Όπως Long

Private Declare Function GetClassName Lib " user32 " _Alias ​​" GetClassNameA » _ ( ByVal hWnd Όπως Long , _ByVal lpClassName Όπως String , _ByVal nMaxCount Όπως Long ) Όπως Long
εικόνων 3

αντιγραφή και επικόλληση του παρακάτω κώδικα στην ενότητα διαδικασίες : Public Sub GetClassNameFromTitle ( ) Dim sInput Όπως StringDim hWnd Όπως LongDim lpClassName Όπως StringDim nMaxCount Όπως LongDim lresult όπως Long 'pad το ρυθμιστικό αντάλλαγμα για GetClassNamenMaxCount = 256lpClassName = Διαστήματος ( nMaxCount ) « Σημείωση : πρέπει να είναι μια ακριβή matchsInput = εισαγωγής (" Δώστε τον ακριβή τίτλο του παραθύρου : " ) " Δεν επικύρωση γίνεται καθώς αυτό είναι ένα debug παράθυρο utilityhWnd = FindWindow ( vbNullString , sInput ) « Πάρτε το όνομα της κλάσης του παραθύρου , και πάλι , δεν validationlresult = GetClassName ( hWnd , lpClassName , nMaxCount ) Debug.Print " παράθυρο : " & sInputDebug.Print " όνομα κλάσης : " & Αριστερά $ ( lpClassName , lresult ) End Sub
Η

4 Κάντε κλικ στο" GetClassNameFromTitle "στο παράθυρο debug και κάντε κλικ στο " Run " . Αυτό πρέπει να εμφανίσει το όνομα της κλάσης του παραθύρου . Αυτό παρέχει τη βασική δομή για τη διαδικασία
5

Προσθέστε την ακόλουθη δέσμη ενεργειών , εάν θέλετε να συμπεριλάβετε τη διαδικασία μέσα σε ένα περιτύλιγμα : . Public Function fActivateWindowClass ( psClassname Όπως String ) Όπως BooleanDim hWnd Όπως LonghWnd = FindWindow ( psClassname , vbNullString ) Αν hWnd > 0 Then ' ShowWindow επιστρέφει True αν το παράθυρο ήταν κρυμμένες στο παρελθόν ». Δεν με νοιάζει γι 'αυτό χρησιμοποιούν το επιμέρους στυλ « ShowWindow και SW_SHOW δηλωθεί αλλού» SW_SHOW θα εμφανιστεί το παράθυρο στο σημερινό της μέγεθος και positionCall ShowWindow hWnd , SW_SHOWfActivateWindowClass = TrueElse ' FindWindow απέτυχε , επιστρέφει FalsefActivateWindowClass = FalseEnd IfEnd Λειτουργία


εικόνων