随笔分类 -  VB文章

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

摘要：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... 阅读全文

摘要：一个远程调用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 ... 阅读全文

摘要：'作为测试，添加1个按钮，两个listboxPrivate Declare Sub CopyMemory Lib "kernel32" Alias _ "RtlMoveMemory" (dest As Any, source As Any, _ ByVal numBytes As Long)Sub InsertStringItem(strArr() As String, ByVal index A... 阅读全文

摘要：环境:XP sp2 ,vb6 (未打sp6补丁)测试:新建一个工程,在窗体上加一个ImageList控件(预先为控件加入几个图标),然后在窗体上加一个按钮,添加如下代码:Private Declare Function ImageList_GetImageCount Lib "comctl32" ( _ByVal himl As Long) As LongPrivate Sub Command1_... 阅读全文

摘要：Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, source As Any, ByVal numBytes As Long)Private Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemor... 阅读全文

摘要：首先设计好你的菜单然后在窗体上加入一个按钮代码如下:Option ExplicitPrivate Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As LongPrivate Const MIM_BACKGROUND As Long = &H2Private Const MIM_APPLYTOSUBM... 阅读全文

摘要：Option ExplicitPrivate Declare Sub ZeroMemory Lib "KERNEL32" Alias "RtlZeroMemory" (dest As Any, ByVal numBytes As Long)Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal ... 阅读全文