r在richtextbox中插入动画/控件

在richtextbox中插入图片得方法很多，不过一般不能动，要实现动画至少应该实现一个activex控件，不过.net对activex的支持很差，我试过用c#写了个activex，不过效果很差，根本久不能动。

（备注）这里的差不多是从别人的c++代码（蒋晟）和msdn中得来的（所以，我不是个高手）

这是我在gowk中的一部分代码（有删减）拿来共同学习

using System;
using System.Drawing;
using System.Windows.Forms;
using System.Runtime.InteropServices;

using gowk.common;

namespace gowk.controls
{
 public class GRichTextBox_ :RichTextBox
 {  
  public GRichTextBox_()
  {
  }
  #region insert ole
  public void Insersert(IOleObject oleObj)
  {
   RichEidtOle ole=new RichEidtOle(this);
   ole.InsertOle(oleObj);
  }
  public void Insersert(Control control)
  {
   RichEidtOle ole=new RichEidtOle(this);
   ole.InsertControl(control);
  }
  public void InsertImage(string imageFile)
  {
   Image img=Image.FromFile(imageFile);
   Type t=Type.GetTypeFromProgID("ImageOle.GifAnimator.1");
   object o=System.Activator.CreateInstance(t);
   bool b=o is IOleObject;
   if(!b)throw(new System.Exception("无法创建Ole对象"));
   t.InvokeMember("LoadFromFile",
    System.Reflection.BindingFlags.Public|System.Reflection.BindingFlags.Instance|System.Reflection.BindingFlags.InvokeMethod,
    null,
    o,
    new object[]{imageFile});
   if(b)
    this.Insersert((IOleObject)o);
  }
  class RichEidtOle
  {
   private RichTextBox _richEdit;
   private IRichEditOle _RichEditOle;
   public RichEidtOle(RichTextBox richEdit)
   {
    this._richEdit=richEdit;
   }
   private IRichEditOle IRichEditOle
   {
    get
    {
     if(this._RichEditOle==null)
     {
      this._RichEditOle=SendMessage(this._richEdit.Handle,API.EM_GETOLEINTERFACE,0);
     }
     return this._RichEditOle;
    }
   }
   public void InsertControl(Control control)
   {
    if(control==null)return;
    IntPtr pLockBytes=API.CreateILockBytesOnHGlobal(IntPtr.Zero,true);
    IntPtr pStorage=API.StgCreateDocfileOnILockBytes(pLockBytes,STGM.STGM_SHARE_EXCLUSIVE|STGM.STGM_CREATE|STGM.STGM_READWRITE,0);
    IntPtr pOleClientSite=this.IRichEditOle.GetClientSite();
    REOBJECT roeObject=new REOBJECT();
    roeObject.clsid=Marshal.GenerateGuidForType(control.GetType());
    roeObject.pstg=pStorage;
    roeObject.poleobj=Marshal.GetIUnknownForObject(control);
    roeObject.polesite=pOleClientSite;
    roeObject.dvaspect=DVASPECT.DVASPECT_CONTENT;
    roeObject.dwFlags=ReoObjectFlag.REO_BELOWBASELINE;
    this.IRichEditOle.InsertObject(roeObject);
    control.Select();
    control.Focus();
   }
   public void InsertOle(IOleObject oleObject)
   {
    if(oleObject==null)return;
    Guid guid=oleObject.GetUserClassID();
    IntPtr pLockBytes=API.CreateILockBytesOnHGlobal(IntPtr.Zero,true);
    IntPtr pStorage=API.StgCreateDocfileOnILockBytes(pLockBytes,STGM.STGM_SHARE_EXCLUSIVE|STGM.STGM_CREATE|STGM.STGM_READWRITE,0);
    IntPtr pOleClientSite=this.IRichEditOle.GetClientSite();
    REOBJECT roeObject=new REOBJECT();
    roeObject.clsid=guid;
    roeObject.pstg=pStorage;
    roeObject.poleobj=Marshal.GetIUnknownForObject(oleObject);
    roeObject.polesite=pOleClientSite;
    roeObject.dvaspect=DVASPECT.DVASPECT_CONTENT;
    roeObject.dwFlags=ReoObjectFlag.REO_BELOWBASELINE;
    this.IRichEditOle.InsertObject(roeObject);
   }   
   [DllImport("User32.dll", CharSet=CharSet.Auto,PreserveSig=false)]
   public static extern IRichEditOle SendMessage(IntPtr hWnd, int message, int wParam);
  }
  #endregion
 }
}

本文地址：http://com.8s8s.com/it/it41407.htm