使用自定义窗体时相对完美的窗体效果(VB6.0代码)
作者:admin 日期:2009-02-22
主要就是一种思路.
完美自定义窗体效果(可拖动大小,可最大化/还原)
发现很多人问这个,干脆就做一个完整的出来.
其实就是一个简单的子类化,只是这个代码里使用了老外那个子类化类,封装得相对方便了.
这样一来,代码也比较容易移植,工程结构不容易乱.
还是简单说明一下:
* 实现了最大化时跟踪任务高度(双击标题栏.我用的这个示例窗体控件没有最大化按钮)
* 实现了任务栏按钮的右键菜单
还有....忘了,自己看吧...反正与默认窗体很接近就是了...
BY 嗷嗷叫的老马
http://www.m5home.com/
2009-02-13
点击下载此文件
完美自定义窗体效果(可拖动大小,可最大化/还原)
发现很多人问这个,干脆就做一个完整的出来.
其实就是一个简单的子类化,只是这个代码里使用了老外那个子类化类,封装得相对方便了.
这样一来,代码也比较容易移植,工程结构不容易乱.
还是简单说明一下:
* 实现了最大化时跟踪任务高度(双击标题栏.我用的这个示例窗体控件没有最大化按钮)
* 实现了任务栏按钮的右键菜单
还有....忘了,自己看吧...反正与默认窗体很接近就是了...
BY 嗷嗷叫的老马
http://www.m5home.com/
2009-02-13
点击下载此文件如何在窗体的指定位置显示气泡提示(VB6代码)
作者:admin 日期:2009-01-21
如何在VB6.0里动态使用具有事件的对象(又来一篇)
作者:admin 日期:2008-12-17
上传一个子类化类模块,使用内嵌汇编技术实现了单类模块化(VB6.0)
作者:admin 日期:2008-11-26
记录一下:动态创建FLASH对象并播放FLASH动画(VB6.0)
作者:admin 日期:2008-11-23
上传一个PDF版的<<高级VB编程>>及随书源代码(Advanced Visual Basic)
作者:admin 日期:2008-11-18
全局热键类的多热键示例工程(VB6.0代码)
作者:admin 日期:2008-10-01
这个类很早就发布了,当时写了个很简单的单热键示例.
有朋友说最好弄个多热键的示例,于是就整了这个东东出来.
代码可能有些乱,我来说说基本的使用思路:
一,设置一个本进程句柄(frmHwnd属性)
二,增加热键(AddHotKey方法)
这个方法返回的是一个标志本组热键组合的索引,在热
键事件到来时可以简化判断.
三,启动捕捉热键循环(StartHotKeys方法)
没有使用子类化,所以用一个死循环来做一个消息泵,不
断地从消息队列里检查是否有热键消息到来.由于是死
循环,所以需要传入一个定时器用于立即返回此方法,使
调用流程能够继续下去.
四,删除热键(DelHotKey方法)
这个方法的作用是删除单个热键.相应的热键组合可以使
用GetHotKeySetting结合HotKeysCount属性来取得.
五,查询热键组合的数量(HotKeysCount属性)
定义了几组就是几,之前没有考虑到这个.
六,查询热键组合的值(GetHotKeySetting方法)
这个方法可以返回指定的组合内具体的各键状态.
七,热键按下后的事件(HotKeyPress事件)
当完成了第1,2,3步后,就可以开始捕捉热键了,这时只要
按下热键,将会触发HotKeyPress事件,事件的参数里既有
热键组合的索引,也有该组组合内各键具体的值,以方便
不同情况下的判断.
其实我觉得具体的键值好象是多余的......反正可以根
据GetHotKeySetting方法取得呀...大家自己取舍吧,反
正放它们在那里应该也不碍什么事,能省一步省一步吧-_-b
八,其它的就自己看吧.....其实这个东西又没多复杂....
原来的那个示例在这里:
../blog2/blogview.asp?logID=202&cateID=2
那里面的类有些错误,已经修正,现在的地址在这里:
点击下载此文件
希望我的这些模块能真的方便到大家.
有朋友说最好弄个多热键的示例,于是就整了这个东东出来.
代码可能有些乱,我来说说基本的使用思路:
一,设置一个本进程句柄(frmHwnd属性)
二,增加热键(AddHotKey方法)
这个方法返回的是一个标志本组热键组合的索引,在热
键事件到来时可以简化判断.
三,启动捕捉热键循环(StartHotKeys方法)
没有使用子类化,所以用一个死循环来做一个消息泵,不
断地从消息队列里检查是否有热键消息到来.由于是死
循环,所以需要传入一个定时器用于立即返回此方法,使
调用流程能够继续下去.
四,删除热键(DelHotKey方法)
这个方法的作用是删除单个热键.相应的热键组合可以使
用GetHotKeySetting结合HotKeysCount属性来取得.
五,查询热键组合的数量(HotKeysCount属性)
定义了几组就是几,之前没有考虑到这个.
六,查询热键组合的值(GetHotKeySetting方法)
这个方法可以返回指定的组合内具体的各键状态.
七,热键按下后的事件(HotKeyPress事件)
当完成了第1,2,3步后,就可以开始捕捉热键了,这时只要
按下热键,将会触发HotKeyPress事件,事件的参数里既有
热键组合的索引,也有该组组合内各键具体的值,以方便
不同情况下的判断.
其实我觉得具体的键值好象是多余的......反正可以根
据GetHotKeySetting方法取得呀...大家自己取舍吧,反
正放它们在那里应该也不碍什么事,能省一步省一步吧-_-b
八,其它的就自己看吧.....其实这个东西又没多复杂....
原来的那个示例在这里:
../blog2/blogview.asp?logID=202&cateID=2
那里面的类有些错误,已经修正,现在的地址在这里:
点击下载此文件希望我的这些模块能真的方便到大家.
使用RtlComputeCrc32取文件与字符串CRC32值(VB6代码)
作者:admin 日期:2008-09-29
系统有一个RtlComputeCrc32函数是专门用于取字符串CRC32值的,我将其与内存映射文件相关函数结合,做成了一个能取文件CRC32值的模块.
例子工程包含的两个功能模块,一个是取CRC32值的,另一个是内存映射文件相关操作的封装,前者如果需要计算文件的CRC32值,则需要与后者结合.
对于取文件映射指针的操作,我这里发现只要大于一定值(我这里最大的正常文件是420M的单文件),MapViewOfFile就会失败,报的原因是"存储空间不足,无法完成此操作",但是我内存是2G,虚拟内存也有3G,怎么会报这个错误呢?不解.并且前面的CreateFileMapping却从来没有出过错,真怪了.还请用过MapViewOfFile这个函数的朋友指点一下,完善此代码,在下感激不尽~~~
例子工程包含的两个功能模块,一个是取CRC32值的,另一个是内存映射文件相关操作的封装,前者如果需要计算文件的CRC32值,则需要与后者结合.
对于取文件映射指针的操作,我这里发现只要大于一定值(我这里最大的正常文件是420M的单文件),MapViewOfFile就会失败,报的原因是"存储空间不足,无法完成此操作",但是我内存是2G,虚拟内存也有3G,怎么会报这个错误呢?不解.并且前面的CreateFileMapping却从来没有出过错,真怪了.还请用过MapViewOfFile这个函数的朋友指点一下,完善此代码,在下感激不尽~~~
程序代码
