爱情命题游戏

时　间: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源码网店