wubird.frm

会飞的鸟,右击上发条,含全部源代码,在VB与WINXP上测试通过!

        lpPoint(1).Y = 102
        lpPoint(2).X = 29
        lpPoint(2).Y = 101
        lpPoint(3).X = 36
        lpPoint(3).Y = 101
        lpPoint(4).X = 36
        lpPoint(4).Y = 103
        lpPoint(5).X = 33
        lpPoint(5).Y = 103
        lpPoint(6).X = 32
        lpPoint(6).Y = 104
        lpPoint(7).X = 29
        lpPoint(7).Y = 104
        MaxPolygonPoints = 8
    ElseIf LegsNo = 3 Then
        lpPoint(0).X = 29
        lpPoint(0).Y = 104
        lpPoint(1).X = 29
        lpPoint(1).Y = 102
        lpPoint(2).X = 30
        lpPoint(2).Y = 101
        lpPoint(3).X = 35
        lpPoint(3).Y = 101
        lpPoint(4).X = 35
        lpPoint(4).Y = 103
        lpPoint(5).X = 32
        lpPoint(5).Y = 103
        lpPoint(6).X = 31
        lpPoint(6).Y = 104
        MaxPolygonPoints = 7
    ElseIf LegsNo = 4 Then
        lpPoint(0).X = 30
        lpPoint(0).Y = 105
        lpPoint(1).X = 30
        lpPoint(1).Y = 101
        lpPoint(2).X = 34
        lpPoint(2).Y = 101
        lpPoint(3).X = 34
        lpPoint(3).Y = 104
        lpPoint(4).X = 31
        lpPoint(4).Y = 104
        MaxPolygonPoints = 5
    ElseIf LegsNo = 5 Then
        lpPoint(0).X = 31
        lpPoint(0).Y = 104
        lpPoint(1).X = 31
        lpPoint(1).Y = 101
        lpPoint(2).X = 33
        lpPoint(2).Y = 101
        lpPoint(3).X = 33
        lpPoint(3).Y = 104
        lpPoint(4).X = 32
        lpPoint(4).Y = 104
        MaxPolygonPoints = 5
    ElseIf LegsNo = 6 Then
        lpPoint(0).X = 31
        lpPoint(0).Y = 103
        lpPoint(1).X = 31
        lpPoint(1).Y = 101
        lpPoint(2).X = 33
        lpPoint(2).Y = 101
        lpPoint(3).X = 33
        lpPoint(3).Y = 103
        lpPoint(4).X = 32
        lpPoint(4).Y = 103
        MaxPolygonPoints = 5
    ElseIf LegsNo = 7 Then
        lpPoint(0).X = 30
        lpPoint(0).Y = 102
        lpPoint(1).X = 30
        lpPoint(1).Y = 101
        lpPoint(2).X = 34
        lpPoint(2).Y = 101
        lpPoint(3).X = 34
        lpPoint(3).Y = 102
        MaxPolygonPoints = 4
    ElseIf LegsNo = 8 Then
        lpPoint(0).X = 29
        lpPoint(0).Y = 102
        lpPoint(1).X = 29
        lpPoint(1).Y = 101
        lpPoint(2).X = 34
        lpPoint(2).Y = 101
        lpPoint(3).X = 34
        lpPoint(3).Y = 102
        MaxPolygonPoints = 4
    ElseIf LegsNo = 9 Then
        lpPoint(0).X = 27
        lpPoint(0).Y = 103
        lpPoint(1).X = 27
        lpPoint(1).Y = 101
        lpPoint(2).X = 35
        lpPoint(2).Y = 101
        lpPoint(3).X = 35
        lpPoint(3).Y = 105
        lpPoint(4).X = 33
        lpPoint(4).Y = 105
        lpPoint(5).X = 31
        lpPoint(5).Y = 103
        MaxPolygonPoints = 6
    ElseIf LegsNo = 10 Then
        lpPoint(0).X = 27
        lpPoint(0).Y = 104
        lpPoint(1).X = 27
        lpPoint(1).Y = 101
        lpPoint(2).X = 33
        lpPoint(2).Y = 101
        lpPoint(3).X = 36
        lpPoint(3).Y = 99
        lpPoint(4).X = 37
        lpPoint(4).Y = 100
        lpPoint(5).X = 37
        lpPoint(5).Y = 105
        lpPoint(6).X = 32
        lpPoint(6).Y = 105
        lpPoint(7).X = 31
        lpPoint(7).Y = 104
        MaxPolygonPoints = 8
    End If
