none
¿Cómo cerrar otros procesos o ventanas? RRS feed

  • Pregunta

  • Public Sub Main() 
    Dim m_UtilVentanas As cWindows 
    Dim col As Collection 
    Dim numItems As Long 
    Dim i As Long 
    Dim sTitulo As String 

    Set m_UtilVentanas = New cWindows 
    Set col = New Collection 

    Set col = m_UtilVentanas.EnumTopWindows 
    numItems = col.Count 
    For i = 1 To numItems Step 2 
    sTitulo = col.Item(i) 
    Call m_UtilVentanas.CloseApp(sTitulo, "CabinetWClass") 
    Next 

    Set col = Nothing 
    Set m_UtilVentanas = Nothing 
    End 
    End Sub 


    Hola, yo pongo este codigo, supuestamente sirve para cerrar ventanas o algo similar, pero me da error, dice que "cWindows" no está declarado. 
    ¿Alguien sabe que estoy haciendo mal? 
    (No quiero poner el Link donde lo saque para no ahcer Spam!)
    viernes, 20 de septiembre de 2013 22:36

Todas las respuestas

  • Este código es de Visual Basic 6, no es  .net

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    sábado, 21 de septiembre de 2013 21:38
  • Este código es de Visual Basic 6, no es  .net

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    Utilizo VB 2008 exress edition se me olvido aclarar, puedo adaptarlo a esta versión?
    Gracias por responder!
    domingo, 22 de septiembre de 2013 4:42