r在richtextbox中插入动画/控件


所属类别:.NET

文章作者:未知

特别推荐:免费发布信息 承包关键词~~抢爆了!HOT!


在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 olepublic 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.PublicSystem.Reflection.BindingFlags.InstanceSystem.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_EXCLUSIVESTGM.STGM_CREATESTGM.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_EXCLUSIVESTGM.STGM_CREATESTGM.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}}关闭本页

相关信息

· 错误处理

· Validator控件学习第一天

· U盘绕过登录密码进入Win XP系统

· 让映射网络驱动器进驻资源管理器








....

37639 20653