End Sub

Private Sub DoSetKey()
    If KeyNo = 0 Then
        lpPoint(0).X = 52
        lpPoint(0).Y = 91
        lpPoint(1).X = 52
        lpPoint(1).Y = 88
        lpPoint(2).X = 55
        lpPoint(2).Y = 88
        lpPoint(3).X = 55
        lpPoint(3).Y = 85
        lpPoint(4).X = 56
        lpPoint(4).Y = 80
        lpPoint(5).X = 60
        lpPoint(5).Y = 77
        lpPoint(6).X = 65
        lpPoint(6).Y = 77
        lpPoint(7).X = 69
        lpPoint(7).Y = 81
        lpPoint(8).X = 69
        lpPoint(8).Y = 86
        lpPoint(9).X = 66
        lpPoint(9).Y = 89
        lpPoint(10).X = 66
        lpPoint(10).Y = 90
        lpPoint(11).X = 69
        lpPoint(11).Y = 93
        lpPoint(12).X = 69
        lpPoint(12).Y = 98
        lpPoint(13).X = 66
        lpPoint(13).Y = 102
        lpPoint(14).X = 58
        lpPoint(14).Y = 102
        lpPoint(15).X = 55
        lpPoint(15).Y = 98
        lpPoint(16).X = 55
        lpPoint(16).Y = 92
        MaxPolygonPoints = 17
    ElseIf KeyNo = 1 Then
        lpPoint(0).X = 52
        lpPoint(0).Y = 92
        lpPoint(1).X = 52
        lpPoint(1).Y = 88
        lpPoint(2).X = 55
        lpPoint(2).Y = 88
        lpPoint(3).X = 55
        lpPoint(3).Y = 83
        lpPoint(4).X = 56
        lpPoint(4).Y = 81
        lpPoint(5).X = 60
        lpPoint(5).Y = 80
        lpPoint(6).X = 63
        lpPoint(6).Y = 80
        lpPoint(7).X = 66
        lpPoint(7).Y = 81
        lpPoint(8).X = 68
        lpPoint(8).Y = 84
        lpPoint(9).X = 68
        lpPoint(9).Y = 87
        lpPoint(10).X = 66
        lpPoint(10).Y = 89
        lpPoint(11).X = 70
        lpPoint(11).Y = 93
        lpPoint(12).X = 70
        lpPoint(12).Y = 96
        lpPoint(13).X = 67
        lpPoint(13).Y = 99
        lpPoint(14).X = 64
        lpPoint(14).Y = 100
        lpPoint(15).X = 60
        lpPoint(15).Y = 100
        lpPoint(16).X = 56
        lpPoint(16).Y = 97
        lpPoint(17).X = 56
        lpPoint(17).Y = 93
        lpPoint(18).X = 55
        lpPoint(18).Y = 92
        MaxPolygonPoints = 19
    ElseIf KeyNo = 2 Then
        lpPoint(0).X = 52
        lpPoint(0).Y = 92
        lpPoint(1).X = 52
        lpPoint(1).Y = 88
        lpPoint(2).X = 54
        lpPoint(2).Y = 88
        lpPoint(3).X = 55
        lpPoint(3).Y = 85
        lpPoint(4).X = 57
        lpPoint(4).Y = 83
        lpPoint(5).X = 65
        lpPoint(5).Y = 83
        lpPoint(6).X = 67
        lpPoint(6).Y = 85
        lpPoint(7).X = 67
        lpPoint(7).Y = 87
        lpPoint(8).X = 66
        lpPoint(8).Y = 88
        lpPoint(9).X = 66
        lpPoint(9).Y = 89
        lpPoint(10).X = 68
        lpPoint(10).Y = 89
        lpPoint(11).X = 70
        lpPoint(11).Y = 91
        lpPoint(12).X = 70
        lpPoint(12).Y = 94
        lpPoint(13).X = 66
        lpPoint(13).Y = 97
        lpPoint(14).X = 59
        lpPoint(14).Y = 97
        lpPoint(15).X = 56
        lpPoint(15).Y = 94
        lpPoint(16).X = 56
        lpPoint(16).Y = 92
        MaxPolygonPoints = 17
    ElseIf KeyNo = 3 Then
        lpPoint(0).X = 52
        lpPoint(0).Y = 92
        lpPoint(1).X = 52
        lpPoint(1).Y = 88
        lpPoint(2).X = 57
        lpPoint(2).Y = 86
        lpPoint(3).X = 65
        lpPoint(3).Y = 86
        lpPoint(4).X = 67
        lpPoint(4).Y = 88
        lpPoint(5).X = 68
        lpPoint(5).Y = 88
        lpPoint(6).X = 70
        lpPoint(6).Y = 90
        lpPoint(7).X = 70
        lpPoint(7).Y = 91
        lpPoint(8).X = 68
        lpPoint(8).Y = 93
        lpPoint(9).X = 65
        lpPoint(9).Y = 94
        lpPoint(10).X = 59
        lpPoint(10).Y = 94
        lpPoint(11).X = 57
        lpPoint(11).Y = 93
        lpPoint(12).X = 56
        lpPoint(12).Y = 92
        MaxPolygonPoints = 13
    ElseIf KeyNo = 4 Then
        lpPoint(0).X = 52
        lpPoint(0).Y = 92
        lpPoint(1).X = 52
        lpPoint(1).Y = 88
        lpPoint(2).X = 55
        lpPoint(2).Y = 88
        lpPoint(3).X = 57
        lpPoint(3).Y = 86
        lpPoint(4).X = 68
        lpPoint(4).Y = 86
        lpPoint(5).X = 70
        lpPoint(5).Y = 88
        lpPoint(6).X = 70
        lpPoint(6).Y = 89
        lpPoint(7).X = 67
        lpPoint(7).Y = 92
        lpPoint(8).X = 65
        lpPoint(8).Y = 92
        lpPoint(9).X = 63
        lpPoint(9).Y = 94
        lpPoint(10).X = 57
        lpPoint(10).Y = 94
        lpPoint(11).X = 55
        lpPoint(11).Y = 92
        MaxPolygonPoints = 12
    ElseIf KeyNo = 5 Then
        lpPoint(0).X = 52
        lpPoint(0).Y = 92
        lpPoint(1).X = 52
        lpPoint(1).Y = 88
        lpPoint(2).X = 55
        lpPoint(2).Y = 88
        lpPoint(3).X = 56
        lpPoint(3).Y = 85
        lpPoint(4).X = 58
        lpPoint(4).Y = 83
        lpPoint(5).X = 67
        lpPoint(5).Y = 83
        lpPoint(6).X = 70
        lpPoint(6).Y = 85
        lpPoint(7).X = 70
        lpPoint(7).Y = 88
        lpPoint(8).X = 67
        lpPoint(8).Y = 91
        lpPoint(9).X = 67
        lpPoint(9).Y = 94
        lpPoint(10).X = 64
        lpPoint(10).Y = 97
        lpPoint(11).X = 58
        lpPoint(11).Y = 97
        lpPoint(12).X = 55
        lpPoint(12).Y = 94
        lpPoint(13).X = 55
        lpPoint(13).Y = 93
        lpPoint(14).X = 54
        lpPoint(14).Y = 92
        MaxPolygonPoints = 15
    ElseIf KeyNo = 6 Then
        lpPoint(0).X = 52
        lpPoint(0).Y = 92
        lpPoint(1).X = 52
        lpPoint(1).Y = 88
        lpPoint(2).X = 54
        lpPoint(2).Y = 88
        lpPoint(3).X = 56
        lpPoint(3).Y = 84
        lpPoint(4).X = 56
        lpPoint(4).Y = 82
        lpPoint(5).X = 59
        lpPoint(5).Y = 80
        lpPoint(6).X = 66
        lpPoint(6).Y = 80
        lpPoint(7).X = 70
        lpPoint(7).Y = 83
        lpPoint(8).X = 70
        lpPoint(8).Y = 86
        lpPoint(9).X = 69
        lpPoint(9).Y = 87
        lpPoint(10).X = 68
        lpPoint(10).Y = 89
        lpPoint(11).X = 67
        lpPoint(11).Y = 90
        lpPoint(12).X = 68
        lpPoint(12).Y = 93
        lpPoint(13).X = 68
        lpPoint(13).Y = 95
        lpPoint(14).X = 67
        lpPoint(14).Y = 96
        lpPoint(15).X = 67
        lpPoint(15).Y = 97
        lpPoint(16).X = 63
        lpPoint(16).Y = 100
        lpPoint(17).X = 60
        lpPoint(17).Y = 100
        lpPoint(18).X = 58
        lpPoint(18).Y = 99
        lpPoint(19).X = 55
        lpPoint(19).Y = 96
        lpPoint(20).X = 55
        lpPoint(20).Y = 92
        MaxPolygonPoints = 21
    End If
