rainstormmaster的bloghttp://feed.cnblogs.com/blog/u/15228/rss2006-03-24T06:33:45Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/feed.cnblogs.comhttp://www.cnblogs.com/rainstormmaster/archive/2006/03/24/357421.html

简单的说，有两个需要注意的地方，一是要用postmessage发送消息，二是这两个消息lparam参数比较复杂，发送消息的时候要构造好lparam参数

2006-03-24T02:19:00Z2006-03-24T02:19:00Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/简单的说，有两个需要注意的地方，一是要用postmessage发送消息，二是这两个消息lparam参数比较复杂，发送消息的时候要构造好lparam参数http://www.cnblogs.com/rainstormmaster/archive/2006/02/27/338380.html

大致就是实现IDocHostUIHandler接口，挂接IDocHostUIHandler接口可以利用ICustomDoc接口或IOleObject接口实现，这里演示了利用ICustomDoc接口进行挂接。由于只是想屏蔽webbroswer的弹出菜单，所以只在IDocHostUIHandler的ShowContextMenu方法上做点文章就够了，IDocHostUIHandler的其它的方法不必进行处理，但是你必须实现它们，哪怕你只写上一些注释

2006-02-26T17:51:00Z2006-02-26T17:51:00Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/大致就是实现IDocHostUIHandler接口，挂接IDocHostUIHandler接口可以利用ICustomDoc接口或IOleObject接口实现，这里演示了利用ICustomDoc接口进行挂接。由于只是想屏蔽webbroswer的弹出菜单，所以只在IDocHostUIHandler的ShowContextMenu方法上做点文章就够了，IDocHostUIHandler的其它的方法不必进行处理，但是你必须实现它们，哪怕你只写上一些注释http://www.cnblogs.com/rainstormmaster/archive/2006/02/20/333735.html

我们知道ComboCox的Height属性是只读的，那么怎么改变ComboBox控件自身的高度呢，答案很简单，就是发送CB_SETITEMHEIGHT消息

2006-02-19T21:26:00Z2006-02-19T21:26:00Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/我们知道ComboCox的Height属性是只读的，那么怎么改变ComboBox控件自身的高度呢，答案很简单，就是发送CB_SETITEMHEIGHT消息http://www.cnblogs.com/rainstormmaster/archive/2006/02/20/333731.html

随着vb6几个补丁的退出，事实上richtextbox正悄悄发生变化，它已经支持richedit2.0了，所以我们可以设置结构体PARAFORMAT2的dyLineSpacing成员，然后将PARAFORMAT2结构体作为lparam参数，对richtextbox发送EM_SETPARAFORMAT消息，即可实现我们的要求

2006-02-19T19:02:00Z2006-02-19T19:02:00Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/随着vb6几个补丁的退出，事实上richtextbox正悄悄发生变化，它已经支持richedit2.0了，所以我们可以设置结构体PARAFORMAT2的dyLineSpacing成员，然后将PARAFORMAT2结构体作为lparam参数，对richtextbox发送EM_SETPARAFORMAT消息，即可实现我们的要求http://www.cnblogs.com/rainstormmaster/archive/2006/02/19/333330.html

原理是先获得richtextbox的 IRichEditOle接口，由于IRichEditOle接口没有提供setobject方法，所以我们需要变通实现，大致步骤是：1.利用 IRichEditOle接口的getobject方法获得richtextbox指定的ole对象的信息，对象的信息包含在REOBJECT结构体中2.删除指定的ole对象3.修改结构体中的dwFlags成员(当然你也可以修改其它的成员)后，调用IRichEditOle接口的InsertObject方法重新插入对象

2006-02-18T17:36:00Z2006-02-18T17:36:00Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/原理是先获得richtextbox的 IRichEditOle接口，由于IRichEditOle接口没有提供setobject方法，所以我们需要变通实现，大致步骤是：1.利用 IRichEditOle接口的getobject方法获得richtextbox指定的ole对象的信息，对象的信息包含在REOBJECT结构体中2.删除指定的ole对象3.修改结构体中的dwFlags成员(当然你也可以修改其它的成员)后，调用IRichEditOle接口的InsertObject方法重新插入对象http://www.cnblogs.com/rainstormmaster/archive/2006/02/15/331341.html

Private Declare Function CallWindowProcA Lib "user32" ( _ ByVal addr As Long, _ ByVal p1 As Long, _ ByVal p2 As Long, _ ByVal p3 As Long, _ ByVal p4 As Long) As LongPrivate Declare Sub RtlMoveMemory L...

2006-02-15T12:01:00Z2006-02-15T12:01:00Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/Private Declare Function CallWindowProcA Lib "user32" ( _ ByVal addr As Long, _ ByVal p1 As Long, _ ByVal p2 As Long, _ ByVal p3 As Long, _ ByVal p4 As Long) As LongPrivate Declare Sub RtlMoveMemory L...http://www.cnblogs.com/rainstormmaster/archive/2006/02/11/329085.html

没什么需要特别说明说的，有疑问就看msdn吧，窗体上两个按钮，一个treeview：Option ExplicitPrivate Declare Function SetWindowLong Lib "user32" _Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _ByVal dwNewLong As Long...

2006-02-11T15:08:00Z2006-02-11T15:08:00Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/没什么需要特别说明说的，有疑问就看msdn吧，窗体上两个按钮，一个treeview：Option ExplicitPrivate Declare Function SetWindowLong Lib "user32" _Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _ByVal dwNewLong As Long...http://www.cnblogs.com/rainstormmaster/archive/2006/02/11/328943.html

其实没什么说的，无非就是先找到“网络连接”这个虚拟文件夹，然后找到要控制的本地连接对应的folderitem，然后枚举verb，找到需要的verb后，调用verb的DoIt方法

2006-02-11T09:38:00Z2006-02-11T09:38:00Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/其实没什么说的，无非就是先找到“网络连接”这个虚拟文件夹，然后找到要控制的本地连接对应的folderitem，然后枚举verb，找到需要的verb后，调用verb的DoIt方法http://www.cnblogs.com/rainstormmaster/archive/2006/01/26/323680.html

Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'测试Private Sub Command1_Click() selectitem "e:\mc\mmtest.jpg" Sleep 10000 selectitem "e:\mc"End SubPrivate Sub sel...

2006-01-26T13:39:00Z2006-01-26T13:39:00Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'测试Private Sub Command1_Click() selectitem "e:\mc\mmtest.jpg" Sleep 10000 selectitem "e:\mc"End SubPrivate Sub sel...http://www.cnblogs.com/rainstormmaster/archive/2006/01/26/323549.html

一个远程调用api函数的模块，今天整理资料时发现的，忘记从哪里找到的了，不过感觉它应该有用，就把它贴出来了Option ExplicitPublic Enum ARG_FLAG arg_Value arg_PointerEnd EnumPublic Type API_DATA lpData As Long 'Pointer to data or real data dwDataLength As ...

2006-01-26T06:28:00Z2006-01-26T06:28:00Z学剑学诗两不成http://www.cnblogs.com/rainstormmaster/一个远程调用api函数的模块，今天整理资料时发现的，忘记从哪里找到的了，不过感觉它应该有用，就把它贴出来了Option ExplicitPublic Enum ARG_FLAG arg_Value arg_PointerEnd EnumPublic Type API_DATA lpData As Long 'Pointer to data or real data dwDataLength As ...