【正文】 eshdata()(objDs, ”XS_KC“)()bindgridview(WhereStr)End SubPublic Sub bindgridview(ByVal strXH As String)Dim objConn As New Dim objComm As New WhereStr = ”“If Trim() ”“ ThenWhereStr = ” 學(xué)號like“ + Trim()End If = ”Provider=。 ”where“ amp。創(chuàng)建Delte CommandDim delmand As New (”DELETE * from XS_KC where 序號=?“, objConn)(”序號“, , 6, ”序號“) = delmand39。關(guān)閉數(shù)據(jù)集39。顯示課程號 = (3). 39。修改學(xué)號().Item(1)= 39。更新并刷新顯示End IfEnd SubPrivate Sub btnDelete_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要刪除記錄嗎？“, vbOKCancel + vbQuestion, ”系統(tǒng)提示“)If response = Then 39。data source = 39。 WhereStrEnd If = objConn = objCommXS()(objDsXS, ”XS_KC“)() = (”XS_KC“)End SubPrivate Sub Form4_Load(ByVal sender As , ByVal e As )Handles WhereStr = ”bindgridview(WhereStr)End Sub End ClassPublic Class Form2Private Sub quitMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub importscoreMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form4 As New Form4 = Me = ()End SubPrivate Sub updateinfoMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form7 As New Form7 = Me = ()End SubPrivate Sub selectinfoMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form6 As New Form6 = Me = ()End SubPrivate Sub cascadeMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub horizonMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub verticalMenuItem_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub aboutMenuItem_Click(ByVal sender As , ByVal e As )Handles Dim form5 As New Form5 = Me = ()End SubPrivate Sub ToolStripButton1_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton2_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton3_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton4_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton5_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripButton6_Click(ByVal sender As , ByVal e As )Handles ()End SubPrivate Sub ToolStripStatusLabel1_Click(ByVal sender As , ByVal e As )Handles ()End Sub End Class八．參考文庫百度文庫，百度知道第四篇：vb課程設(shè)計Visual Basic課程設(shè)計報告題目1： 貪吃蛇 難度：**** 題目2： 難度： 指導(dǎo)教師：姓 名： 學(xué) 號： 專 業(yè)： 班 級： 學(xué) 院：日 期：目錄題目簡介...................................................................................................錯誤！未定義書簽。當(dāng)蛇的頭撞到障礙物時或碰到自己身體時，游戲結(jié)束。如果運動過程中，其頭部碰到障礙物或自己，則被撞死，游戲結(jié)束。圖5 為了使效果更好，我加了背景音樂和速度控制。首先我們要將背景網(wǎng)格和蛇身畫出來，由于受到了動態(tài)添加控件的啟發(fā)，我用了powerpacks中的ovalshape來構(gòu)造蛇身，lineshape來構(gòu)造線，為了滿足蛇的身體長長，用到了數(shù)組。蛇的身體Public word(4)As LabelImports Public a(num)As OvalShape ‘a(chǎn)（）為定義蛇身的數(shù)組，變量num用來記錄蛇身個數(shù)Public line(41)As LineShape Dim canvas = New For i = 4 To 0 Step1 a(i)= New OvalShapea(i).Size = New Size(20, 20)a(i).Top = 360 a(i).Left = 120 + 20 * i a(i).FillStyle = a(i).FillColor = a(i).Parent = canvas Nexta(0).FillColor = ‘給蛇上色 a(0).BackColor = Dim i As Integer = For i = 0 To 20 39。由此可以用以下代碼解決：Private Sub form_keydown(ByVal sender As Object, ByVal e As )Handles Select Case Case 37 If d 2 Then d = 0 ‘這樣能讓蛇不往回走Case 38 If d 1 Then d = 3 Case 39 If d 0 Then d = 2 Case 40 If d 3 Then d = 1 End SelectEnd Sub Select Case d Case 2 For i = num To 1 Step1 a(i).Left = a(i1).Top Nexta(0).Left += 20 Case 1 For i = num To 1 Step1 a(i).Left = a(i1).Top Nexta(0).Top += 20 Case 0 For i = num To 1 Step1a(i).Left = a(i1).Top Nexta(0).Left= 20 Case 3 For i = num To 1 Step1 a(i).Left = a(i1).Top Nexta(0).Top= 20 End Select 然后我們可以來設(shè)置食物來讓蛇吃，我用rectangleshape控件來制造食物，就像和畫出蛇身一樣寫，但是每當(dāng)被吃后它有出現(xiàn)，而且不能出現(xiàn)在蛇身上。 Chr(13)amp。 _ Int(gameinterval * gametime / 1000)amp。 ”請留下大名“, ”貪吃蛇“, ”無名氏“)Elsep = MsgBox(”Do you want to continue?“, vbYesNo, ”生命值“ amp。 Int(score)amp?！?amp。主要代碼如下：FileOpen(1, filelacation, )39。因此方便好多。()()End IfEnd Sub End Class[設(shè)計】此窗體用來調(diào)節(jié)蛇運動的快慢程度。，了解了鍵盤下所代表的代碼意義，之前一直使用的是select case keycode代碼，怎么也無法使其響應(yīng)。，解決的辦法就是不斷的進(jìn)行調(diào)試，修改。 在定義變量時我盡量定義其為全局變量和模塊級變量。 我想在游戲中添加一些音樂，并且用到了循環(huán)播放的代碼，但是至今我還是沒有想到如何能將播放中的音樂暫停。 當(dāng)我運行程序時，如果我點了界面上的某條線的話，蛇就不再響應(yīng)鍵盤事件了，必須使用ctrl+方向鍵才能使其響應(yīng)鍵盤事件。這段時間，常會向同學(xué)請教，也自覺地去借了些書看看，基本上完成了要求，但是功能、界面都還不是很完善，我會借助以后的時間繼續(xù)去加工的，我需要的是學(xué)以致用。這就是2個月的課程設(shè)計所教會我的。Close 1MsgBox “添加員工成功！”, vbOKOnly + vbInformation, “成功”jlNum = 0 If Len(Trim(filedir)) 0 ThenOpen filedir For Input As 1Do While Not EOF(1)Line Input 1, aIf Len(Trim(a)) 0 ThenjlNum = jlNum + 1End IfLoopClose 1ReDim Preserve ygList(jlNum)As YuanGongjlNum = 0Open filedir For Input As 1Do While Not EOF(1)jlNum = jlNum + 1Input 1, ygList(jlNum).ygnamgInput 1, ygList(jlNum).jibengzInput 1, ygList(jlNum).jingtieNextClose 1MsgBox “刪除員工成功！”, vbOKOnly + vbInformation, “成功”jlNum = 0 If Len(Trim(filedir)) 0 ThenOpen filedir For Input As 1Do While Not EOF(1)Line Input 1, aIf Len(Trim(a)) 0 ThenjlNum = jlNum + 1End IfLoopClose 1ReDim ygList(jlNum)As YuanGongjlNum = 0Open filedir For Input As 1Do While Not EOF(1)jlNum = jlNum + 1Input 1, ygList(jlNum).ygnamgInput 1, ygList(jlNum).jibengzInput 1, ygList(jlNum).jingtieInput 1, ygList(jlNum).gerensuiInput 1, ygList(jlNum).suidianfeiLoopClose 1loadData = True = False = False = True = True End If = “姓名” amp。 “津貼” amp。 “水電費” amp。 ygList(i).jibengz amp。 ygList(i).gerensui