Visual Basic Source Codes

DDR ( 408,874個位元組, 2000/02/21) 原開發者:藤崎詩織 (FJJ)

特別感謝「藤崎詩織 (FJJ) (fjj.bbs@bbs.hwh.edu.tw)」授權本園放置原始程式碼下載研究。
原開發者聲明,可以自由修改程式碼,請記得要聲明出處。

喜歡玩跳舞機,又有 Visual Basic 開發功力的朋友,這下子,您有可以開發跳舞機軟體了!原始程式碼使用 Windows API 來做貼圖動作,螢幕畫面非常流暢。您一定想不到,原來 Visual BAsic 也可以寫出這樣的軟體!

我想,可以繼續加強的就是音效與音樂部分,FFJ 沒將這部分寫進去!雖然沒有註解,但是我相信,功力深厚的您一定可以了解的。

附註:原專案中直接引入預設的專業版控制項,但在程式碼中沒有使用這些控制項,所以,園主將這些控制項移除,這樣一來也可以在 Visual Basic 的標準版中開啟!


ByeBye ( 6,019個位元組, 1999/12/15)

使用先前封裝的 vbWin.CLS 來完成的關機小程式。程式碼很精簡,並且支援命令參數的輸入。

支援參數說明:( _ 紅底線表示空一格)

ByeBye_[/n]
n = 0,關機;n = 1,重新啟動;n = 2 登出。如果省略參數,則關機。

下載執行檔


MP 放大鏡0.03.0028 ( 5KB, 2000/11/11)

2000年11月11日,(VB6的專案檔)

李志強先生新增調整放大倍數、改變放大鏡外框等功能。並去Windows 外框,很炫哦!(提供網站:搞笑寶寶之家)

或是您可以直接下載執行檔

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/12/25)

如果您的工作需要重覆按鍵盤按鍵才能完成的工作,而這些按鍵又很煩,您就可以試試看這個小小的程式。它可以向某一個應用程式重覆送出相同的鍵盤指令,至於可以可麼應用,那就得看看你的想像力了。

閱讀鍵盤按鍵參數文件


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,就可以非常方便的,在任何一個用得到他的軟體中使用。

備有已經編譯的執行檔,方便諸位直接下載使用。