<![CDATA[丹心在线设计--软件开发 网页设计 界面开发 影视设计]]> http://hi.baidu.com http://hi.baidu.com http://img.baidu.com/img/logo-hi.gif http://hi.baidu.com/starwork zh-cn www.baidu.com 5 <![CDATA[丹心： VISTA皮肤界面组件]]>

支持DOTNET,VB6,DELPHI,VC++,C,POWERBASIC,,易,等语言,支持所有系统控件，支持VISTA玻璃特效，强大的自定义皮肤功能，支持从XP系统风格中直接生成皮肤，透明度可调，HSL调节！

需要测试请与我联系！

欢迎与我联系：

QQ:121877114

E-MAIL:CNSTARWORK@126.COM


类别：编程手记 查看评论]]> 2009年04月15日 星期三 00:37 http://hi.baidu.com/starwork/blog/item/8da53ff749c5f52a730eec43.html <![CDATA[程序界面好帮手: appface3.1.2.3换肤组件正式注册版本(丹心发布)]]> 程序界面好帮手: appface3.1.2.3换肤组件正式注册版本(网上唯一)


AUDK 全称是 AppFace   UI Development Kits 。它提供了一种将界面的美术设计和编程
完全分开的解决方案。AppFace 支持 VB/VC/Delphi/BCB/.Net 。它通过自动对进程内的每个
控件窗口以及边框窗口进行包装来实现重绘软件界面。整个工作是完全自动的，都由一个文件
appface.dll 来完成。使用时只需执行加载和卸载 AppFace 的代码 ，极为方便。

在现有的工程中添加 AUDK 非常简单，主要有三个步骤：

1.制作 URF 皮肤文件 。


您可以使用AUDK 中提供的所见即所得的皮肤工具 SkinTool 制作自己的 URF 档，也可以
使用现成的 URF 档 ，AUDK 的安装包里提供了 9 个 URF ，您还可以到它的网站上去免费
下载 http://www.appface.com 。AppFace 对界面的定制是通过处理URF中的设定值来完成的，
而不是开发者在工程中通过代码来完成。



2. 在您的工程中申明 appface.dll 的输出函数
appface.dll 是一个标准的Windows Dll 函数 ,在AUDK 中包含了 输出函数的 C 函数原型以及在各种语言下的申明
范例，您将它直接Copy到自己的工程里就可以了

3. 在程序的开始处执行 SkinStart("yoururf.urf",0,0,1,0,0)
在程序退出前执行 SkinRemove()

整个过程就是这样，描述起来麻烦，但实现起来实现花不了一分钟 !

使用AUDK 至少有以下好处
1. 只需要一个dll,节约了大量的去收集各种控件的时间，
2. 对现有的工程只需添加几行代码，对现有的软件流程没有任何影响
3. 可以利用 SkinTool 设计自己别出心裁的皮肤界面，极大的增强软件的美观性
4. appface.dll   只有 210 KB ,和传统方法而言，可以极大的减小软件体积.

AppFace UI Development Kits 的中文版安装包里包含有 VB,VC,Delphi,BCB,VB.Net,C#.Net 的使用示例，而且有
全中文的使用说明，使用极为方便。



最新版本下载： http://appface.com/download/appface.zip

          appface3.1.2.3正式版本.rar (293.36 KB)
AppFace UI .part1.rar (1 MB)

appface3.1.2.3我购买的原版,网上已没有

AppFace UI .part2.rar (1 MB)

AppFace UI .part3.rar (1 MB)

AppFace UI .part4.rar (1 MB)

AppFace UI .part5.rar (264.1 KB)

类别：默认分类 查看评论]]> 2009年03月30日 星期一 23:34 http://hi.baidu.com/starwork/blog/item/b4b85109b4073ac73bc763ad.html <![CDATA[提醒你：被广州电信和谐了，成功破解电信共享上网的限制]]>

.

.

最近很是郁闷，不能共享上网,电信和谐了我，找了N多资料，试了很多方法！

总结如下：（以我用的TP-LINE R402M路由为例，其它大同小异)

A:路由设置 --转发规则--虚拟服务器

虚拟服务器，简单地说，您可以做这么样的指定：对路由器任何一个或一段协议端口的访问（从WAN口进来的访问），都可以重定位到局域网内某一台指定的网络服务器。

B:安装共享神盾: 下载

C:设置为虚拟服务器中的某一端口，我的IP为 192.168.1.126 这里用了8002 , 必须和路由设定中的IP一致！

大功告成，注意每一台共享的机器都要弄一次哦，IP地址请指定。

祝你好运！！！

爽！

另外建议升级一下路由：

我的路由器本来是05年的路由软件,升级到了最新的080105

升级很简单：

关掉所有防火墙，点EXE，然后在路由器中点升级就行了！

R402M升级软件: 080105版本下载    081029版本下载

丹心 2009、3、27

以下为网上收集也有参考意义：

注意细节：先断开外网（或者关掉ADSL），然后配置，完成配置再连上。
一、先在地址栏中输入192.168.1.1回车,会弹出用户名和密码.进入路由器
二、点击 "LNA口配置"---DHCP 配置---禁用DHCP服务器：把方框内的对勾去掉.点保存
三、点击" IP配置"在IP配置把IP地址192.168.1.1改为172.16. 0.1（或者是10.10.10.1/50.50.50.1）目的是绕开对192.168.-.-的限制；各地可以自己试验新的有效地址。点保存。
四,此时、因电脑和路由器不在一个网段上；必须把本机网卡IP地址改为172.16.0 .2~254之间（局域网内每台电脑不重复）.（或者是10.10.10.2~254/50.50.50.2~254等其他新IP）
子网:255.255.255.0.
网关:172.16. 0.1.（或者是10.10.10.1/50.50.50.1等其他新地址）
五,在浏览器地址栏中重新输入172.16.0.1（或者是10.10.10.1/50.50.50.1）回车,会弹出用户名和密码输入admin. 进入路由器(如进不了路由可"断电/通电"路由器和重启电脑；然后重试)
点击"LNA口配置---DHCP 配置" 把"启用DHCP服务器："后面的对勾打上.点保存.
六、注意：在点连接前
1.最好在WAN配置----MAC地址控制内绑定本机的网卡MAC（参考说明书）。
2.如果连续掉线，
请检查ADSL与路由WAN口之间的网线、水晶头，更换质量好的。
检查电脑是否感染病毒。
最后；可以在WAN口配置----连接类型---网通分配的输入帐号、密码---点连接上网。
网通不是升级；是在服务器上设置过滤了；不让192.168.-.-的包过去。因为市场上的小路由一般都是 192.168.-.-的地址。所以你们必须改变LAN口IP.地址不一定按照我们的改可以是 125.125.125.1/126.126.126.1等等。


