Como puedo cerrar una ventana
Que tal raza tengo una duda que necesito aclarar lo antes posible , por medio de las librerias de vb6 me permitio encontrar que carpeta tiene abierta pero necesito una funcion o algun api que me permite cerrar la carpeta si es la que esta encontrada anexo algo del codigo par a que observer como hago la localizacion
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Dim WinName As String 'WINDOW'S TITLE
WinName = InputBox("Enter a window Title to find out", "Find", "Control Panel")
res = FindWindow(vbNullString, WinName)
If res = 0 Then
MsgBox "Could not find:" & WinName
Else
Shell (exitwindows = WinName)
End If
encontre algo asi pero no me funciona espero y me puedan ayudar
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Dim WinName As String 'WINDOW'S TITLE
WinName = InputBox("Enter a window Title to find out", "Find", "Control Panel")
res = FindWindow(vbNullString, WinName)
If res = 0 Then
MsgBox "Could not find:" & WinName
Else
Shell (exitwindows = WinName)
End If
encontre algo asi pero no me funciona espero y me puedan ayudar
Hola, el problema que tenés, está en la linea siguiente..
res = FindWindow(WinName,vbNullString)
ya que está la estabas usando mal, después la API para cerrar las ventas es DestroyWindow
Public Declare Function DestroyWindow Lib "user32" Alias "DestroyWindow" (ByVal hwnd As Long) As Long
Bueno, espero que tengas suerte..
Saludos desde Mdeo.
res = FindWindow(WinName,vbNullString)
ya que está la estabas usando mal, después la API para cerrar las ventas es DestroyWindow
Public Declare Function DestroyWindow Lib "user32" Alias "DestroyWindow" (ByVal hwnd As Long) As Long
Bueno, espero que tengas suerte..
Saludos desde Mdeo.