vb課程設計--制作小游戲-文庫吧資料
2025-05-22 18:14本頁面
【正文】 bl(j)) = 0 Then lbl(j) = i Exit For End If Next j End If Next i End Sub Private Sub Mreplay_Click() Dim i% For i = 0 To 7 lbl(i) = Next Mnew_Click 浙江林學院信息工程學院課程 大作業(yè) 報告 5 End Sub 編寫好代碼后，執(zhí)行操作，結果如下： 窗口內(nèi)設有游戲、幫助兩個菜單項。共有控件如下： 控件名稱 Form Label Shape 數(shù)量 1 11 1 設計界面如下圖所示： 浙江林學院信息工程學院課程 大作業(yè) 報告 2 設計好界面后，打開“代碼”窗口，編寫如下代碼： 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)
畢業(yè)設計相關推薦
鄂ICP備17016276號-1