其它方法：
宽带进线->（WAN口）路由器A(LAN口)->（WAN口）路由器B（LAN口）->电脑
上面这种连接方式：路由器B的WAN口选择静态IP ，填入192.168.1.X(假设路由器A LAN口IP地址没有改动) , 路由器B的LAN口地址改为172.16.1.1 , 在进行路由器B LAN口地址更改的时候，改动LAN口IP地址并保存，提示重启，点击确定。紧接着将电脑的IP地址改为172.16.1.X ,保持和路由器新LAN口 IP地址同一网段才可以进入路由器B的管理界面；
2，宽带进线->（WAN口）路由器A(LAN口)->（LAN口）路由器B（LAN口）->电脑
上面这种连接方式：路由器B的WAN口是不使用的，路由器B的LAN口IP地址也可以不更改，但注意关闭路由器B的DHCP服务器功能，这种连接方式路由器B只是当作一个交换机使用而已，路由器B下面带的电脑的IP地址保持和路由器A同一网段，默认192.168.1.X这个网段；
其中1的第一个路由可以是前两年电信送的CT500的透明猫，这个猫好呀！甚至可以进去直接很直观地关掉SNMP端口！
这是我在网上找到的一款软件：共享神盾，下载地址http://www.sd002.com
具体如下：
名字叫共享神盾(shareshield)，它的功能很专一，就是为了破解电信和网通等运营商对用户的宽带共享的限制。
如果对宽带共享比较关注一点的兄弟应该听说过，有很多运营商都上了一套叫"网络尖兵"的设备，这种设备很神奇，通过它运营商就可以知道一条宽带下面带了多少台机器，如果机器数比较多，运营商就会找上门了。
对于运营商的这种限制，大家都表示很气愤，但是又拿不出一个解决问题的技术手段来，所以说，这个软件是生逢其时阿。
软件的帮助很简单，里面提到每台共享上网的机器都需要安装这个软件（这个是自然啦），然后如果是代理服务器的话，那么代理服务器上不需要安装，如果是宽带路由器，那就更不用做特殊处理了。
被运营商限制的兄弟们，赶紧来体验一下，看看效果如何吧！

步骤1:关闭路由器或者代理服务器snmp服务。
--如果你是使用宽带路由器上网，那么在宽带路由器中要关闭snmp协议，具体请参考路由器使用手册。
--如果你是使用代理服务器上网，那么在代理主机中要关闭snmp协议，可以
通过卸载snmp服务也可以通过防火墙来禁用161端口来实现。

步骤2：在每台使用共享宽带上网的主机上安装"共享神盾"。
--共享神盾完全免费。
--共享神盾专门针对"网络尖兵"设备开发，可以对用户的数据进行隐藏和整流，从而使得"网络尖兵"无法探测到共享主机数量。
三：使用TP-Link的路由器，该公司已经对大部分路由器进行了软件更新，只要和公司联系，就能得到最新的针对网络尖兵的刷新软件，并且告诉破解方法，服务很好，本人用的就是TP的402M路由器，已经得到刷新软件并刷新，单路由就可以上！


最后，告诉大家，把多种方法共用，被网络尖兵扫描到的机会更小：
1、克隆所有电脑的MAC地址，全部搞成一样的，包括你的路由器的！

     MAC修改软件下载，：）

2、串联路由，

3、关闭SNMP，

4、这是我自己摸索出来的一步，在路由器里面把161端口映射到某台电脑上，并且用这台电脑的161端口建个网站，让它去扫吧！哈哈，

5、别用IE及IE的变种浏览器，用OPERA浏览器，各大下载网站都有下的。
这5步全部用上，就放心到家里去共享吧！


类别：默认分类 查看评论]]> 2009年03月27日 星期五 22:25 http://hi.baidu.com/starwork/blog/item/5e4ce7c8260a8b1f7e3e6f7f.html <![CDATA[VB6及广大BASIC粉丝的福音: PowerBasic V9.01丹心汉化版]]>

We're very pleased to announce PowerBASIC Console Compiler 5.01,
and PowerBASIC 9.01 For Windows! These are two important service
updates to our flagship products for the Win32 and Win64 platform.
They offer new features, as well as important enhancements to
performance and reliability issues for PB/CC 5.0 and PB/WIN 9.0.
Effective at once, these versions will be supplied for new purchases
of these products. We recommend that registered owners of the base
versions install this free PowerPack as soon as possible.

We've expanded the new CLIPBOARD functionality for additional, easy
to use data formats. Almost 200 new built-in equates put it all
at your fingertips. Tons of attractive new colors are pre-defined,
like %rgb_crimson, %rgb_firebrick, %rgb_seagreen, and %rgb_firebrick.
There's added functionality in the COMMON DIALOGS, and better COM
compatibility with other compilers. You can even include descriptive
equates in your COM Type Library:   %MyEquate = &H1234 AS COM

There's more. Lots, lots more. And it's absolutely free to all
registered owners of PB/CC 5 and PB/WIN 9.

已经汉化完毕，请大家下载更新！

解压密码: 121877114

QQ:121877114 E-MAIL: CNSTARWORK@126.COM

完全版本(v9.0),请加入PowerBASIC群一起讨论

PowerBASIC中文QQ群:5286951

下载：

http://files.cnblogs.com/starwork/PBEDIT9.01中文版.rar

丹心版权所有 2009


类别：编程手记 查看评论]]> 2009年03月07日 星期六 14:44 http://hi.baidu.com/starwork/blog/item/0313e7434e49c31b73f05df5.html <![CDATA[赤壁 (下) 决战天下 [主演：梁朝伟、林志玲][迅雷高速下载]]]>

·片名：赤壁（Red Cliff） 等待DVD中……
·导演：吴宇森
·主演：梁朝伟 饰 周瑜
　　　　金城武 饰 诸葛亮
　　　　张丰毅 饰 曹操
　　　　张震 饰 孙权
　　　　胡军 饰 赵子龙
　　　　林志玲 饰 小乔
　　　　赵薇 饰 孙尚香
　　　　佟大为 饰 孙叔材
　　　　小宋佳 饰 骊姬
·上部片长：145分钟
·上部公映日期：2008.7.10
·下部公映日期：2009.1.7
　　骁勇善战的孙尚香装女扮男装，渡江混入曹营打探底细，并结识了一位名叫孙叔财的曹军将领。后来，二人产生感情。孙叔财还将孙尚香招入了他的“蹴鞠队”。

　　曹操的水军对南方的水土和气候不服，纷纷染病，致使瘟疫蔓延开来。曹操不为所动，甚至将自己病亡士兵的尸体扔进联军的阵营。诸葛亮虽然迅速应对，但瘟疫还是扩散，众多士兵病倒，联军的士气遭到重创。而刘备和关羽、张飞和赵云等众将也四散逃命。

　　大战在即，此时联军兵力不占优，同时亟需箭枝。诸葛亮便设下圈套，趁机削弱曹军的实力。他派二十只草船首尾相连，趁着浓雾连夜佯攻曹操的水军。曹操不知是计，传令不可妄动，只叫水陆两军的弓箭手向江上射箭。结果，二十只草船满载十万余支箭胜利返航。次日清晨，曹操怀疑军中藏有奸细，并且发现了他的两位水军头领写给周瑜的书信（实为周瑜假造），信中声言送十万支箭作为投靠的礼物。曹操大怒，命将二人处斩。众水兵恐受连累，四散逃命，结果皆被俘获，并以叛降之罪处死。尽管如此，曹操仍然执意在数日后攻打联军。他慷慨陈词，终于扭转了军中的士气。

