r在richtextbox中插入动画/控件

类别:.NET开发 点击:0 评论:0 推荐:

在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