爱情命题游戏-张军军
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


爱情命题游戏

发表时间:2014/3/17 17:58:05 评论(0) 浏览(4741)  评论 | 加入收藏 | 复制
   
摘 要:access爱情命题的小游戏
正 文:
Option Compare Database
Private Sub Command9_Click()
If IsNull(第一数据.Value) Then
    Text13.Value = "主角不能为空"
    Text13.ForeColor = vbRed
    Text13.FontName = "宋体"
ElseIf (第一数据.Value = "我" And 第二数据.Value = "你") Then
   Text13.Value = "别迷恋哥,哥只是个传说"
   Text13.ForeColor = vbBlue
   Text13.FontName = "仿宋"
ElseIf (第一数据.Value = "你" And 第二数据.Value = "我") Then
   Text13.Value = "碰出爱情火花"
   Text13.ForeColor = vbBlue
   Text13.FontName = "仿宋"
ElseIf (第一数据.Value <> "我" or 第二数据.Value <> "你") or (第一数据.Value <> "你" or 第二数据.Value <> "我") Then
    Data2 = MsgBox("提示:只有“我”和“你”一起才能玩这个游戏")
 End If
End Sub
Private Sub Command12_Click()
If IsNull(第一数据.Value) Then
    Text13.Value = "主角不能为空"
    Text13.ForeColor = vbRed
    Text13.FontName = "宋体"
ElseIf (第一数据.Value = "我" And 第二数据.Value = "你") Then
   Text13.Value = "一个巴掌扇死你"
   Text13.ForeColor = vbBlue
   Text13.FontName = "仿宋"
ElseIf (第一数据.Value = "你" And 第二数据.Value = "我") Then
Text13.Value = "借过"
   Text13.ForeColor = vbBlue
   Text13.FontName = "仿宋"
ElseIf (第一数据.Value <> "我" or 第二数据.Value <> "你") or (第一数据.Value <> "你" or 第二数据.Value <> "我") Then
    Data2 = MsgBox("你妹的,会玩不?")
    End If
End Sub

Access软件网交流QQ群(群号:198465573)
 
 相关文章
雷电—太空射击游戏(excel作品)   【Access软件网整理  2008/10/20】
江羽排字智力游戏(源码)  【江羽  2009/10/28】
【益智游戏】access版老虎过河游戏-算出答案的朋友请跟帖回复:...  【黄冏孛  2011/11/8】
【Excel智力考题游戏】--青蛙互换位置  【麥田  2012/1/2】
【Access小品】乡村爱情故事--计划生育统计管理系统示例  【煮江品茶  2013/2/25】
扒一扒大佬食过的“言”:马云饿死不做游戏  【IT商业新闻网  2014/1/9】
常见问答
技术分类
相关资源
文章搜索
关于作者

张军军

文章分类

文章存档

友情链接