　　在赤壁营地，联军预谋用火攻之计对付曹操的水军，因其战船都是连在一起的。但当下北风甚盛，稍有不慎便可能反烧到联军自己的战船。此时孙尚香携一张曹营的地形图返回南岸。联军据此部署战术。

　　小乔不顾周瑜的反对，只身前往曹营，试图说服曹操撤兵，至少可以拖延一些时间。曹操其实一直就很喜爱小乔，此时更是被她的美貌吸引住了。更有传言，曹操起兵的目的就是为了博得小乔的芳心。

　　此时，诸葛亮禀明周瑜，次日便是冬至，根据天象，风向将变，可按原计划行事。周瑜指挥东吴的军队不动声色地准备着，一边在陆地上从三面包围曹营，一边部署水军的战船在江边一字排开，等待东风。小乔则与曹操周旋，分散他的注意力。

　　最后，风向果然大变。东吴几只燃烧的战船冲入了曹操的水军营地。风借火势，曹营立刻变成了一片火海，几千艘战船被付之一炬。吴军从陆地上也开始发动攻击。

　　曹操被打了一个措手不及。但他迅速指挥精锐的骑兵进行反扑，把东吴军赶到了江边。就在这时，刘备率兵赶到，将曹操击退，并趁势向他的要塞发起进攻。在赵云和孙权的掩护下，周瑜冲进曹营，救出了小乔。曹操差点丧命，只得落荒而逃。八十三万大军被杀得只剩下几百人。此一役孙刘联军大获全胜。

　　看到曹军溃败，诸葛亮下令收兵，给曹操留一条生路，让他灰溜溜地去向汉献帝复命。之后，诸葛亮与周瑜和小乔依依惜别。

迅雷下载地址(枪版)：

ftp://3g16:3g16@xl.3g16.com:2008/电影/赤壁下/【www.3g16.com】赤壁下cd1.rmvb

ftp://3g16:3g16@xl.3g16.com:2008/电影/赤壁下/【www.3g16.com】赤壁下cd2.rmvb

DVD种子下载：

http://bbs.jokcn.com/attachments/month_0901/20090111_0e74fb4b61302a4615a5MOrpxg1GAv1a.torrent


类别：默认分类 查看评论]]> 2009年01月15日 星期四 22:49 http://hi.baidu.com/starwork/blog/item/a0e5c024c7f4a9348644f947.html <![CDATA[利用PREMIERE编辑下载的RM/RMVB电影,附AVS文件生成器]]>

如何利用Premiere编辑下载RM/RMVB电影,再制成VCD/DVD保存收藏。这可以减少电影占硬盘空间，同时又可以供家人，朋友欣赏可算是个美事。


(一)问题关注
Premiere导入RM/RMVB文件可利用Avisynth 的 Frameserving 是功能及其对Premiere的插件，即可实现导入RM/RMVB。 AviSynth是AVI SYNTHesizer的缩写，意思就是AVI和成器，是一个Frameserver。（Frameserver就是一个把影像文件从一个程序转换到另外一个程序的过程, 其间没有临时文件或中介文件产生）


AviSynth的基本工作原理是这样的：
首先建立一个包含特定命令的文本，称之为“脚本”(后缀为avs)，这些命令指定要运行处理的影像文件和滤镜；
然后运行影像应用程序，比如VD或ND，打开脚本。此时AviSynth就开始工作了，打开脚本中指定的影像文件，运行特定的滤镜，并把输出结果提供给影像应用程序。但影像应用程序并不了解AviSynth在后台所做的处理，而认为是直接打开了一个“被处理过”的影像文件。


(二)软件安装
1.下载 Real Alternative 1.43 并安装。用 Real Alternative 可在标准的Windows Media Player 中播放RM/RMVB视频。
下载地址：http://nj.onlinedown.net/soft/15943.htm
注：安装 Real Alternative 时会自动卸载原有的RealOne（被取代）。


2.下载并安装 AviSynth 2.5.5 RC3，Avisynt是一个功能强大的影视处理Utility（实用程序），在Premiere中导入RM/RMVB主要是利用它的Frameserving的功能。
下载地址：http://nj.onlinedown.net/soft/34381.htm


3.下载并安装Premiere avisynth import filter 1.1b这是Premiere的插件，从而使Premiere能识别 .avs 文件（Avisynth 文件）
下载地址：http://files.cnblogs.com/starwork/im-avisynth-installer.rar
解压密码请PM我!


4.基础软件就绪，如在Premiere中导入 .avs 文件出错，提示没有找到编码器...，即缺少相应RM/RMVB影像编码，如XviD DVD影像编码.下载并安装Koepis XviD Codec 1.1.0 Beta 2
下载地址：http://nj.onlinedown.net/soft/12080.htm


(三)生成AVS,在PREMIERE中导入电影

AVS生成器下载

下载地址:   http://files.cnblogs.com/starwork/AVS文件生成器.rar
解压密码请PM我!

这样的.avs ，还可以用在其它软件中，以解决识别RMVB时带来的问题，如对任何版本的TMPGEnc。

如果大家还有什么不明白,请PM我或者加我QQ一块聊聊

Copyright 2008-2010 DESIGN BY LOYALTY(丹心)


类别：工作日记 查看评论]]> 2008年10月18日 星期六 13:46 http://hi.baidu.com/starwork/blog/item/5c5b9744222fbe84b2b7dccd.html <![CDATA[FireFly Visual Designer V2.91 破解下载(支持PB 9.0)]]> Why FireFly?



Full PowerBASIC 9 (PB Objects) support.


No runtime DLLs (Dynamic Link Libraries) of any kind. Every FireFly created application is totally self-contained and does not require any supporting DLLs to be distributed. Please note: If your application requires any 3rd party custom controls then you will have to distribute those DLL's with the FireFly generated EXE. However, FireFly does not use any runtime libraries like Visual Basic or other visual designers.

OCX and ActiveX support. Easily integrate visual COM/ActiveX programming into FireFly programs.

Built-in support for Microsoft's ADO and ADOX (Active Data Objects) database support.

Choose from almost 200 internal functions that make combining your code with TreeViews, ListViews, Labels, Command Buttons, TabControls, ProgressBars, etc... extremely easy. You can code entire applications without any Win32 API knowledge.

Modular Code. FireFly allows the programmer to "attach" code to individual window's messages that are destined for the controls that you create. Separating the code for each control allows for highly maintainable code and discourages the use of bug causing global variables. The code editor is "built in" - no need to shell back and forth between a designer and a code editor.

WYSIWYG Designer. In the tradition of many of today's powerful visual designers, FireFly presents a "what you see is what you get" design experience. Easily create controls, re-size and move them, and apply different visual characteristics to them. FireFly handles all of the tedious code creation. Easily create and modify forms and controls with ease. Position controls with precision. Create menus, toolbars and statusbars effortlessly.

Easily create form templates that can be re-used in new projects. You can even create templates for menus, toolbars and statusbars.

Design MDI (Multiple Document Interface) applications in seconds.

