Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

爱情命题游戏

时 间:2014-03-17 17:58:05
作 者:张军军   ID:34951  城市:乌鲁木齐
摘 要: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群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助