【文章內(nèi)容簡(jiǎn)介】
操作。 課程設(shè)計(jì)小游戲要求 要在對(duì)游戲的原理進(jìn)行深入分析的基礎(chǔ)上,利用標(biāo)簽控件數(shù)組和鼠標(biāo)事件來(lái)設(shè)計(jì)該款游戲。 大作業(yè) 報(bào)告內(nèi)容 在 VB 應(yīng)用程序里設(shè)計(jì)好小游戲(排排看)窗口。共有控件如下: 控件名稱(chēng) Form Label Shape 數(shù)量 1 11 1 設(shè)計(jì)界面如下圖所示: 浙江林學(xué)院信息工程學(xué)院課程 大作業(yè) 報(bào)告 2 設(shè)計(jì)好界面后,打開(kāi)“代碼”窗口,編寫(xiě)如下代碼: Private Sub Form_Load() End Sub Private Sub lbl_DragDrop(Index As Integer, Source As Control, x As Single, Y As Single) If (Abs( Index) = 1 Or Abs( Index) = 3) And lbl(Index) = Then term = = lbl(Index).Caption 浙江林學(xué)院信息工程學(xué)院課程 大作業(yè) 報(bào)告 3 lbl(Index) = term flag = True For i = 0 To 7 If Val(lbl(i)) i + 1 Then flag = False Next