3rd Party Custom Controls can integrate directly into FireFly. This allows you to use 3rd party controls as if they were standard, native Windows controls. Simply select the tool from the FireFly Toolbox. You can even assign property values at design time as well as respond to custom messages at run-time.

Harness the power of the Windows API and never feel constrained by pre-determined programming methods. With the Windows API you have the ultimate degree of coding power in your possession. Windows API coding is not difficult and the benefits are truly amazing! You picked PowerBASIC as your compiler... now pick the Windows API to ensure that you retain that level of ultra-small, ultra-fast executables.


官方介绍: http://planetsquires.com/firefly.htm

原版下载: http://planetsquires.com/files/firefly_291.zip


破解使用方法:
把附件中的文件直接覆盖到FireFly安装目录下.

http://files.cnblogs.com/starwork/FireFly_v2.91.rar

解压密码: loyalty


类别：编程手记 查看评论]]> 2008年10月16日 星期四 22:08 http://hi.baidu.com/starwork/blog/item/bb490dc778fd1bdad000602a.html <![CDATA[丹心软件:中秋节礼物,PowerBasic 9.0中文汉化版]]> 收到PB9.0后,就想做个中文版,刚好放假几天,就赶快做了出来,就当是中秋节丹心给大家的一份礼

物!请笑纳!

完全版本(v9.0),请加入PowerBASIC或FreeBASIC群一起讨论

PowerBASIC中文QQ群:12214794
FreeBASIC中文QQ群:63660132
软件界面皮肤QQ群(skinclass):5286951

程序下载:

解压密码： CNSATRWORK@126.COM

QQ:121877114

E-MAIL: CNSTARWORK@126.COM

http://files.cnblogs.com/starwork/Pbedit中文版.rar


类别：编程手记 查看评论]]> 2008年09月15日 星期一 00:18 http://hi.baidu.com/starwork/blog/item/c751a72342573e42ac34de7c.html <![CDATA[FreeBASIC简介及fbedit 1.0.6.2 (简体中文翻译文档下载)]]>         FreeBASIC是微软QuickBASIC语言的真正继承者，不仅兼容传统，也增加了许多新特性。


·易学。完全兼容QuickBasic语法。QB源程序经少量或不修改即可运行

·免费。发行许可为通用公共许可证GPL，即自由传播、免费使用

·跨平台。同时支持Windows、GNU/Linux、DOS，并计划中支持更多平台。

·编译代码。提供编译器，可以将源代码在多平台上编译成高效的机器码

·新C语言特性。提供了指针、预处理等C语言属性，计划中增加对象编程支持。

·全功能。与C的结合导致扩展库丰富，3D方面支持SDL、openGL、D3D等，声音方面支持OpenAL、
                FMOD等，数据库支持Mysql、SQLite等，图形窗口界面支持GTK、Wx-C、
                 WinAPI，网络方面支持Socket等等，扩展库也在增加中。

·开发方便。提供一个以上的良好的集成开发环境。

总评：简单的语法，自由使用，多功能，编译的高效，是开发小型应用程序的首选，也是不懂编程的朋友用来学习的最佳途径。也可以让电脑技术员、网络管理员用于应急编程使用。编译的高效方面，也可以胜任大型程序的开发的。

语言文件:

1.图像:FbEditCHN.bmp

2.新建TEXT文档:FbEditCHN.lng,把以下内容自制

