Abrir una ventana [Visualbasic]

Topic created · 8 Posts · 901 Views
  • Hola! estoy usando VB2010, y me gustaría saber un código que me sería muy útil a la creación de mi nuevo programa.

    Bien, lo que quiero es que cuando haga click en un botón, te abra una ventana de las que hay en la barra de herramientas. Es decir, si tienes el paint minimizado, con que pongas el título de la ventana en una caja de texto, y le des al botón, te abra la ventana que contiene el nombre de la caja de texto, la verdad es que me urge pero bueno
    Gracias! 😄

  • [http://www.google.com/search?client=ubuntu&channel=fs&q=visual+basic+ocultar+mostrar+ventana&ie=utf-8&oe=utf-8][0]">[http://www.google.com/search?client=ubu][1] ... 8&oe=utf-8

    En ese enlace, encontrarás bastantes ejemplos de como mostrar y ocultar las ventanas..

    [0]: <a href=
    [1]: http://www.google.com/search?client=ubu

  • Creo que él se refiere a ocultar o mostrar ventanas ajenas al programa.
    Que yo sepa no se puede hacer de un modo fácil, tendrías que usar apis de windows y el código no sería portable de un SO a otro.

  • si lo que quieres hacer es traer a primera plana y activar una ventana, busca info a cerca del aip SETFOREGROUNDWINDOW

  • @jumarras said:

    si lo que quieres hacer es traer a primera plana y activar una ventana, busca info a cerca del aip SETFOREGROUNDWINDOW

    He encontrado información sobre esa API, y la verdad es que un canteo, no hay ninguno que te lo den "hecho", ningún ejemplo.
    El que he podido sacar es este:

    Dim Ret As Long
            Dim winWnd As Long
    
    
            winWnd = FindWindow(vbNullString, "C:SoftphoneIntegra.htm - Microsoft Internet Explorer")
            MsgBox("The windows id is: " & winWnd)
    
            If winWnd > 0 Then
                Call ShowWindow(winWnd, 3)
    
                Call SetForegroundWindow(winWnd)
    
            Else
                MsgBox("That app is not open.")
            End If
    
    
        End Sub
    

    Y como no, tengo subrayado bastantes lineas. Que cagada Ç_Ç Con lo que me hace falta xD

  • @Anghios said:

    Y como no, tengo subrayado bastantes lineas. Que cagada Ç_Ç Con lo que me hace falta xD

    Eso de que tienes subrayadas bastantes lineas no lo entiendo xD. Te refieres a que no entiendes cómo se usa? yo no se VB pero creo que lo entiendo, FindWindow devuelve un long que es la ID de la ventana, y si ha conseguido correctamente la id de la ventana devuelve un valor mayor que uno, pero no creo que sea eso no?

  • Si pero los comandos "ShowWindow" no lo reconoce el VB, es decir, lo que está subrayado es que está mal, funcionaría si llamase a la variable ShowWindow, pero tendría que darle otra función U_U

  • lo meto a tareas pendientes. Si no hay una forma "fácil", creo que a través de la dll del autoit se podrá hacer. Lo miraré.

Log in to reply