摘要: 当用户点击dropdown button时，toolbar会发送TBN_DROPDOWN这条通知消息，所以我们只要用代码模拟发送这条通知消息即可阅读全文

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

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

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

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

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

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

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

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

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

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

摘要: Option Explicit'需要引用 Microsoft CDO for Windows 2000 Library和 Microsoft ActiveX Data Objects 2.5 LibraryPrivate Sub Command1_Click()Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/config...阅读全文

摘要: 这个问题是CSDN网友MattHgh (黎明破晓前)提出来的，这个问题其实有很多种解决的办法，这里我用WH_SHELL钩子解决，WH_SHELL钩子可以获得很多信息，比如窗口创建、窗口销毁、窗口被激活、窗口的标题栏被重绘等等，但是这些信息都是基于窗口的，而MattHgh 希望同时获得相应的程序。那么怎么根据窗口的句柄的句柄获得对应的程序路径呢，这个当然可以通过枚举所有的进程获得，不过这样一来，速度...阅读全文

摘要: 这是个很有意思的问题，通常的思路是先保存数据、再动态添加数据，这里给出的是另外一种方法，即先将该列的列宽设为0，在想办法让用户无法改变该列的列宽，原理我不多说了，看看MSDN，那上面都有^_^。还是给出代码吧：一个模块，一个窗体：模块代码：Option ExplicitPublic Type POINTAPI X As Long Y As LongEnd TypePublic Const GWL_...阅读全文

摘要: 我们知道ClipCursor可以将指针限制到指定区域，那么如何反其道而为之，禁止鼠标进入某个区域呢，答案是用鼠标钩子，在WIN NT 4.0 SP3以上系统可以用WH_MOUSE_LL这个钩子实现，这个钩子的特殊之处是不需要用dll，另外，这个钩子用到了一个结构体，简单说明一下：typedef struct { POINTpt; DWORDmouseData; DWORDflags; DWORDt...阅读全文

摘要: Frame控件是vb中使用得比较频繁的控件之一,它在本质上是个button,因此可以用setwindowlong为其附加或者移除BS_LEFT、BS_RIGHT、BS_CENTER之类的风格，以改变其caption的对齐方式，程序如下：'窗体上有一个Frame控件Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" A...阅读全文

摘要: 只去掉图标是很困难的(用自绘标题栏可以解决),今天我们讨论的是一种变通的方法,即创建一个空图标代替现有的图标,程序如下:Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam ...阅读全文

摘要: '作为测试，添加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 ...阅读全文