vb吐槽班05 完了,这节目就这么毁了

时间:2021-11-14 18:56:00

      K:啊。。。这个暑假也完了呐~

   G:真快啊,真是烦躁啊,上了年纪以后,一年过得实在是太快了。照这样下去,变成大叔的时候,一年不就像F1赛车从身边开过那样快了么。

   K:我还顶得住~

   G:不不,其实我老年化的速度已经和本约翰逊跑的一样快了。会来的哦,本。你们不要以为很年轻就沾沾自喜,那样的话,本马上就会来的哦!

   K:真的吗,本会来的吗?比起本我更喜欢卡尔呢,那样更有活力~

   G:总之,最重要的是又过了一个充实的暑假。。。

   某眼镜:喂!!!暑假还没过去啊喂!!!现在才20多号!!!话说怎么又用这个对话来拖时间!!!

   G:因为这个是可以整个搬运的桥段嘛。

   K:我倒是听说这次是有人请我们来主持节目的呐。

   某眼镜:为什么来别的节目还是用拖时间的段子啊!!!

   G:真是的,刚刚才拍完剧场版,想着好好要休息一段时间,然后明年的时候再发布会上说:“完结篇什么的是骗人的!银魂动画再开!”一定会有很高的人气的,然后就会有很多赞助,那样我们的预算就不紧张了嘛。

   某眼镜:喂!!!不要在这里说那么危险的话啊!!!拜托你们好好主持节目啊喂!!!

   G:是~是~这个节目是。。。嗯。。。吐槽班?阿勒?我们什么时候接过这个节目的?还有这个新八唧水平的俗气名字是几个意思?

   某眼镜:名字俗气了真是对不起你了。。。什么叫我的水平啊!

   K:这个节目是关于什么的呐?

   G:诶。。。吐槽班。。。大概就是一边吃东西,一边看看电影这种感觉吧。

   K:哦~那我要看小时代~

   某眼镜:喂!!!好好看剧本啊!!!还有为什么我这里还是眼镜啊!从上一篇被删掉的草稿我就是眼镜了,给我改成和他们一样啊魂淡!!!

   G:按照剧本上写的。。。首先是播出题目。。。


       不做死就不会死


   G:好!

   X:好你个头!!!这个题目不是废掉了吗!和上边的题目都不一样啊喂!!!

   G:好了好了~不要在意这些细节嘛,挺好的一个题目人扔掉会浪费的嘛,反正看这个节目的也都是把鼠标“刷~~~”的一下拉到后面,前面这种东西不会有人看的啦~

   X:会有人看的哦,真的会有人看的哦,真的真的会有人看的哦。。。

   G:然后是。。。复制。。。粘贴。。。

'不做死就不会死

   

   G:哇!字体变了诶!

   X:喂!!!好好看剧本!!!这里要是让你粘代码啊!!!话说你对着个题目是有多大的执念啊!!!

   K:Gin酱,让我来试试,复制。。。粘贴代码。。。

'代码

   

   X:喂!!!你们纯粹是来捣乱的吧!!!这个节目会停播的!!!会被csdn查水表的!!!

   G:吵死了呐,一直都在那里说个不停,有那时间还不快过来帮忙!

        If mrc.RecordCount = 1 Then
'如果只有一条记录时,删除之后提示,并且使按钮不可用
mrc.Delete

MsgBox "没有记录", vbOKOnly + vbExclamation, "警告"

txtClassno.Text = ""
comboGrade.Text = ""
txtDirector.Text = ""
txtClassroom.Text = ""

cmdFirst.Enabled = False
cmdPrevious.Enabled = False
cmdLast.Enabled = False
cmdNext.Enabled = False
cmdUpdate.Enabled = False
cmdCancel.Enabled = False
cmdDelete.Enabled = False
cmdModify.Enabled = False
End If

     K:(⊙o⊙)哦,原来是这个呐~

   G:区区新吧唧竟然也懂得这么难懂的东西,果然是Gin桑我教导有方~

   X:完全没有一毛钱的关系。。。

   G:哦,下面是台词:“在删除之前用Recordcount判断一下是否是最后一条,是就直接删掉,然后锁定下面的按钮。”喂喂。。。哪里有按钮了啊喂,下面的按钮。。。

   X:喂!不要按啊,按下去就又会和上次一样删掉草稿的啊!

   K:后面还有台词呐。“因为删除后会出现数据为空的情况,所以在载入窗体的时候,也要判断一下是或否为空。”哦~又是粘贴代码呐,这次让我来,一定不会有问题的!

   X:让你来才是最大的问题。。。


Private Sub Form_Load()
'载入窗体,使修改不可用,显示第一条数据
Dim txtSQL As String
Dim Msgtext As String


txtClassno.Enabled = False
comboGrade.Enabled = False
txtDirector.Enabled = False
txtClassroom.Enabled = False
cmdUpdate.Enabled = False
cmdCancel.Enabled = False

txtSQL = "SELECT * FROM class_info"
Set mrc = ExecuteSQL(txtSQL, Msgtext)

If mrc.RecordCount = 0 Then
'如果没有记录,提示并使按钮不可用
MsgBox "没有记录", vbOKOnly + vbExclamation, "警告"

cmdFirst.Enabled = False
cmdPrevious.Enabled = False
cmdLast.Enabled = False
cmdNext.Enabled = False
cmdUpdate.Enabled = False
cmdCancel.Enabled = False
cmdDelete.Enabled = False
cmdModify.Enabled = False
Exit Sub

Else
'显示第一条记录
mrc.MoveFirst
Call viewData
mybookmark = mrc.Bookmark
mcclean = True
End If
End Sub

     G:好的,还有一段就可以去吃饭了,喂~导演~我的盒饭要鸡腿啊~

   X:先把节目主持完啊喂!

   K:这个。。。下面是不重复课程。。。

Private Sub cmdAdd_Click()
Dim Check As Integer
'检查是否重复
If listAllcourse.ListIndex <> -1 Then
For Check = 0 To listSelectcourse.ListCount - 1
'检查输入的课程是否有重复,如果有提示并退出,没有则添加
If listAllcourse.List(listAllcourse.ListIndex) = listSelectcourse.List(Check) Then
MsgBox "课程重复", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
Next Check

listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex) '向课程中添加已经选中的课程
End If
End Sub

   

   X:啊,学的很快嘛~

   G:好的,后面的台词是。。。呃。。。后面的台词呢?剧本到这就没了?

   K: 我记得给我们剧本的时候,导演说的是从这里让我们自己发挥的,随随便便的写几句话然后就可以开始播放ED了。

   X: 这是什么随随便便的节目。。。话说哪有ED可以播放啊。。。

   G:好,既然这样。这期吐槽班就到这里了,欢迎收看,我们是万事屋。。。OK,收工收工,喂,要去哪里领工资啊。啊,对了鸡腿准备好了吧。

   K: 我要两个~

   X: 完了。。。会被导演追杀的。。。


以上

PS:看不懂的就算了,看代码吧。。。

PS2:致敬最爱的银魂

PS3:今天真的有鸡腿吃哦~~~

PS4。。。  

X:有完没完啊喂!!!!