;--------------------------------------------------------------------------
;for fbedit 1.0.6.2 丹心(loyalty) QQ:121877114
;--------------------------------------------------------------------------
[Lang]
Lang=简体中文, By 丹心(loyalty)
;--------------------------------------------------------------------------
[1100]
1100=转到行
1002=行：
1=确定
2=取消
;--------------------------------------------------------------------------
[1200]
1200=语言
1004=现有语言:
1=确定
2=取消
1002=语言更改将会在FBEDIT重启后生效.
;--------------------------------------------------------------------------
[1300]
;--------------------------------------------------------------------------
[2000]
2000=选项
1=确定
2=取消
;--------------------------------------------------------------------------
[2100]
2115=名称导出格式
2101=Assembly equ's
2102=C 定义
2103=hla
2104=PureBasic
2116=名称导出输出
2110=文件
2111=剪贴板
2112=输出
2117=默认导出文件名：
2114=保存时自动导出
;--------------------------------------------------------------------------
[2200]
2204=添加
2205=删除
2206=更改将会在FBEDIT重启后生效.
;--------------------------------------------------------------------------
[2300]
4020=网格 X-大小
4021=网格 Y-大小
4022=网格颜色
4003=显示网格
4002=对齐网格
4001=显示大小 / 位置
4009=网格线
4010=样式为十六进制
4011=字体大小对话框
4012=简单属性
4013=Define IDC_STATIC
;--------------------------------------------------------------------------
[2500]
2500=查找...
2216=内容：
2009=替换：
2003=完全匹配
2007=匹配关键词
2012=所有工程文件
2013=跳过注释行
2014=日志操作
2217=方向
2004=所有
2006=向上
2005=向下
1=查找
2010=替换
2015=查找所有
2008=替换所有
2=取消
;--------------------------------------------------------------------------
[3000]
3000=FreeBASIC 中文版编辑器1.0.6.2
1=确定
1001=FreeBASIC editor (C) KetilO 2007\r\n\r\nradasmide@hotmail.com
1002=http://www.radasm.com/fbedit/
1003=http://www.assembler.ca/radasm/fbedit/
1004=http://fbedit.freebasic.net/
;--------------------------------------------------------------------------
[3200]
1=确定
2=取消
3209=导入
3205=插入
3206=删除
3211=菜单项：
3210=命令：
;--------------------------------------------------------------------------
[4000]
4000=代码编辑器选项
4050=颜色主题
4016=新风格
4051=颜色
4052=颜色：
4038=粗体
4037=倾斜
4053=语法
4054=组：
4055=活动：
4009=>
4008=<
4056=在不放上：
4011=添加
4010=删除
4004=粗体
4003=倾斜
4005=RC 文件
4057=代码文件(.bas.bi):
4058=杂项
4059=选项卡大小
4060=备份
4006=行号
4019=展开选项卡
4031=单个实例
4035=完整的块
4034=生成EXE时保存
4044=自动加载工程
4020=自动缩进
4036=智能缩进
4033=自动大括号
4032=大括号匹配
4021=突出显示活动的行
4026=突出显示批注
4047=关闭 on 锁
4061=字体
4024=代码
4022=AaBbCc
4025=行号
4023=12345
4062=代码完成
4039=活动
4046=包括(Include)/引用(Inclib)
4045=自动大小
4063=大小写转换
4040=无
4041=混合大小写
4042=小写
4043=大写
4002=应用
1=确定
2=取消
;--------------------------------------------------------------------------
[4100]
4100=外部文件选项
4107=文件类型：
1=确定
2=取消
4102=添加
4103=删除
4108=命令：
;--------------------------------------------------------------------------
[5000]
5000=保存文件
2=取消
1=确定
1003=删除所有
1002=全选
;--------------------------------------------------------------------------
[5100]
5100=调试选项
2=取消
1=确定
1002=...
;--------------------------------------------------------------------------
[5200]
5200=块插入
1=确定
2=取消
5202=要插入在选定的块中的每个行中输入文本。
;--------------------------------------------------------------------------
[5300]
5300=新建工程
1015=工程名称：
1016=工程描述：
1017=工程路径：
1018=文件夹创建
1014=子文件夹
1012=Bak
1010=mod
1011=res
1013=Inc
1=确定
2=取消
;--------------------------------------------------------------------------
[5360]
1010=工程类型：
1009=文本文件 (.txt)
1008=资源文件 (.rc)
1007=Include 文件 (.bi)
1006=代码文件 (.bas)
1011=文件创建
1012=设置对此选项卡被重写如果选中了一个模板。
;--------------------------------------------------------------------------
[5380]
;--------------------------------------------------------------------------
[5400]
5400=编辑器目录选项
1009=默认工程目录：
1010=编译器目录：
5403=帮助目录:
1=确定
2=取消
;--------------------------------------------------------------------------
[5500]
5500=工程选项
5511=工程描述：
5512=工程类型：
5513=生成命令：
5510=添加主文件生成命令
5514=Api 文件：
5515=模块处理
5516=模块生成命令：
5504=手动生成
5505=重新编译
5506=命令行
5517=输出文件名：
5518=运行命令行参数：
5519=资源名称导出文件：
5520=工程文件组
5501=无
5502=按文件夹
5503=按类型
1=确定
2=取消
;--------------------------------------------------------------------------
[5600]
5600=输出扩展属性
1=确定
2=取消
1001=函数
1002=常量
1003=变量
1004=UDT's
1005=Enums/枚举
1006=Namespaces
1007=Macros/宏
1008=Constructors
1009=Destructors
1010=Properties/属性
1011=Operators/运算符
5601=Messages
;--------------------------------------------------------------------------
[6000]
6000=创建模板
1006=说明：
1007=附加文件：
1002=添加
1003=删除
1008=模板文件名：
2=取消
1=确定
;--------------------------------------------------------------------------
[6100]
6100=插件管理器
1=确定
2=取消
1002=帮助
1003=改变在FbEdit重新启动后生效。
;--------------------------------------------------------------------------
[6200]
6200=工程API文件
2=取消
1=确定
;--------------------------------------------------------------------------
[6300]
6300=查找 ...
1001=内容:
1003=替换:
1005=类型
1006=Hex
1007=Ascii
1008=方向
1009=下
1010=上
1=查找
1011=替换
1012=替换所有
2=取消
;--------------------------------------------------------------------------
[10000]
10001=文件(&F)
10002=新工程\tShift+Ctrl+N
10003=打开工程\tShift+Ctrl+O
10004=关闭工程\tShift+Ctrl+F4
10005=新代码文件(&N)\tCtrl+N
10006=新资源文件(&R)\tCtrl+Alt+N
10007=打开(&O)\tCtrl+O (& S)
10060=以二进制打开(&H)
10008=最近文件
10009=保存(&S)\tCtrl+S
10010=保存所有\tShift+Ctrl+S
10011=另存为\tCtrl+Alt+S
10012=关闭(&C)\tF4
10013=关闭所有\tCtrl+F4
10015=页面设置
10016=打印(&P)
10014=退出(&E)\talt+F4
10021=编辑(&E)
10022=撤消(&U)\tCtrl+Z
10023=重做(&R)\tCtrl+Y
10024=剪切(&U)\tCtrl+X
10025=复制(&C)\tCtrl+C
10026=粘贴(&P)\tCtrl+V
10027=删除(&D)\tDel
10028=选择所有(&A)\tCtrl+A
10029=转到行(&G)\tCtrl+G
10030=查找(&F)\tCtrl+F
10031=查找下一个(&F)\tF3
10032=查找向前\tCtrl+F3
10033=替换(&R)\tCtrl+R
10034=查找声明\tf2
10035=返回\tCtrl+F2
10036=展开/折叠\tCtrl+E
10037=阻塞
10038=缩进\tTab
10039=取消缩进\tShift+tTab
10040=注释\tF9
10041=取消注释\tCtrl+F9
10042=清除尾随空格
10043=转换
10044=缩进空格
10045=缩进到标签
10046=大写\tCtrl+U
10047=小写\tCtrl+L
10048=块模式\tCtrl+B
10049=块插入\tShift+Ctrl+B
10050=书签
10051=切换\tShift+F8
10052=下一个\tF8
10053=前一个\tCtrl+F8
10054=删除所有\tShift+Ctrl+F8
10055=错误
10056=下一个错误(&N)\tf7
10057=清除错误(&C)\tShift+Ctrl+F7
10061=格式(&A)
10062=锁定控件(&L)
10063=发送到上一步(&S)
10064=&Bring to Front
10065=显示网格(&G)
10066=与网格对齐(&S)
10067=对齐控制
10068=左面(&L)
10069=中心(&C)
10070=右面(&R)
10071=顶部(&T)
10072=居中(&M)
10073=底部(&B)
10074=大小相同
10075=宽度(&W)
10076=高度(&H)
10077=加粗(&B)
10078=在对话框中对齐
10079=水平(&H)
10080=垂直(&V)
10081=设置tab顺序
10082=自动重新编号
10083=案例转换(&C)\tCtrl+F12
10084=缩进(&I)\tshift+Ctrl+F12
10091=查看(&V)
10092=输出(&O)\tF6
10093=工程(&P)
10094=属性页
10020=工具栏
10058=选择栏
10059=状态栏
10095=预览对话(&D)
10096=拆分屏幕
10097=全屏\tCtrl+W
10098=双窗格\tCtrl+D
10101=工程(&P)
10102=添加新的(&N)
10103=文件(&F)
10104=模块(&M)
10105=添加已存在的(&E)
10106=文件(&F)
10107=模块(&M)
10018=设置选择作为主文件(&M)
10108=删除所选(&R)
10109=选择重命名
10019=选择作为模块切换 / 文件
10110=工程选项(&O)
10111=创建模板(&T)
10121=资源(&R)
10122=添加对话框(&D)
10123=添加菜单(&M)
10124=添加 Acceleratortable
10125=添加 stringtable
10126=添加程序版权声明
10127=添加XP风格
10128=添加 RCData
10129=语言
10130=包含文件
10131=资源
10132=名称
10133=导出名称
10134=删除
10135=撤消删除
10141=生成(&M)
10142=生成EXE(&C)\tf5
10143=运行(&R)\tshift+F5
10144=去(&G)\tctrl+F5
10145=运行与调试
10146=编译模块(&M)
10147=快速运行(&Q)\tshift+Ctrl+F5
10151=工具(&T)
10152=导出属性(&E)
10161=选项(&O)
10017=语言(&L)
10162=代码编辑器(&C)
10163=对话框编辑器(&D)
10164=路径选项(&P)
10165=调试选项(&U)
10166=生成选项(&B)
10167=外部文件(&E)
10168=插件管理器(&A)
10169=工具菜单(&T)
10170=帮助菜单(&H)
10181=帮助(&H)
10182=关于(&A)
;--------------------------------------------------------------------------
[20000]
20001=选项卡(&T)
10012=关闭当前的选项卡\tF4
10013=关闭所有选项卡\tCtrl+F4
10203=关闭所有，但当前
10204=下一个选项卡\tCtrl+Tab
10205=上一个选项卡\tShift+Ctrl+Tab
10206=拆分 / 关闭拆分
10201=锁 / 解除锁定选项卡
10202=解除锁定所有选项卡
20002=工程 (&P)
10002=新的工程
10003=打开的工程
10004=关闭工程
10102=添加新的
10103=文件
10104=模块
10105=添加现有
10106=文件
10107=模块
10018=选择作为主文件组
10019=选择作为模块切换 / 文件
10108=选择删除
10109=选择重命名
10110=工程选项
20003=输出(&O)
10092=隐藏
10211=清除
10212=全选
10213=副本
20004=属性(&P)
10221=转到声明(&G)
10222=复制到代码(&C)
10223=突出显示
10224=更新
10225=重置
20005=格式化(&F)
10022=取消(&U)\tCtrl+Z
10024=剪切(&U)\tCtrl X
10025=复制(&C)\tCtrl+C
10026=粘贴(&P)\tCtrl+V
10027=删除(&D)\tDel
10062=锁定控件(&L)
10063=发送到上一步(&S)
10064=将带到前端(B)
10065=显示网格 (& S)
10066=与网格对齐(&S)
10067=对齐控件
10068=左(&L)
10069=居中(&C)
10070=右(&R)
10071=顶(&T)
10072=居中(&M)
10073=底部(&B)
10074=相同的大小
10075=宽度(&W)
10076=高度(&H)
10077=加粗(&B)
10078=中心在对话框中
10079=水平(&H)
10080=垂直(&V)
10081=设置缩进
10082=自动随机号码
;--------------------------------------------------------------------------
[Strings]
10005=新建文件
10007=打开文件
10009=保存文件
10010=保存所有文件
10022=撤消
10023=恢复
10024=剪切
10025=副本
10026=粘贴
10027=删除
10030=查找
10033=替换
10038=缩进
10039=升级
10040=注释
10041=Uncomment
10051=切换书签
10052=下一个书签
10053=上一书签
10054=删除所有书签
10092=显示 / 隐藏输出窗口
10093=显示 / 隐藏工程
10094=显示 / 隐藏属性
10142=编译
10143=运行
10144=去
;--------------------------------------------------------------------------
[Internal]
1=找不到
100=文件
101=工程
1000=查找
1001=下一
1002=上一步
1003=替换正在
1004=搜索区域
1005=进行替换。
1006=搜索工程文件
1007=Region searched%c%cFind%c Founds: %d%c Repeats: %d%c%cBuild%c Errors: %d%c Warnings: %d
1008=Project Files searched%c%cFind%c Files: %d%c Founds: %d%c Repeats: %d%c%cBuild%c Errors: %d%c Warnings: %d
1100=工具菜单选项
1101=帮助菜单选项
1102=生成选项
1103=工程生成选项
1104=导入生成选项
1200=文件
1201=模板
1202=浏览文件夹
1300=基本的源
1301=包括
1302=资源
1303=杂项
2000=添加新文件
2001=添加现有的文件
2002=添加新的模块
2003=添加现有的模块
2004=打开的工程
3000=文件工程中存在。
3001=从工程中移除文件吗?
3002=未能创建该文件夹：
3003=文件夹存在。 是否仍要创建工程?
3004=的工程文件存在。 是否仍要创建工程?
3005=未能创建文件：
3006=想来保存更改吗?
3007=编辑器外更改文件 !
3008=重新打开该文件吗?
;--------------------------------------------------------------------------
[SnipletAddin]
SnipletAddin=Sniplets 代码
1=复制到代码
2=关闭
10000=代码 &Sniplets\tF11
;--------------------------------------------------------------------------
[AdvEdit]
10000=高级编辑
10001=选择文本\tShift+Ctrl+W
10002=文本复制\tShift+Ctrl+C
10003=剪切文本\tShift+Ctrl+X
10004=删除文本
10005=选择行\tShift+Ctrl+L
10006=行复制\tAlt+Ctrl+C
10007=剪切行\tAlt+Ctrl+X
10008=删除行
10009=快速运行
;--------------------------------------------------------------------------
[CustomFontAddin]
CustomFontAddin=自定义字体
1001=浏览
1003=确定
1004=取消
10000=自定义字体
10001=添加新字体
;--------------------------------------------------------------------------
[FBFileAssociation]
FBFileAssociation=文件关联
1008=信息
1009=更改文件 assiciations 与 FbEdit 通过检查您需要，单击更改 Association\r\nIt 扩展名将使之与我们的好的图标相关联
1001=文件
1002=*.bas -freeBasic 源
1003=*.bi -freeBasic 标头
1005=*.rc -Windows Resource 脚本
1004=*.fbp -FBEdit 工程文件
1006=更改关联
1007=关闭
10000=文件关联
10001=更改文件关联 ! \rFBEdit 路径是：
;--------------------------------------------------------------------------
[FileTabStyle]
10000=文件选项卡样式
10001=默认
10002=按钮
10003=平面
10004=修改时间状态指示器
10005=固定的宽度
10006=突出显示图标
10007=星号字符
10008=没有指示器
;--------------------------------------------------------------------------
[Toolbar]
工具栏=工具栏创建者
2000=按钮名称：
2001=ID
2002=位图文件：
2003=位图名称：
2004=Nbr
1008=添加按钮。
1009=插入按钮。
1011=添加 Sep.
1010=插入 Sep.
1012=删除
2005=工具栏样式
1018=平面
1020=自动换行
1021=没有分隔线
1023=提示
1022=列表
2006 年=按钮样式
1025=复选
1024=组
2007 年=按钮大小
1019=导出
1=保存
2=退出
;--------------------------------------------------------------------------
[TortoiseSVN]
10000=SVN 日志
10001=SVN 更新
10002=SVN 提交
;--------------------------------------------------------------------------
[ShowVars]
1000=隐藏
1001=下一个 Tab\tCtrl+F6
1002=上一 Tab\tShift+Ctrl+F6
1003=清除选项卡
1100=名称
1101=签名
1102=取消签名
1103=Hex
1104=Char
1105=Bin
1200=Name
1201=Result
1300=Name
1301=Len
1302=Content
1400=Name
1401=Address
1402=Dump
1403=Ascii
1500=Name
1501=Address
1502=Hex
1503=Assembler
1600=Time
1601=Ticks
1602=Show
2000= Line:
2001=函数：
2002=文件：
3000=清除吗?
3001=太多注册
3002=内部错误
9000=行
9001=函数
9002=路径
9003=文件
;--------------------------------------------------------------------------

