【正文】
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é)號(hào)like“ + Trim()End If = ”Provider=。 ”where“ amp。創(chuàng)建Delte CommandDim delmand As New (”DELETE * from XS_KC where 序號(hào)=?“, objConn)(”序號(hào)“, , 6, ”序號(hào)“) = delmand39。關(guān)閉數(shù)據(jù)集39。顯示課程號(hào) = (3). 39。修改學(xué)號(hào)().Item(1)= 39。更新并刷新顯示End IfEnd SubPrivate Sub btnDelete_Click(ByVal sender As , ByVal e As )Handles Dim response As MsgBoxResultresponse = MsgBox(”確定要?jiǎng)h除記錄嗎?“, 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八.參考文庫(kù)百度文庫(kù),百度知道第四篇:vb課程設(shè)計(jì)Visual Basic課程設(shè)計(jì)報(bào)告題目1: 貪吃蛇 難度:**** 題目2: 難度: 指導(dǎo)教師:姓 名: 學(xué) 號(hào): 專 業(yè): 班 級(jí): 學(xué) 院:日 期:目錄題目簡(jiǎn)介...................................................................................................錯(cuò)誤!未定義書簽。當(dāng)蛇的頭撞到障礙物時(shí)或碰到自己身體時(shí),游戲結(jié)束。如果運(yùn)動(dòng)過(guò)程中,其頭部碰到障礙物或自己,則被撞死,游戲結(jié)束。圖5 為了使效果更好,我加了背景音樂(lè)和速度控制。首先我們要將背景網(wǎng)格和蛇身畫出來(lái),由于受到了動(dòng)態(tài)添加控件的啟發(fā),我用了powerpacks中的ovalshape來(lái)構(gòu)造蛇身,lineshape來(lái)構(gòu)造線,為了滿足蛇的身體長(zhǎng)長(zhǎng),用到了數(shù)組。蛇的身體Public word(4)As LabelImports Public a(num)As OvalShape ‘a(chǎn)()為定義蛇身的數(shù)組,變量num用來(lái)記錄蛇身個(gè)數(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 然后我們可以來(lái)設(shè)置食物來(lái)讓蛇吃,我用rectangleshape控件來(lái)制造食物,就像和畫出蛇身一樣寫,但是每當(dāng)被吃后它有出現(xiàn),而且不能出現(xiàn)在蛇身上。 Chr(13)amp。 _ Int(gameinterval * gametime / 1000)amp。 ”請(qǐng)留下大名“, ”貪吃蛇“, ”無(wú)名氏“)Elsep = MsgBox(”Do you want to continue?“, vbYesNo, ”生命值“ amp。 Int(score)amp。” amp。主要代碼如下:FileOpen(1, filelacation, )39。因此方便好多。()()End IfEnd Sub End Class[設(shè)計(jì)】此窗體用來(lái)調(diào)節(jié)蛇運(yùn)動(dòng)的快慢程度。,了解了鍵盤下所代表的代碼意義,之前一直使用的是select case keycode代碼,怎么也無(wú)法使其響應(yīng)。,解決的辦法就是不斷的進(jìn)行調(diào)試,修改。 在定義變量時(shí)我盡量定義其為全局變量和模塊級(jí)變量。 我想在游戲中添加一些音樂(lè),并且用到了循環(huán)播放的代碼,但是至今我還是沒(méi)有想到如何能將播放中的音樂(lè)暫停。 當(dāng)我運(yùn)行程序時(shí),如果我點(diǎn)了界面上的某條線的話,蛇就不再響應(yīng)鍵盤事件了,必須使用ctrl+方向鍵才能使其響應(yīng)鍵盤事件。這段時(shí)間,常會(huì)向同學(xué)請(qǐng)教,也自覺(jué)地去借了些書看看,基本上完成了要求,但是功能、界面都還不是很完善,我會(huì)借助以后的時(shí)間繼續(xù)去加工的,我需要的是學(xué)以致用。這就是2個(gè)月的課程設(shè)計(jì)所教會(huì)我的。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。 “水電費(fèi)” amp。 ygList(i).jibengz amp。 ygList(i).gerensui