随笔档案「2006年1月」 - 学剑学诗两不成

VB:如何选定文件或文件夹

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

posted @ 2006-01-26 21:39 学剑学诗两不成阅读(1388) 评论(0) 推荐(0)

一个远程调用api函数的模块(转贴)

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

posted @ 2006-01-26 14:28 学剑学诗两不成阅读(1656) 评论(6) 推荐(0)

VB：如何用需要身份验证的SMTP邮件服务器发信

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

posted @ 2006-01-24 23:38 学剑学诗两不成阅读(1845) 评论(0) 推荐(0)

VB:如何监听打开的窗口和程序

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

posted @ 2006-01-24 17:28 学剑学诗两不成阅读(5142) 评论(2) 推荐(1)

VB:如何隐藏ListView的某一列

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

posted @ 2006-01-20 21:00 学剑学诗两不成阅读(5425) 评论(4) 推荐(0)

vb:如何禁止鼠标指针进入某个区域

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

posted @ 2006-01-18 22:54 学剑学诗两不成阅读(2996) 评论(0) 推荐(0)

如何使frame控件的caption居中显示

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

posted @ 2006-01-14 14:33 学剑学诗两不成阅读(1882) 评论(0) 推荐(0)

怎样去掉窗体上的图标

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

posted @ 2006-01-09 16:32 学剑学诗两不成阅读(1085) 评论(0) 推荐(0)

VB中对string array快速插入、删除某个元素的办法

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

posted @ 2006-01-09 14:48 学剑学诗两不成阅读(3118) 评论(1) 推荐(0)

bug:在windows xp下用ImageList_GetImageCount返回值不正确(VB)

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

posted @ 2006-01-03 17:24 学剑学诗两不成阅读(1122) 评论(2) 推荐(0)

VB中字符串数组快速复制的一种方法

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

posted @ 2006-01-02 17:38 学剑学诗两不成阅读(4471) 评论(1) 推荐(0)