Ver Mensaje Individual
  #3 (permalink)  
Antiguo 20/02/2013, 11:10
Omarchh
 
Fecha de Ingreso: febrero-2013
Mensajes: 14
Antigüedad: 11 años, 3 meses
Puntos: 0
Respuesta: Cambiar ventana activa para escribir en ella

He encontrado este codigo, me ha funcionado, ahora la pregunta es... como cambio a la ultima ventana activa sin tener que ponerle el nombre de la aplicacion y el titulo de la ventana???


Código vb:
Ver original
  1. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
  2.     Private Shared Function FindWindow( _
  3.        ByVal lpClassName As String, _
  4.        ByVal lpWindowName As String) As IntPtr
  5.     End Function
  6.  
  7.    
  8.     <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
  9.     Private Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Long
  10.     End Function
  11.  
  12.     Dim ParenthWnd As New IntPtr(0)
  13.    
  14.  
  15.     Public Sub cambioventana(ByVal title As String)
  16.  
  17.         'Busca la ventana, los valores deben ser la aplicacion y el titulo de la aplicacion
  18.        'Esto es lo que quiero saber...
  19.        ParenthWnd = FindWindow("Notepad", "Sin título: Bloc de notas")
  20.  
  21.         If ParenthWnd.Equals(IntPtr.Zero) Then
  22.             MessageBox.Show("No se encontro la ventana")
  23.         Else
  24.             ' La ha encontrado
  25.            SetForegroundWindow(ParenthWnd)
  26.         End If
  27.     End Sub


Gracias de antemano