2008年8月第一版,英文不是很好,很多是词霸+谷歌+微软,有兴趣的一块来翻译

版权所有! 请不要修改作者信息!

同意请下载

http://files.cnblogs.com/starwork/FbEditCHN.rar


类别：编程手记 查看评论]]> 2008年08月15日 星期五 04:00 http://hi.baidu.com/starwork/blog/item/a5802b95dd33510e7bf480b2.html <![CDATA[NBC高清版本_北京奥运会开幕式录影BT下载(beijing olympics 2008)]]>

beijing olympics 2008 opening ceremony 720p hdtv

(2008-08-11 12:01:03)   loyalty
对了大家看NBC版的北京奥运会开幕式吧,你会发现中国的导播是傻B


(2008-08-11 12:01:21)   loyalty
怪不得外国对中国的开幕式评价这么高


(2008-08-11 12:01:32)   loyalty
我现在全明白了

任务名称:       Beijing.Olympics.2008.Opening.Ceremony.720p.HDTV.x264-ORENJi
文件大小:       4.92GB
已选大小:       4.92GB   
健康度:         2000%
特征值:         769DCC0433B6427EC013D9882B97278FC015B017
本次上传:      
累计上传:       166.71MB
分享信息:      
位置:           F:\BJ2008\
引用页:        
任务创建时间:   2008-8-11 22:02:08
任务完成时间:   2008-8-12 4:24:32
下载用时:       6:08:38
平均速度:       188.74KB/s