End Sub

Private Sub DoSetKeyHold1()
    If KeyNo = 0 Then
        lpPoint(0).X = 60
        lpPoint(0).Y = 86
        lpPoint(1).X = 60
        lpPoint(1).Y = 84
        lpPoint(2).X = 61
        lpPoint(2).Y = 83
        lpPoint(3).X = 63
        lpPoint(3).Y = 83
        lpPoint(4).X = 64
        lpPoint(4).Y = 84
        lpPoint(5).X = 64
        lpPoint(5).Y = 86
        lpPoint(6).X = 63
        lpPoint(6).Y = 87
        lpPoint(7).X = 61
        lpPoint(7).Y = 87
        MaxPolygonPoints = 8
    ElseIf KeyNo = 1 Then
        lpPoint(0).X = 60
        lpPoint(0).Y = 86
        lpPoint(1).X = 60
        lpPoint(1).Y = 85
        lpPoint(2).X = 63
        lpPoint(2).Y = 85
        lpPoint(3).X = 63
        lpPoint(3).Y = 86
        MaxPolygonPoints = 4
    ElseIf KeyNo = 6 Then
        lpPoint(0).X = 60
        lpPoint(0).Y = 86
        lpPoint(1).X = 60
        lpPoint(1).Y = 85
        lpPoint(2).X = 61
        lpPoint(2).Y = 84
        lpPoint(3).X = 64
        lpPoint(3).Y = 84
        lpPoint(4).X = 64
        lpPoint(4).Y = 86
        lpPoint(5).X = 63
        lpPoint(5).Y = 87
        lpPoint(6).X = 61
        lpPoint(6).Y = 87
        MaxPolygonPoints = 7
    End If
