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
}
}