|
Lorsque vous développez une application dans Visual Basic 6, si vous voulez activer une autre application Windows ou une fenêtre, vous pouvez le faire facilement . Toutefois, si vous voulez faire apparaître cette fenêtre à l'avant et être démontré , il faut beaucoup plus de code que vous pouvez d'abord réaliser . Ce processus est très utile car elle vous permet d'interagir avec d'autres programmes sur votre ordinateur . Notez que vous ne pouvez pas utiliser cette procédure pour lancer une autre application qui a été créée en VB6 . Instructions
1 Ouvrez votre script VB6 dans votre éditeur préféré VB
2 Copiez et collez le code suivant dans le code des déclarations: . Private Declare Function FindWindow Lib " user32 " ; _Alias " FindWindowA " _ ( lpClassName ByVal As String , _ByVal lpWindowName As String) As long
Private Declare Function GetClassName Lib " user32 " _Alias " GetClassNameA " _ ( ByVal hWnd As Long , lpClassName _ByVal Comme string, nMaxCount _ByVal As Long ) As Long
3 Copiez et collez le code suivant dans la section des procédures : GetClassNameFromTitle public Sub () Dim sInput Comme StringDim hWnd Comme LongDim lpClassName Comme StringDim nMaxCount Comme LongDim LRESULT As Long ' tampon le tampon de retour pour GetClassNamenMaxCount = 256lpClassName = Espace ( nMaxCount ) ' Note: doit être un matchsInput exact = InputBox (" Entrez le titre de la fenêtre exact :") "Non validation se fait que c'est un debug fenêtre utilityhWnd = FindWindow ( vbNullString , sInput ) « Obtenez le nom de la classe de la fenêtre , encore une fois , aucune validationlresult = GetClassName ( hWnd , lpClassName , nMaxCount ) Debug.Print " window : "& sInputDebug.Print " nom de la classe : "& Left $ ( lpClassName , LRESULT ) End Sub
4 Cliquez sur " GetClassNameFromTitle " dans la fenêtre de débogage et cliquez sur" Exécuter " . Ceci devrait afficher le nom de la classe de la fenêtre. Ceci fournit la structure de base pour le processus
5 Ajoutez le script suivant si vous souhaitez inclure le processus dans une enveloppe : . FActivateWindowClass Fonction publique ( psClassname As String) As BooleanDim hWnd Comme LonghWnd = FindWindow ( psClassname , vbNullString ) Si hWnd > 0 Then ' ShowWindow retourne Vrai si la fenêtre était caché auparavant . Je ne m'inquiète pas si j'utilise le sous style ' ShowWindow et SW_SHOW déclarés ailleurs » SW_SHOW pour afficher la fenêtre dans sa taille actuelle et positionCall ShowWindow hWnd , SW_SHOWfActivateWindowClass = FindWindow TrueElse » a échoué , FalsefActivateWindowClass de retour = FalseEnd IfEnd Fonction: < br >
|
