【正文】 指令，可動態(tài)新增及刪除組件。在游戲過程中，利用鼠標所發(fā)出的信息了解使用者的意圖，進而做出相應的動作。例如同時按下左鍵及右鍵，則Button值為1+2=3.在本游戲中，利用右鍵的MouseDown事件標示“已標示”方塊，利用左鍵的MouseDown事件，標示使用者準備按下的方塊，利用左鍵的MouseUp事件確定翻開的方塊。因為一個Imagelist組件內必須存儲大小相同的圖片，所在這款游戲設計中，顯示的圖片共分為三個部分：游戲狀態(tài)圖形、數字計數圖形和地雷區(qū)標示圖形。其中第二種的行為，可以通過Timer組件來加以控制。分述如下：●容器特性：只要容器本身顯示的行為改變，在容器內的組件也會跟著改變。在游戲過程中，當使用者按下非地雷方塊時，方塊會沿四周八個方向向外翻開非地雷的方塊。3可行性分析可行性研究的目的是用最小的代價在盡可能短的時間內確定問題是否能夠解決。都是對掃雷游戲的喜好者.4總體設計本游戲的功能類似于Windows操作系統自帶掃雷游戲，設計之前，先了解這款游戲的規(guī)則。使用者可以通過地雷區(qū)內的數表示以其為中心的周邊八個方塊內所含的地雷數。當使用者按下第一個方塊時產生地雷并啟動定時器，主要為了不讓使用者第一次就踩到地雷，這樣在某種程度上提高了游玩的氣氛?！瘢河嫈祬^(qū)（PictureBox）。●～：地雷數(Image)。●：游戲狀態(tài)圖片(ImageList)。 設計過程 添加菜單使用菜單編輯器編輯游戲的主菜單，點擊“工具”菜單上的“菜單編輯器”命令選項，即可打開菜單編輯器。圖4 菜單編輯器 自定義窗體設計打開主菜單游戲→自定義，可以顯示窗體，如圖5所示。幫助使用者了解相關信息。加載為地雷區(qū)方塊圖片 Set iMine(0).Picture = (9).Picture 39。設定窗體大小 Call setFormSizeEnd Sub6系統測試掃雷游戲是WINDOWS系統自帶的一個娛樂性的小游戲，為了確保本游戲能夠正常運行，需要在發(fā)布之后做一次較全面的測試。在游戲菜單上，單擊開局。如果方塊上出現數字，則表示在其周圍的八個方塊中共有多少顆地雷。結束語經過一個星期的設計和開發(fā)，以Visual ，掃雷小游戲基本開發(fā)完畢，基本功能能夠實現。同時深深地體會到進行軟件開發(fā)不是一件簡單的事情，它需要設計者具有全面的專業(yè)知識、縝密的思維、嚴謹的工作態(tài)度以及較高的分析問題解決問題的能力，而我在很多方面還有欠缺。由于學識疏淺，文中難免有失當之處，敬請老師不吝賜教，以使本文能夠更加完善!在此，對老師和同學表示衷心的感謝！參考文獻[1] 柴欣，武優(yōu)西．Visual Basic程序設計基礎．中國鐵道出版社，2005，8（3）：7379[2] 劉瑞新，汪遠佂．Visual Basic程序設計教程．機械工業(yè)出版社，2002，5：209223[3] 譚浩強．Visual Basic程序設計案例教程．清華大學出版社，2008，2（2）：3237[4] 管麗娜 ， Basic6 教程 .北京:清華大學出版社,2001[5] 段興. Visual Basic數據庫實用程序設計100例. 人民郵電出版社,2002[6] 王運堅. VISUAL BASIC 應用指南. 北京: 人民郵電出版社, 1998附錄附上本程序完整代碼：Dim MAP_X As Integer 39。地雷標記數Dim MINE_NUM_CLEAR As Integer 39。游戲是否呈結束狀態(tài)Dim isFinal As Boolean 39。窗體加載Private Sub Form_Load() Randomize 39。計數區(qū)配置 Call setCounterInit 39。換算組件所代表的坐標值 Dim yyy As Integer If isFinal = False And isDie = False Then xxx = index Mod MAP_X 39。未探測 mapFaceArr(xxx, yyy) = 2 MINE_NUM_LABEL = MINE_NUM_LABEL + 1 Call setMineImage(index, 13) Call setNowMines ElseIf mapFaceArr(xxx, yyy) = 2 Then 39。換算組件所代表的坐標值 Dim yyy As Integer Dim rX As Integer 39。標示動作圖片的坐標 yyy = index \ MAP_X 39。判斷數組中(rX,rY)為非地雷及 39。選擇地雷區(qū)數組判斷該坐標 Select Case mapArr(xxx, yyy) Case 0 39。檢查是否只剩下地雷未探測 If MAP_X * MAP_Y MINE_NUM_CLEAR = MINE_NUM Then isFinal = True End If End If 39。松開表情圖案時Private Sub iState_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 1 Then Set = (1).Picture Form_Load End IfEnd Sub39。設定方塊圖片Private Sub setMineImage(m_index As Integer, il_index As Integer) Set iMine(m_index).Picture = (il_index).PictureEnd Sub39。地雷計數顯示 Call setNowMines 39。設定時間計數框大小 wid = hig = = * 3 + wid = + hig 39。重新定義地圖數組大小 ReDim mapArr(MAP_X, MAP_Y) ReDim mapFaceArr(MAP_X, MAP_Y) 39。設定地圖區(qū)大小位置 Dim wid As Integer Dim hig As Integer wid = hig = 150, _ + 300, _ MAP_X * iWid + wid, _ MAP_Y * iHig + hig = TrueEnd Sub39。顯示地雷Private Sub showMine() For i = 0 To MAP_X For j = 0 To MAP_Y 39。 TIME_COUNTER amp。選擇等級Private Sub muGame_Level_Click(index As Integer) If index = 3 Then vbModal End If Call setInit(index) 39。設定窗體大小End Sub39。設定狀態(tài)圖示 If TIME_COUNTER = 999 Then isDie = True = False mapFaceArr(xxx, yyy) = 0 Call showMine 39。是狼就要練好牙，是羊就要練好腿。拼一個春夏秋冬！贏一個無悔人生！早安！—————獻給所有努力的人.學習