[原创]C#启动VB进程外组件,规定其大小位置.并且给VB进程外组件的Text1.Text赋值

其实不算什么原创了,只是工作需要,最近对研究了几天,将成果发出来给大家一起学习!

首先,做一个VB的ActiveX程序.

类名:ClsTemp 有两个方法

'给窗体的Text1赋值
Public Sub SetText(ByVal Value As String)
FrmTemp.Text1.Text = Value
End Sub

'关闭程序
Public Sub ExitExe()
Unload FrmTemp
End Sub

模块:Module1 调用API函数(窗体总在最前), Sub Main方法

Public Declare Function SetWindowPos& Lib "USER32" (ByVal hWnd&, ByVal after&, ByVal x&, ByVal y&, ByVal w&, ByVal h&, ByVal wflg&)
Const HWND_TOPMOST = -1

'启动窗体
Sub Main()
FrmTemp.Show
End Sub

窗体:FrmTemp 有一个Text1控件

到这里,一个VB的进程外组件(ActiveX)就完成了,

下面是C#的调用程序

类名:ProcessDemo

调用程序的对象,以及几个API函数

        /// <summary>
        /// 改变启动程序的大小和位置
        /// </summary>
        /// <param name="hWnd">启动程序的句柄</param>
        /// <param name="hWndAfter"></param>
        /// <param name="X">启动程序的Left</param>
        /// <param name="Y">启动程序的Top</param>
        /// <param name="Width">启动程序的Width</param>
        /// <param name="Height">启动程序的Height</param>
        /// <param name="flags">启动程序的模式</param>
        /// <returns>int</returns>
        [DllImport("User32.dll", CharSet = CharSet.Auto)]
        public static extern int SetWindowPos(IntPtr hWnd, IntPtr hWndAfter, int X, int Y, int Width, int Height, uint flags);

        /// <summary>
        /// 搜索指定程序窗体的句柄
        /// </summary>
        /// <param name="lpClassName">指定程序窗体的类名</param>
        /// <param name="lpWindowName">指定程序窗体的名称</param>
        /// <returns>IntPtr</returns>
        [DllImport("user32.dll")]
        public static extern IntPtr FindWindow(string lpClassName, string lpWindowName);

        /// <summary>
        /// 搜索指定程序窗体的控件句柄
        /// </summary>
        /// <param name="hwndParent">窗体句柄</param>
        /// <param name="hwndChildAfter"></param>
        /// <param name="lpszClass">控件类名</param>
        /// <param name="lpszWindow">控件名</param>
        /// <returns>IntPtr</returns>
        [DllImport("user32.dll", EntryPoint = "FindWindowEx")]
        private static extern IntPtr FindWindowEx(IntPtr hwndParent, IntPtr hwndChildAfter, string lpszClass, string lpszWindow);

        /// <summary>
        /// 给另一应用程序传值
        /// </summary>
        /// <param name="hWnd">对象的句柄</param>
        /// <param name="Msg">被发送的消息</param>
        /// <param name="wParam">附加的消息信息</param>
        /// <param name="lParam">发送的信息</param>
        /// <returns></returns>
        [DllImport("User32.DLL", CharSet = CharSet.Auto, EntryPoint = "SendMessage")]
        private static extern int SendMessage(IntPtr hWnd, int Msg, IntPtr wParam, string lParam);

        /// <summary>
        /// 启动外部程序的对象
        /// </summary>
        Process p = new Process();

        /// <summary>
        /// Temp类ClsTemp对象
        /// </summary>
        Temp.ClsTemp ct;// = new Temp.ClsTemp();

        /// <summary>
        /// 搜索窗体的句柄变量
        /// </summary>
        IntPtr hwnd_win;

        /// <summary>
        /// 搜索窗体的Text控件句柄变量
        /// </summary>
        IntPtr hwnd_textbox;

        /// <summary>
        /// 取值
        /// </summary>
        const int WM_GETTEXT = 0x000D;
        /// <summary>
        /// 赋值
        /// </summary>
        const int WM_SETTEXT = 0x000C;
        /// <summary>
        /// 单击事件
        /// </summary>
        const int WM_CLICK = 0x00F5;

        /// <summary>
        /// 构造函数
        /// </summary>
        public ProcessDemo() { }

        /// <summary>
        /// 启动运用程序并设置其窗口位置及大小
        /// </summary>
        /// <param name="namePath">路径+文件</param>
        public void StartProcess(string namePath)
        {
            //p = new Process();
            p.StartInfo.FileName = namePath;
            p.Start();
            p.WaitForInputIdle();
        }

        /// <summary>
        /// 搜索外部程序窗体的句柄
        /// </summary>
        /// <param name="lpClassName">外部程序窗体的类</param>
        /// <param name="lpWindowName">程序窗体名称</param>
        public void GetHwnd(string lpClassName, string lpWindowName)
        {
            //"ThunderRT6FormDC", "VBphone"
            hwnd_win = FindWindow(lpClassName, lpWindowName);
        }

        /// <summary>
        /// 获得窗体中控件的句柄
        /// </summary>
        /// <param name="lpszClass">控件的类</param>
        /// <param name="lpszWindow">控件的名</param>
        public void GetHwndChild(string lpszClass, string lpszWindow)
        {//"ThunderRT6TextBox", "Text1"
            hwnd_textbox = FindWindowEx(hwnd_win, new IntPtr(0), lpszClass, lpszWindow);
        }

        /// <summary>
        /// 改变外部程序的位置和大小
        /// </summary>
        /// <param name="x">Left</param>
        /// <param name="y">Top</param>
        /// <param name="width">Width</param>
        /// <param name="height">Height</param>
        public void SetWinPos(int x, int y, int width, int height)
        {

            SetWindowPos(hwnd_win, IntPtr.Zero, x, y, width, height, (uint)(0x0020 | 0x0040));
        }

        /// <summary>
        /// 向外部程序传值
        /// </summary>
        /// <param name="Value">值</param>
        public void SetText(string Value)
        {
            if (ct == null)
                ct = new Temp.ClsTemp();
            ct.SetText(Value);

        }

        /// <summary>
        /// 调用API向外部程序传值
        /// </summary>
        /// <param name="Value">值</param>
        public void SetMessage(string Value)
        {
            SendMessage(hwnd_textbox, WM_SETTEXT, (IntPtr)0, Value);
        }

        /// <summary>
        /// 关闭启动程序
        /// </summary>
        public void Unload()
        {
            if (ct == null)
                ct = new Temp.ClsTemp();
            ct.ExitExe();
        }

        /// <summary>
        /// (停止外部程序)
        /// </summary>
        public void StopProcess()
        {
            //如果这个外部程序没有结束运行则对其强行终止
            try
            {
                if (p.HasExited == false)
                {
                    Console.WriteLine("由主程序强行终止外部程序的运行！");
                    Unload();
                    //p.Kill();
                }
                else
                {
                    Console.WriteLine("由外部程序正常退出！");
                }
            }
            catch (Exception e)
            {
                e.Message.ToString();
            }
        }
然后添加一个Winform窗体,实例对象,调用方法就实现效果了!