袁永福--南京都昌信息科技有限公司創始人

[System.Runtime.InteropServices.ComVisible(true)]
[System.Runtime.InteropServices.Guid("60550064-C97F-4306-A8B2-6908F50780E3")]
[System.Runtime.InteropServices.ComSourceInterfaces(typeof(IComMyEvent))]
public partial class MyWinFormControl : UserControl
{
}

using System.Runtime.InteropServices;

[Guid("096EF9A6-24CB-4091-A18F-34DA38C9A6F1")]
[ComVisible( true )]
[InterfaceType( ComInterfaceType.InterfaceIsIDispatch )]
public interface IComMyEvent
{
    /// <summary>
    /// 按鈕按下事件
    /// </summary>
    [DispId(12340)]
    void ComButtonClick();
    /// <summary>
    /// 文本內容修改事件t
    /// </summary>
    [DispId(12350)]
    void ComTextChanged();
}


/// <summary>
/// 無參數無返回值委托類型
/// </summary>
public delegate void VoidEventHandler();

#region 實現 IComMyEvent 中的成員
/// <summary>
/// 按鈕按下事件
/// </summary>
public event VoidEventHandler ComButtonClick = null;
/// <summary>
/// 文本內容修改事件
/// </summary>
public event VoidEventHandler ComTextChanged = null;

#endregion

private void btnAction_Click(object sender, EventArgs e)
{
    if (ComButtonClick != null)
    {
        // 觸發ComButtonClick事件
        ComButtonClick();
    }
}

private void myTextBox_TextChanged(object sender, EventArgs e)
{
    if (ComTextChanged != null)
    {
        // 觸發ComTextChanged事件
        ComTextChanged();
    }
}

/// <summary>
/// 公開的屬性
/// </summary>
public string UserText
{
    get
    {
        return myTextBox.Text;
    }
    set
    {
        myTextBox.Text = value;
    }
}

/// <summary>
/// 公開的方法
/// </summary>
public double Calcute(double p)
{
    return Math.Sin(p);
}

/// <summary>
/// 將控件添加到指定句柄的窗體中
/// </summary>
/// <param name="containerHandle">指定的窗體句柄對象</param>
/// <returns>操作是否成功</returns>
public bool AppendToContainerControl(int containerHandle)
{
    CrossPlatformControlHostManager man = new CrossPlatformControlHostManager();
    man.ContainerHandle = new IntPtr(containerHandle);
    man.ControlHandle = this.Handle;
    man.Dock = this.Dock;
    return man.UpdateLayout();
}

private IntPtr _ControlHandle = IntPtr.Zero;
/// <summary>
/// 操作的控件句柄對象
/// </summary>
public IntPtr ControlHandle
{
    get{ return _ControlHandle; }
    set{ _ControlHandle = value; }
}

private IntPtr _ContainerHandle = IntPtr.Zero;
/// <summary>
/// 容器元素對象
/// </summary>
public IntPtr ContainerHandle
{
    get{ return _ContainerHandle; }
    set{ _ContainerHandle = value; }
}

private DockStyle _Dock = DockStyle.Fill;
/// <summary>
/// 停靠樣式
/// </summary>
public DockStyle Dock
{
    get{ return _Dock; }
    set{ _Dock = value; }
}

/// <summary>
/// 更新排版
/// </summary>
/// <returns>操作是否成功</returns>
public bool UpdateLayout()
{
    WindowInformation info = new WindowInformation(this.ControlHandle);
    WindowInformation container = new WindowInformation(this.ContainerHandle);
    if (info.CheckHandle() == false
        || container.CheckHandle() == false)
    {
        return false;
    }
    if (info.ParentHandle != container.Handle)
    {
        if (info.SetParent(container.Handle) == false)
        {
            return false;
        }
    }
    Rectangle clientRect = container.ClientBounds;
    Rectangle bounds = info.Bounds;
    Rectangle descBounds = bounds;
    switch (this.Dock)
    {
        case DockStyle.Fill:
            descBounds = clientRect;
            break;
        case DockStyle.Bottom:
            descBounds = new Rectangle(
                0,
                clientRect.Height - bounds.Height, 
                clientRect.Width,
                bounds.Height);
            break;
        case DockStyle.Left:
            descBounds = new Rectangle(
                0,
                0,
                bounds.Width, 
                clientRect.Height);
            break;
        case DockStyle.Right:
            descBounds = new Rectangle(
                clientRect.Width - bounds.Width,
                0,
                bounds.Width,
                clientRect.Height);
            break;
        case DockStyle.Top:
            descBounds = new Rectangle(
                0,
                0,
                clientRect.Width,
                bounds.Height);
            break;
    }
    if (descBounds != bounds)
    {
        info.Bounds = descBounds;
    }
    return true;
}

using System.Reflection;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;

// 有關程序集的常規信息通過以下
// 特性集控制。更改這些特性值可修改
// 與程序集關聯的信息。
[assembly: AssemblyTitle("袁永福的COM測試")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyConfiguration("")]
[assembly: AssemblyCompany("")]
[assembly: AssemblyProduct("DCWinFormControlLib")]
[assembly: AssemblyCopyright("Copyright ?  2012")]
[assembly: AssemblyTrademark("")]
[assembly: AssemblyCulture("")]

// 將 ComVisible 設置為 false 使此程序集中的類型
// 對 COM 組件不可見。如果需要從 COM 訪問此程序集中的類型，
// 則將該類型上的 ComVisible 特性設置為 true。
[assembly: ComVisible(true)]

// 如果此項目向 COM 公開，則下列 GUID 用于類型庫的 ID
[assembly: Guid("c241537f-dfe8-4502-b43a-967f9437ee7c")]
[assembly: AssemblyVersion("1.0.0.*")]

Option Explicit

' 定義控件變量
Private WithEvents myWinFormControl As DCWinFormControlLib.myWinFormControl

' VB按鈕點擊事件處理
Private Sub cmdSetText_Click()
    myWinFormControl.UserText = "袁永福到此一游"
End Sub

' 窗體加載事件
Private Sub Form_Load()
    Set myWinFormControl = New DCWinFormControlLib.myWinFormControl
    myWinFormControl.Dock = 4
    myWinFormControl.AppendToContainerControl Me.picContainer.hWnd
End Sub

' 窗體大小改變事件
Private Sub Form_Resize()
    If Me.ScaleWidth > 3000 And Me.ScaleHeight > 3000 Then
        Me.picContainer.Width = Me.ScaleWidth - Me.picContainer.Left - 50
        Me.picContainer.Height = Me.ScaleHeight - Me.picContainer.Top - 50
        If Not myWinFormControl Is Nothing Then
            myWinFormControl.AppendToContainerControl Me.picContainer.hWnd
        End If
    End If
End Sub

' 窗體卸載事件
Private Sub Form_Unload(Cancel As Integer)
    Set myWinFormControl = Nothing
End Sub

' 響應控件ComButtonClick事件
Private Sub myWinFormControl_ComButtonClick()
    MsgBox "用戶點擊了控件中的按鈕"
End Sub

' 響應控件ComTextChanged事件
Private Sub myWinFormControl_ComTextChanged()
    Me.Caption = "用戶修改了控件中的文字"
End Sub