End Sub

Private Sub DoSetKeyHold2()
    If KeyNo = 0 Then
        lpPoint(0).X = 60
        lpPoint(0).Y = 97
        lpPoint(1).X = 60
        lpPoint(1).Y = 95
        lpPoint(2).X = 61
        lpPoint(2).Y = 94
        lpPoint(3).X = 63
        lpPoint(3).Y = 94
        lpPoint(4).X = 64
        lpPoint(4).Y = 95
        lpPoint(5).X = 64
        lpPoint(5).Y = 97
        lpPoint(6).X = 63
        lpPoint(6).Y = 98
        lpPoint(7).X = 61
        lpPoint(7).Y = 98
        MaxPolygonPoints = 8
    ElseIf KeyNo = 1 Then
        lpPoint(0).X = 61
        lpPoint(0).Y = 96
        lpPoint(1).X = 61
        lpPoint(1).Y = 94
        lpPoint(2).X = 64
        lpPoint(2).Y = 94
        lpPoint(3).X = 64
        lpPoint(3).Y = 96
        MaxPolygonPoints = 4
    ElseIf KeyNo = 6 Then
        lpPoint(0).X = 59
        lpPoint(0).Y = 95
        lpPoint(1).X = 59
        lpPoint(1).Y = 94
        lpPoint(2).X = 63
        lpPoint(2).Y = 94
        lpPoint(3).X = 63
        lpPoint(3).Y = 96
        lpPoint(4).X = 60
        lpPoint(4).Y = 96
        MaxPolygonPoints = 5
    End If
End Sub