En el desarrollo de una aplicación en Visual Basic 6 , si desea activar otra aplicación de Windows o en la ventana , puede hacerlo fácilmente . Sin embargo, si usted desea hacer que la ventana aparece en la parte frontal y se muestra , se requiere mucho más código que usted puede darse cuenta al principio. Este proceso es muy útil ya que le permite interactuar con otros programas en su ordenador . Tenga en cuenta que no puede utilizar este procedimiento para iniciar otra aplicación que ha sido creada en VB6 . Instrucciones
1

Abra el script VB6 en su editor de VB preferido
2

Copia y pega el siguiente código en el código declaraciones : . Private Declare Function FindWindow Lib " user32 " ; _Alias ​​" FindWindowA " _ ( lpClassName ByVal como secuencia, _ByVal lpWindowName As String ) As Long

Private Declare Function GetClassName Lib " user32 " _Alias ​​" GetClassNameA " _ ( ByVal hWnd As Long , lpClassName _ByVal Como cadena , nMaxCount _ByVal As Long ) As Long
3

Copia y pega el siguiente código en la sección de procedimientos : GetClassNameFromTitle Public Sub () Dim sInput Como StringDim hWnd Como LongDim lpClassName Como StringDim nMaxCount Como LongDim LRESULT As Long ' rellenar el búfer de cambio de GetClassNamenMaxCount = 256lpClassName = espacio ( nMaxCount ) ' Nota : debe ser un matchsInput exacta = InputBox ("Escriba exactamente el título de la ventana :") ' No hay validación se lleva a cabo , ya que es una versión de depuración ventana utilityhWnd = FindWindow ( vbNullString , sInput ) ' Obtener el nombre de la clase de la ventana , de nuevo, no validationlresult = GetClassName ( hWnd, lpClassName , nMaxCount ) Debug.Print "Ventana :" & sInputDebug.Print " nombre de clase: "& Left $ ( lpClassName , LRESULT ) End Sub
4

clic " GetClassNameFromTitle "en la ventana de depuración y haga clic en" Ejecutar " . Esto debería mostrar el nombre de la clase de la ventana. Esto proporciona la estructura básica para el proceso
5

Agregue la siguiente secuencia de comandos si desea incluir el proceso en un envoltorio : . FActivateWindowClass Función Pública ( psClassname como secuencia) como BooleanDim hWnd Como LonghWnd = FindWindow ( psClassname , vbNullString ) Si hWnd > 0 entonces ' ShowWindow devuelve True si la ventana estaba oculta . No me importa lo que yo uso el estilo de sub - ShowWindow y SW_SHOW declarados en otra parte ' SW_SHOW mostrará la ventana en su tamaño actual y positionCall ShowWindow hWnd, SW_SHOWfActivateWindowClass = FindWindow TrueElse ' falló, FalsefActivateWindowClass retorno = FalseEnd IfEnd Función
< br >