下载后解压得到:

beijing.olympics.2008.opening.ceremony.720p.hdtv.x264-orenji.mkv

BT种子下载:

http://files.cnblogs.com/starwork/Beijing[1].Olympics.2008.rar


类别：默认分类 查看评论]]> 2008年08月12日 星期二 12:11 http://hi.baidu.com/starwork/blog/item/207e2c4c5a9292ffd62afc4e.html <![CDATA[赤壁 迅雷高速下载]]> 影片信息
导演：吴宇森
演员：梁朝伟 金城武 张震 林志玲 小宋佳
赵薇 佟大为 巴森 侯勇 胡军 张丰毅
臧金生 尤勇 张山
类型：历史　　 地区：中国
语言：普通话
上映时间：2008-07-10（上）

剧情： 《赤壁》上集主要讲述周瑜和诸葛亮力劝蜀吴联军抗曹的故事，吴宇森在他最擅长的兄弟情上特别着墨。电影以赵云的长坂坡之战开场，曹操在击溃刘备后将目标锁定为东吴。孙权派鲁肃以吊唁刘表之名与刘备会面，共商抗曹大计，刘备派诸葛亮前往东吴。同时，孙权的妹妹孙尚香与鲁肃用激将法逼孙权抗曹，由周瑜主持大局。两军赤壁相遇，曹操大败...

2008-08-06 01:13:01 开始连接......
2008-08-06 01:13:01 开始搜索候选资源......
2008-08-06 01:13:02 搜索到29个候选资源
2008-08-06 01:13:02 使用候选资源进行连接......
2008-08-06 01:13:03 搜索到129个候选资源
2008-08-06 01:13:03 使用候选资源进行连接......
2008-08-06 01:13:03 搜索到80个候选资源
2008-08-06 01:13:03 使用候选资源进行连接......
2008-08-06 01:13:10 开始创建文件......
2008-08-06 01:13:18 文件创建成功，开始下载数据......

thunder://QUFmdHA6Ly9keWdvZDE6ZHlnb2QxQGQyMDQuZHlnb2QubmV0OjIxMDkvs+Cx2kRWRC9btefTsMzszMN3d3cuZHlnb2QuY25ds+Cx2kRWRDAxLnJtdmJaWg==

thunder://QUFmdHA6Ly9kMTcxLmR5Z29kLm5ldDoxMDk1L7PgsdpEVkQvW7Xn07DM7MzDd3d3LmR5Z29kLmNuXbPgsdpEVkQwMi5ybXZiWlo=


类别：默认分类 查看评论]]> 2008年08月06日 星期三 01:21 http://hi.baidu.com/starwork/blog/item/b80b9f77ee98891db151b97c.html <![CDATA[VB,VC,Delphi,SDK之火车头的故事]]>

      话说PD国VB, VC,, Delphi, ，SDK一齐乘火车，走着走着，忽听咣一声响，火车头忽然裂为八瓣儿。火车走不了了。于是大家下车商讨对策。，SDK说："这好办，看我的。"，说着，，SDK从身后拿出铁镐，斧头，大锅等一干工具。别人都以为，SDK先要解决温饱问题，不想，SDK一边架锅一边提出自己的解决方案："先砍一棵树，劈成木柴点起来，再在旁边岩壁上，挖一个矿井，产出铁矿石，练成钢后，便可以再造一个火车头了。"。我考，其余人一齐恶到在地，在地上齐喊Cancel。

       这时VC,说："火车头虽已四分五裂，但我们可以将这些部件的有用部分继承下来，做成一个新的。"。 Delphi点头称是，VB半懂不懂。VC,一看基本获得通过，挽起袖子准备干活，不想走到近前，发现对火车头不甚了解，但这也难不倒VC,，只见VC,轻点F1，本想获得一些帮助，不想弹出一对话框：本系统没有安装MSDN。正当VC,准备晕倒之时， Delphi从煤堆中翻出两张D版MSDN交给VC,，VC,用颤抖的双手将MSDN装上以后发现，这个版本的居然还是简体PD文版的，内容非常丰富，不仅有火车头，还有飞机头，汽车头等，另外还有各种动物的头，比如gui头。VC,点中火车头的热链接。"啊，天哪！"，VC,终于昏倒在地。 Delphi与VB凑近一看，原来简体PD文版只是个噱头，真正的文档都是M$文版的。VC,的方案终告失败。此时天空蔚蓝的仿佛篮屏。

       VB眼珠一转想出了一个办法，砍倒了一些树，VB居然用树做了一个象么象样但却比原来大许多倍的火车头。四人欢天喜地上了车，没想到火车纹丝不动， Delphi问："这火车头怎么不动啊？"。VB说："兄弟，您还不了解我么，我做的东东什么时候能自己动啊？"，"那怎么办！"，"不着急，有上帝呐"。这是天空中传来上帝耶和华·比尔盖茨的声音："VB，我从小看着你长大的孩子啊，我赐予你的火车头32个人的力量，让它run吧。"。这时火车居然吱吱嘎嘎的行进起来，可是速度又慢又不稳定，没过多久火车又停了。

       这时 Delphi正在车厢中溜达，他发现，车厢的最后端有些大大小小的可以控制的件。于是 Delphi招呼大家把这些件搬下车看看是什么东西，没想到这个中国式的车厢门太窄，于是大家就像蚂蚁似的续传着搬下了车。 Delphi照着读我把这些件拼凑起来，没想到居然是一个崭新的火车头， Delphi对着火车头道："别看我对你的这些件们的内部不了解，但我能把你们拼起来

出自 www.unpack.cn/


类别：默认分类 查看评论]]> 2008年08月04日 星期一 04:44 http://hi.baidu.com/starwork/blog/item/82d23f23aaa96248935807ee.html <![CDATA[VB6：子类化检测鼠标移进移出]]>


代码在此：

窗体默认：FORM1
CODE:
'*************************************************************************
'**模 块 名：Form1
'**说 明：丹心软件在线设计 版权所有2007 - 2008(C)
'**创 建 人：丹心
'**日 期：2007-09-16 22:26:36
'**修 改 人：
'**日 期：
'**描 述：子类化检测鼠标移进移出
'**版 本：V1.0.0
'**博客地址：http://hi.baidu.com/starwork/
'**QQ   号码：121877114
'**E - mail:cnstarwork@126.com
'*************************************************************************
Option Explicit

