vb 通过句柄将外部程序 设为本程序的子窗体 并 改变其窗体大小

有两个Win 32 的API能够改变窗口大小轿笑，跟目标窗口有没边框无关：

MoveWindow( ) 和 SetWindowPos( )

比如用 MoveWindow( ) 的：

Option Explicit

Private Declare Function MoveWindow Lib "user32" ( _

              烂世       ByVal hWnd As Long, _

                     ByVal x As Long, ByVal y As Long, _

                     ByVal nWidth As Long, ByVal nHeight As Long, _

                     ByVal bRepaint As Long) As Long

Private Sub Command1_Click()

   Dim hWinWND As Long

   闭历含hWinWND = &HC018A    '实际窗口句柄你自己处理

   Call MoveWindow(hWinWND, 30, 120, 510, 300, 1)

End Sub

使用Shell函数来调用外部的应用程序。

Shell 函数

执行一厅型腊个可执行文件，租败返回一个 Variant

(Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

Shell 函数示例

本示例使用 Shell 函数来完成一个用户指定的应用程序。

' 将第二个参数值设成 1，可让该程序以正常大小的窗口扮滑完成，并且拥有焦点。

Dim RetVal

RetVal = Shell("C:\WINDOWS\system32\CALC.EXE", 1)   ' 完成Calculator。

      private const int GWL_STYLE = (-16)

      private const int GWL_EXSTYLE = (-20)

      private const uint WS_EX_LAYERED = 0x80000

      private const uint WS_EX_TRANSPARENT = 0x20

      private const uint WS_THICKFRAME = 262144

      private const uint WS_BORDER = 8388608

    

/// <summary>使指定 「 <see cref="IntPtr"/>句柄」 窗体 边框样式变为无边框。</summary>

      public static uint 无边框窗体(IntPtr 句柄) {

          uint style = API_窗口.GetWindowLong(句柄, GWL_STYLE)

          style &= ~WS_BORDER

          style &= ~WS_THICKFRAME

          return API_窗口.SetWindowLong(句柄, GWL_STYLE, style)

      }

API窗口静态类

 游世     [DllImport("user32", EntryPoint = "SetWindowLong")]

      public static extern uint SetWindowLong(IntPtr hwnd, int nIndex, uint dwNewLong)

      [DllImport("user32", EntryPoint = "GetWindowLong")]

      public static extern uint GetWindowLong(IntPtr hwnd, int nIndex)

修改窗口位置

/// <summary>

      /// 设置窗体的位置和大小。

      /// </summary>

      /// <param name="hWnd"></param>

      /// <param name="hWndInsertAfter">用于标识在z-顺序的此 CWnd 对象之前的 CWnd 对象。

      /// <para></para>如果uFlags参数中设置了SWP_NOZORDER标记则本参数将被忽略。可为下列值之一：

      /// <para></para>HWND_BOTTOM：值为1，将窗体置于Z序的底部。如果参数hWnd标识了一个顶层窗体，则窗神丛肢体失去顶级位置，并且被置在其他窗体的底部。

      /// <para></para>HWND_NOTOPMOST：值为-2，将窗体置于所有非顶层窗体之上（即在所有顶层窗体之后）。如果窗体已经是非顶层窗体则该标志不起作用。

      /// <para></para>HWND_TOP：值为0，将窗体置于Z序的顶部。

      /// <para></para>HWND_TOPMOST：值为-1，将窗体置于所有非顶层窗体之上。即使窗体未被激活窗体也将保持顶级位置。</param>

      /// <param name="x">窗体新的x坐标。如hwnd是一个子窗体郑升，则x用父窗体的客户区坐标表示</param>

      /// <param name="y">窗体新的y坐标。如hwnd是一个子窗体，则y用父窗体的客户区坐标表示</param>

/// <param name="Width">指定新的窗体宽度</param>

/// <param name="Height">指定新的窗体高度</param>

      /// <param name="wFlags"></param>

      /// <returns></returns>

      [DllImport("user32.dll", CharSet = CharSet.Ansi, EntryPoint = "SetWindowPos")]

      public static extern int SetWindowPos(IntPtr hWnd, hWndInsertAfter hWndInsertAfter, int x, int y, int Width, int Height, wFlags wFlags)

      /// <summary>

      /// 调整指定 「 <see cref="IntPtr"/>句柄」 窗体的位置和尺寸。

      /// </summary>

      /// <param name="句柄">指定 「 <see cref="IntPtr"/>句柄」 窗体</param>

      /// <param name="x">横坐标</param>

      /// <param name="y">纵坐标</param>

      /// <param name="w">宽</param>

      /// <param name="h">高</param>

      public static int 调整窗体(IntPtr 句柄, int x, int y, int w, int h) {

          return API_窗口.SetWindowPos(句柄, 0, x, y, w, h, wFlags.SWP_NOZORDER)

      }

      /// <summary>

      /// 调整指定 「 <see cref="IntPtr"/>句柄」 窗体的位置。

      /// </summary>

      /// <param name="句柄">指定 「 <see cref="IntPtr"/>句柄」 窗体</param>

      /// <param name="x">横坐标</param>

      /// <param name="y">纵坐标</param>

      public static int 调整窗体位置(IntPtr 句柄, int x, int y) {

          return API_窗口.SetWindowPos(句柄, 0, x, y, 0, 0, wFlags.SWP_NOSIZE | wFlags.SWP_NOZORDER)

      }

---