好心人士:

Question

Private Sub Command1_Click()
    'ClsScreen
    Draw 291, 205, 2
    Form1.Picture1.Refresh
End SubPrivate Sub Form_Load()
    NewGamePut
End SubPrivate Sub Help1_Click()
    Load Form5
    Form5.Show
End Sub
Private Sub Help2_Click()
    Load Form6
    Form6.Show 1
End Sub
Private Sub Label1_Click()
    Form1.Option1.Value = True
End Sub
Private Sub Label2_Click()
    Form1.Option2.Value = True
End SubPrivate Sub Label3_Click()
    Form1.Option3.Value = True
End SubPrivate Sub Label4_Click()
    Form1.Option4.Value = True
End SubPrivate Sub Label5_Click()
    Form1.Option5.Value = True
End SubPrivate Sub Label6_Click()
    Form1.Option6.Value = True
End SubPrivate Sub Label7_Click()
    Form1.Option7.Value = True
End Sub
'开始新游戏
Private Sub NewGame_Click()
    NewGamePut
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Lost_users(1) = 1 Then   '如果玩家还未爆
        If y > 295 And y < 391 Then
            If Button = 1 Then
                Select Case x
                    Case 130 To 201   '第一张牌
                        If Sp = 0 Then UserShowCards 1: Exit Sub
                        If Sp = 1 Then UserGetCards 1: Exit Sub
                    Case 205 To 276   '第二张牌
                        If Sp = 0 Then UserShowCards 2: Exit Sub
                        If Sp = 2 Then UserGetCards 2: Exit Sub
                    Case 280 To 351   '第三张牌
                        If Sp = 0 Then UserShowCards 3: Exit Sub
                        If Sp = 3 Then UserGetCards 3: Exit Sub
                    Case 355 To 426   '第四张牌
                        If Sp = 0 Then UserShowCards 4: Exit Sub
                        If Sp = 4 Then UserGetCards 4: Exit Sub
                End Select
            End If
        End If
    End If
    '---------------------------------------------------------------------
    'If Lost_users(1) = 1 Then   '如果玩家还未爆
        'If y > 295 And y < 391 Then
        '    If x > 130 And x < 201 Then
        '        If Button = 1 Then
        '            '玩家手中的第一张牌
        '            If Sp = 0 Then UserShowCards 1: Exit Sub
        '            If Sp = 1 Then UserGetCards 1: Exit Sub
        '        End If
        '    End If
        '    If x > 205 And x < 276 Then
        '        '玩家手中的第二张牌
        '        If Button = 1 Then
        '            If Sp = 0 Then UserShowCards 2: Exit Sub
        '            If Sp = 2 Then UserGetCards 2: Exit Sub
        '        End If
        '    End If
        '    If x > 280 And x < 351 Then
        '        '玩家手中的第三张牌
        '        If Button = 1 Then
        '            If Sp = 0 Then UserShowCards 3: Exit Sub
        '            If Sp = 3 Then UserGetCards 3: Exit Sub
        '        End If
        '    End If
        '    If x > 355 And x < 426 Then
        '        If Button = 1 Then
        '            '玩家手中的第四张牌
        '            If Sp = 0 Then UserShowCards 4: Exit Sub
        '            If Sp = 4 Then UserGetCards 4: Exit Sub
        '        End If
        '    End If
        'End If
        '---------------------------------------------------------------------
    'End If
End Sub
Private Sub quit_Click()
    End
End Sub