Dim strMapFile As String
A:這是把地圖的檔案名稱用字串定義嗎???
Q:對呀,因為按重置後不能再用 Dir(App.Path + "\" + "MAP*.txt") 這個方式得到 地圖的檔案名稱,所以要把目前的 地圖檔名 用這個字串變數記錄起來
Private Sub ExitCommand_Click()
End
End Sub
Q:這個物件事直接執行還是說由按鈕來控制
A:按鈕,這是 [離開] 按鈕的 Click(點擊) 事件,
End 是保留字 (以下是 MSDN中文版的解釋)
End 陳述式可以強制程式碼終止,無須經過 Unload、QueryUnload,或 Terminate 事件,或任何其它的 Visual Basic 程式碼。Unload、QueryUnload,表單與物件類別模組的 Terminate 事件都不會執行。由物件類別模組所建立的物件會被破壞、以 Open 陳述式開啟的檔案會被關閉,程式所佔用的記憶體空間也會被釋放。
End 陳述式是一種強制程式停止執行的方式。一般要結束 Visual Basic 程式前,都必須先載出所有表單,確定沒有其它程式引用到其中的物件,且沒有執行中的程式碼,才能結束。
Call MeCaptionIs
A:mecaption是代表什麼意思呢???
Q:搜尋 MeCaptionIs 副程式可看到
'顯示版本
語法:
Private Sub MeCaptionIs()
'App.Major + App.Minor + App.Revision '主、次、修訂
Me.Caption = "老鼠走迷宮 Ver" + CStr(App.Major) + "." + CStr(App.Minor)
If App.Revision <> 0 Then Me.Caption = Me.Caption + "." + CStr(App.Revision)
End Sub
也就是在程式標題列顯示 "老鼠走迷宮 Ver" + 主.次.修訂
Maze_Initial 是地圖處理副程式
Initial 是數據處理副程式
'初始 的意思
Private Sub Initial()
...
Dir(App.Path + "\" + "MAP*.txt") 是
在應用程式下 用 "MAP*.txt" 為搜尋條件 (就像是DOS打 dir map*.txt),會傳回第一個符合條件的字串,都沒有的話會回傳 "" 空字串
MapPicture 是 PictureBox 物件,表示將地圖數據畫在這上面
經驗談:
欲解析他人的程式 請善用 搜尋
如副程式內容過於零亂 那建議不要深究 (除非想了解那段副程式使用到的技巧)
欲學好 MS 出版的 VC++、VB、... 可以用 emule 下一套 MSDN中文版 來用用
比如對 End 點兩下按 F1 鍵,就會出現該解釋及用法
如查無此字,就表示他是一個 windows api 或 自制副程式
新版 v1.0.3
http://d.turboupload.com/d/178219/Mouse.rar.html
Ver 1.0.4
.針對 迷宮初始 之運算 做效能提升
http://d.turboupload.com/d/178354/MazeModule.bas.html
(請取代原 MazeModule.bas ※需重新編譯)
這個創作其實有個弱點
就是 當能走的方向都已走過(旗標皆為1)時 用 "亂數決定方向" 之方法
會使 老鼠產生猶豫不定的現象
這點有待解決...
不過老鼠是一定能走到終點(不會陷入永久迴圈),因此相較其他 老鼠走迷宮 之構思
還算是比較好的方法