Visual Basic Source Codes

MP 放大镜 ( 5KB, 1999/12/2)

1999年12月2日,增加十字准标,并且改为Visual Basic 5的专案。

「十字准标」,到底有什麽用途呢?如果您常常用 Windows 的小画家画图,这个功能可就大大好用了。大家都知道,小画家的放大功能有限,通常来说,那种程度的放大,实在不够!滑鼠到底正确在哪一点上作用,常常让你的近视度数多了不少度数。因而十字准标,可以帮助您定位滑鼠目前的动作点,这个动作点,在 Windows 有一个专有名词,叫做 Hot Spot。

另外值得一提的是,十字准标会依照 Hot Spot 颜色不同而变色的功能,将许多人问的问题,「如何取得像素点的R、G、B数值?」做了一个 例型的回答。如此一来,只要了解影像处理的一些算法,就可以写些影像处理的软体…

Windows NT 不能使用放大镜,真是不好玩…这个程式解决了您不能在 NT 下,使用放大镜的问题。

主要使用了 StrechBlt 与 GetDC 这两个 API ,功能不多,大家可以试着加一些功能。

备有已编译的执行档 →


MediaShow ( 57KB, 1999/11/08)

特殊需求:最新版本的 Windows Media Player (版本 6.01.05.0217 以上),否则在出现诸如MP3档案无法拨放的问题…

可以播放标准的 VCD、Audio CD、MP3 音乐、Midi、Wave…

如果您常常使用 Windows Media Player 来播放 VCD,那一定不能错过 Media Show,因为它免除要选开启VCD档案的困扰,Media Show 会非常聪明帮您找到要开启的档案,然後自动切换全萤幕拨放。

仍继续开发中…


vbTickCount( 2KB, 1999/10/08)

可以用这个程式了解 Windows API 的 GetTickCount() 函式的精确度。微软的白皮书上说,NT上的间距为10ms,9X为55ms。可以自行验证看看。


vbWin(7KB,1999/10/07)

1999年10月07日,v1.1,新增 Suspend 方法,AppRunPath与CurrentDir属性, NotAllowedOnNT事件。

这个物件可以帮您方便地判别作业系统的种类、版本,登入使用者的名称,记忆体使用的状况,CPU的个数、种类、版本。还可以帮助您呼叫控制台与控制台内像是显示器、滑鼠、键盘等子功能。让您不要为了要完成某一种功能就要到处找API的书籍或是上网求救,是非常方便的物件,更重要的是,连原始程式码都公布给大家参考使用。

当然,下载的档案中已经包含了如何使用vbWin的Demo,相信聪明的您一定会使用它。


FixOLbug(14KB,1999/09/11)

因为微软的设计上的缺陷,导致「Outlook 2000」与「Outlook Express 5」的共用必须於启动时先指定储存资料的位置,叫做「Identities」。偏偏这个「Identities」又不能删除,而启动後总是要多一个「Identities」的视窗,每次都要关掉它,烦死人了。这个程式可以帮你关掉这个令人不喜欢的「Identities」视窗。

特别说明,本程式内定10分钟找不到「Identities」视窗就自我关闭,以节省系统资源。如果您启动Windows需要10分钟以上的时间,请写信告诉园主。我会修正一下内部参数,让它符合您的需要^-^

备有已经编译的执行档,方便诸位直接下载使用。


ieNamer(7KB,1999/09/07)

不晓得您对 IE4 或是 IE5 的视窗名称,比如说,像这样的名称「神奇力量网 - Microsfot Internet Explorer 由 PC Hxxx 提供」,有什模样的感觉呢?其实,您不用再委屈自己,变成这些公司的行销笨蛋,用ieNamer来修改一下IE的名称,您可以将IE改成「XXX专用」,多ㄅ一ㄤ 。^-^此外,如果您对於Windows Registry有研究的话,这个例子可以帮您写一个类似WinBoost的程式…


KeyMacro(5KB,1999/08/02)

如果您的工作需要重覆按键盘按键才能完成的工作,而这些按键又很烦,您就可以试试看这个小小的程式。它可以向某一个应用程式重覆送出相同的键盘指令,至於可以可麽应用,那就得看看你的想像力了。


DataFormatted(17KB,1999/07/30)

这是用来整理资料格式的一个例子。将有规则可循的纯文字档转换成自己想要的纯文字格式。其中,最主要的部分就是应用MID函数来取得想要的资料。其它相关资料请参考日记


vbPrimeNo(4KB,1999/05/27)

一个按照普通想法做成的判别质数程式,可以判别 Visual Basic 在长整数 围内的所有质数。您可以用这个程式来体验一下 Visual Basic 的运算能力…


vbIniFile(3KB,1999/09/07)

照着VCL的TIniFile依样画葫芦,封装了部分读写ini档案的API函数。今後要读写ini档案就不是很头痛事情了。只要将vbIniFile.CLS加入您开发的专案,就可以很方便读写ini档案。


vbRegistry(4KB,1999/09/07)

虽然Visual Basic中有方便存取Registry的函数,但是限制很大。而呼叫API函数又太麻烦了。因此模仿VCL的TRegistry,使用物件模组封装相关的API函数,方便重用。目前只封装以String方式读写,应该可以满足80%的需求了。


ShowPics (11KB,1999/05/05)

ACADSee很方便,但用了一段时间後就…尤其在全萤幕下秀图,为了切换上一张、下一张,都必须委屈自己多压一次滑鼠右键,外加滑动少许的距离…现在,一切都改变了。不仅仅操作方便,同时也可以当成图库光碟的秀图引擎,可以自己定义秀图顺序的索引档,而搭配CrIndex一起使用,更是妙用无穷。

已经将ShowPics与制作索引档的CrIndex编译包成ShowPics Pack,方便下载使用。


Symbols (3KB,1999/05/05)

觉得只有Word才有标点符号列而困扰吗?每次为了想要使用方便的符号列而忍受肥肥的Word,启动时花了老半天的时间!现在有了Symbols,就可以非常方便的,在任何一个用得到他的软体中使用。

备有已经编译的执行档,方便诸位直接下载使用。