【VB新手学堂】
thinkyue【鬼灵空间】
这个作者很懒,什么都没留下…
展开
-
获取系统任务栏高度
<br />这个代码返回系统任务栏高度,以缇(twips)做单位,使用了SystemParametersInfo API函数。<br />Option Explicit<br />Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuW原创 2010-10-18 15:50:00 · 1113 阅读 · 0 评论 -
让MSflexgrid支持鼠标滚轮事件
<br />以下程序放在一个公共模块中,<br />在窗体中的form_load事件中 写 HookWheel me.hwnd<br />在窗体中的form_unload事件中 写 UnHookWheel me.hwnd<br />在表格的GotFocus事件中 set CtlWheel=MSFlexGrid1 '( 表格名称,根据具体情况,修改这个名称)<br />在表格的LostFocus事件中 set CtlWheel=Nothing'( 表格名称,根据具体情况,修改这个名称)<br /><br /原创 2010-10-18 15:44:00 · 792 阅读 · 0 评论 -
vb中如何在任务管理器里面隐藏应用程序进程
<br />'该模块用于在任务管理器中隐藏进程<br />Private Const STATUS_INFO_LENGTH_MISMATCH = &HC0000004<br />Private Const STATUS_ACCESS_DENIED = &HC0000022<br />Private Const STATUS_INVALID_HANDLE = &HC0000008<br />Private Const ERROR_SUCCESS = 0&<br />Private Const SECTION_原创 2010-10-18 15:41:00 · 1347 阅读 · 0 评论 -
巧用SendMessage函数扩展Treeview功能
<br />Option Explicit<br />Private Type TPoint<br /> x As Long<br /> y As Long<br />End Type<br />Private Type TVHITTESTINFO<br /> pt As TPoint<br /> flags As Long<br /> hItem As Long<br />End Type<br />Private Type TVITEM<br /> mask As L原创 2010-10-18 15:44:00 · 1175 阅读 · 0 评论 -
怎样使DataGrid支持鼠标滚轮滚动记录
<br />在本站的VB源码《数据网格下拉列表框控件》中(链接地址:http://www.mndsoft.com/blog/article.asp?id=214)中,网友 taomaintao 提示支持滚轮鼠标,其实原本代码有已经有部分API代码意图支持鼠标滚轮,但可能作者后来没有加上。基于此,我找到一个解决办法(来自网络),taomaintao 网友可以按照下面自己进行修改吧。<br />首先在DataGrid 的 【拆分】 属性中的【选取框样式】设置为 3,即整行高亮选择,然后加入如下代码就支持了,只要原创 2010-10-18 15:46:00 · 1368 阅读 · 0 评论