Private Sub Form_Load()
If SubClass(Me.hWnd) Then
     
Else
       MsgBox "子类化未能成功初始化:-)"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call UnSubClass(hWnd)
End Sub

模块一个：mMouseEvent
CODE:

Option Explicit
'*************************************************************************
'**模 块 名：mMouseEvent
'**说 明：丹心软件在线设计 版权所有2007 - 2008(C)
'**创 建 人：丹心
'**日 期：2007-09-16 22:26:36
'**修 改 人：
'**日 期：
'**描 述：子类化检测鼠标移进移出
'**版 本：V1.0.0
'**博客地址：http://hi.baidu.com/starwork/
'**QQ   号码：121877114
'**E - mail:cnstarwork@126.com
'*************************************************************************
Private Const WM_MOUSEMOVE = &H200
Private Const WM_MOUSELEAVE = &H2A3
Private Const GWL_WNDPROC = (-4)
Private Const WM_NCDESTROY = &H82 ' 如果组件被销毁，恢复源窗口过程处理函数
Private Const OLDWNDPROC = "OldWndProc"

Private Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Private Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hWnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
Private Declare Function RemoveProp Lib "user32" Alias "RemovePropA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long
Private Declare Function TrackMouseEvent Lib "user32" (lpEventTrack As TRACKMOUSEEVENT_STRUCT) As Long
Private Declare Function TrackMouseEventComCtl Lib "Comctl32" Alias "_TrackMouseEvent" (lpEventTrack As TRACKMOUSEEVENT_STRUCT) As Long

Private m_bTrack                                As Boolean
Private m_bTrackUser32                          As Boolean
Private m_bInControl                         As Boolean

Private Type TRACKMOUSEEVENT_STRUCT
cbSize                             As Long
dwFlags                         As Long
hwndTrack                          As Long
dwHoverTime                      As Long
End Type

Private Enum TRACKMOUSEEVENT_FLAGS
TME_HOVER = &H1&
TME_LEAVE = &H2&
TME_QUERY = &H40000000
TME_CANCEL = &H80000000
End Enum

Public Function SubClass(hWnd As Long) As Boolean
Dim lpfnOld     As Long
Dim fSuccess     As Boolean

Call MouseEvent(m_bTrack, m_bTrackUser32)

If (GetProp(hWnd, OLDWNDPROC) = 0) Then
       lpfnOld = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WndProc)
       If lpfnOld Then
         fSuccess = SetProp(hWnd, OLDWNDPROC, lpfnOld)
       End If
End If

If fSuccess Then
       SubClass = True
Else
       If lpfnOld Then Call UnSubClass(hWnd)
End If

End Function

Public Function UnSubClass(hWnd As Long) As Boolean
Dim lpfnOld     As Long
lpfnOld = GetProp(hWnd, OLDWNDPROC)
If lpfnOld Then
       If RemoveProp(hWnd, OLDWNDPROC) Then
         UnSubClass = SetWindowLong(hWnd, GWL_WNDPROC, lpfnOld)
       End If
End If
End Function

Public Function WndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case uMsg
Case WM_NCDESTROY ' 如果组件被销毁，恢复源窗口过程处理函数
       Call UnSubClass(hWnd)
       MsgBox "卸载子类化   &H" & Hex$(hWnd), vbCritical, "警告"
Case WM_MOUSEMOVE
       If Not m_bInControl Then
         m_bInControl = True
         If TrackMouseLeave(hWnd, m_bTrack, m_bTrackUser32) = True Then
            Debug.Print "鼠标进入"
            Form1.Caption = "鼠标进入"
         End If
       End If
Case WM_MOUSELEAVE
       m_bInControl = False
       Debug.Print "鼠标离开"
       Form1.Caption = "鼠标离开"
End Select

WndProc = CallWindowProc(GetProp(hWnd, OLDWNDPROC), hWnd, uMsg, wParam, lParam)
End Function

Public Sub MouseEvent(ByRef bTrack As Boolean, ByRef bTrackUser32 As Boolean)
bTrack = True
bTrackUser32 = IsFunctionExported("TrackMouseEvent", "User32")
If Not bTrackUser32 Then
       If Not IsFunctionExported("_TrackMouseEvent", "Comctl32") Then
         bTrack = False
       End If
End If
End Sub

Private Function IsFunctionExported(ByVal sFunction As String, ByVal sModule As String) As Boolean
On Error GoTo IsFunctionExported_Error
Dim hmod        As Long
Dim bLibLoaded   As Boolean
hmod = GetModuleHandleA(sModule)
If hmod = 0 Then
       hmod = LoadLibraryA(sModule)
       If hmod Then bLibLoaded = True
End If
If hmod Then
       If GetProcAddress(hmod, sFunction) Then IsFunctionExported = True
End If
If bLibLoaded Then Call FreeLibrary(hmod)
Exit Function
IsFunctionExported_Error:
End Function

Public Function TrackMouseLeave(ByVal lng_hWnd As Long, ByVal bTrack As Boolean, ByVal bTrackUser32 As Boolean) As Boolean
On Error GoTo TrackMouseLeave_Error
Dim tme As TRACKMOUSEEVENT_STRUCT
If bTrack Then
       With tme
         .cbSize = Len(tme)
         .dwFlags = TME_LEAVE
         .hwndTrack = lng_hWnd
       End With
       If bTrackUser32 Then
         Call TrackMouseEvent(tme)
       Else
         Call TrackMouseEventComCtl(tme)
       End If
       TrackMouseLeave = True
End If
Exit Function
TrackMouseLeave_Error:
End Function

下载：

http://www.cnblogs.com/Files/starwork/子类化检测鼠标移进移出.rar


类别：编程手记 查看评论]]> 2008年05月17日 星期六 22:16 http://hi.baidu.com/starwork/blog/item/1cac5659d380b02f2934f05e.html <![CDATA[VB6:超强自定义TreeView控件(滚动条美化终极篇)]]> 大家有任何建议,请留言或者发邮箱给我,谢谢!!

.

,参考资料:

http://www.devx.com/vb2themax/Tip/19369

程序下载:
先用为快,:)
http://www.cnblogs.com/Files/starwork/dsTreeView3.rar

好累,好好地睡个好觉,母亲节快乐```````````````ZZZ


类别：编程手记 查看评论]]> 2008年05月11日 星期日 01:31 http://hi.baidu.com/starwork/blog/item/66cde713d6bed0075aaf53be.html <![CDATA[我朋友在医院被割了皮包，被女朋友臭骂一顿]]>

昨天我一个朋友出院,
结果不小心在医院被小偷割了皮包,偷了三千块钱,
他女朋友臭骂他,"都出院了还看不住,还丢了钱,真是多此一举!"


注:凡是把"皮包"看成"包皮"的必须留言!! 而且今年好运连连!横财就手！


类别：默认分类 查看评论]]> 2008年05月05日 星期一 19:25 http://hi.baidu.com/starwork/blog/item/0848f5fd6c05d740d6887df6.html