⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 wubird.frm

📁 会飞的鸟,右击上发条,含全部源代码,在VB与WINXP上测试通过!
💻 FRM
📖 第 1 页 / 共 5 页
字号:
        lpPoint(19).Y = 116
        lpPoint(20).X = 40
        lpPoint(20).Y = 117
        lpPoint(21).X = 7
        lpPoint(21).Y = 117
        MaxPolygonPoints = 22
    ElseIf LegsNo = 3 Then
        lpPoint(0).X = 7
        lpPoint(0).Y = 116
        lpPoint(1).X = 7
        lpPoint(1).Y = 112
        lpPoint(2).X = 13
        lpPoint(2).Y = 107
        lpPoint(3).X = 17
        lpPoint(3).Y = 106
        lpPoint(4).X = 19
        lpPoint(4).Y = 105
        lpPoint(5).X = 22
        lpPoint(5).Y = 105
        lpPoint(6).X = 22
        lpPoint(6).Y = 101
        lpPoint(7).X = 18
        lpPoint(7).Y = 100
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 46
        lpPoint(14).Y = 103
        lpPoint(15).X = 51
        lpPoint(15).Y = 106
        lpPoint(16).X = 55
        lpPoint(16).Y = 110
        lpPoint(17).X = 55
        lpPoint(17).Y = 115
        lpPoint(18).X = 42
        lpPoint(18).Y = 115
        lpPoint(19).X = 42
        lpPoint(19).Y = 116
        lpPoint(20).X = 41
        lpPoint(20).Y = 117
        lpPoint(21).X = 8
        lpPoint(21).Y = 117
        MaxPolygonPoints = 22
    ElseIf LegsNo = 4 Then
        lpPoint(0).X = 8
        lpPoint(0).Y = 116
        lpPoint(1).X = 8
        lpPoint(1).Y = 112
        lpPoint(2).X = 14
        lpPoint(2).Y = 108
        lpPoint(3).X = 16
        lpPoint(3).Y = 106
        lpPoint(4).X = 21
        lpPoint(4).Y = 105
        lpPoint(5).X = 23
        lpPoint(5).Y = 105
        lpPoint(6).X = 23
        lpPoint(6).Y = 101
        lpPoint(7).X = 18
        lpPoint(7).Y = 100
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 46
        lpPoint(14).Y = 103
        lpPoint(15).X = 43
        lpPoint(15).Y = 102
        lpPoint(16).X = 41
        lpPoint(16).Y = 102
        lpPoint(17).X = 41
        lpPoint(17).Y = 104
        lpPoint(18).X = 45
        lpPoint(18).Y = 104
        lpPoint(19).X = 50
        lpPoint(19).Y = 107
        lpPoint(20).X = 54
        lpPoint(20).Y = 111
        lpPoint(21).X = 54
        lpPoint(21).Y = 116
        lpPoint(22).X = 43
        lpPoint(22).Y = 116
        lpPoint(23).X = 42
        lpPoint(23).Y = 117
        lpPoint(24).X = 9
        lpPoint(24).Y = 117
        MaxPolygonPoints = 25
    ElseIf LegsNo = 5 Then
        lpPoint(0).X = 9
        lpPoint(0).Y = 115
        lpPoint(1).X = 9
        lpPoint(1).Y = 111
        lpPoint(2).X = 13
        lpPoint(2).Y = 109
        lpPoint(3).X = 13
        lpPoint(3).Y = 108
        lpPoint(4).X = 18
        lpPoint(4).Y = 105
        lpPoint(5).X = 24
        lpPoint(5).Y = 103
        lpPoint(6).X = 24
        lpPoint(6).Y = 101
        lpPoint(7).X = 18
        lpPoint(7).Y = 100
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 46
        lpPoint(14).Y = 103
        lpPoint(15).X = 42
        lpPoint(15).Y = 102
        lpPoint(16).X = 40
        lpPoint(16).Y = 102
        lpPoint(17).X = 40
        lpPoint(17).Y = 105
        lpPoint(18).X = 44
        lpPoint(18).Y = 105
        lpPoint(19).X = 49
        lpPoint(19).Y = 108
        lpPoint(20).X = 53
        lpPoint(20).Y = 112
        lpPoint(21).X = 53
        lpPoint(21).Y = 117
        lpPoint(22).X = 19
        lpPoint(22).Y = 117
        lpPoint(23).X = 18
        lpPoint(23).Y = 116
        lpPoint(24).X = 10
        lpPoint(24).Y = 116
        MaxPolygonPoints = 25
    ElseIf LegsNo = 6 Then
        lpPoint(0).X = 9
        lpPoint(0).Y = 114
        lpPoint(1).X = 9
        lpPoint(1).Y = 110
        lpPoint(2).X = 12
        lpPoint(2).Y = 108
        lpPoint(3).X = 15
        lpPoint(3).Y = 105
        lpPoint(4).X = 21
        lpPoint(4).Y = 103
        lpPoint(5).X = 24
        lpPoint(5).Y = 103
        lpPoint(6).X = 24
        lpPoint(6).Y = 101
        lpPoint(7).X = 18
        lpPoint(7).Y = 100
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 46
        lpPoint(14).Y = 103
        lpPoint(15).X = 42
        lpPoint(15).Y = 102
        lpPoint(16).X = 40
        lpPoint(16).Y = 102
        lpPoint(17).X = 40
        lpPoint(17).Y = 106
        lpPoint(18).X = 44
        lpPoint(18).Y = 106
        lpPoint(19).X = 49
        lpPoint(19).Y = 109
        lpPoint(20).X = 53
        lpPoint(20).Y = 113
        lpPoint(21).X = 53
        lpPoint(21).Y = 118
        lpPoint(22).X = 19
        lpPoint(22).Y = 118
        lpPoint(23).X = 18
        lpPoint(23).Y = 116
        lpPoint(24).X = 18
        lpPoint(24).Y = 115
        lpPoint(25).X = 10
        lpPoint(25).Y = 115
        MaxPolygonPoints = 26
    ElseIf LegsNo = 7 Then
        lpPoint(0).X = 8
        lpPoint(0).Y = 113
        lpPoint(1).X = 8
        lpPoint(1).Y = 109
        lpPoint(2).X = 11
        lpPoint(2).Y = 107
        lpPoint(3).X = 14
        lpPoint(3).Y = 104
        lpPoint(4).X = 20
        lpPoint(4).Y = 102
        lpPoint(5).X = 23
        lpPoint(5).Y = 102
        lpPoint(6).X = 24
        lpPoint(6).Y = 101
        lpPoint(7).X = 18
        lpPoint(7).Y = 100
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 46
        lpPoint(14).Y = 103
        lpPoint(15).X = 42
        lpPoint(15).Y = 102
        lpPoint(16).X = 40
        lpPoint(16).Y = 102
        lpPoint(17).X = 41
        lpPoint(17).Y = 106
        lpPoint(18).X = 45
        lpPoint(18).Y = 106
        lpPoint(19).X = 50
        lpPoint(19).Y = 109
        lpPoint(20).X = 54
        lpPoint(20).Y = 113
        lpPoint(21).X = 54
        lpPoint(21).Y = 118
        lpPoint(22).X = 20
        lpPoint(22).Y = 118
        lpPoint(23).X = 19
        lpPoint(23).Y = 116
        lpPoint(24).X = 19
        lpPoint(24).Y = 114
        lpPoint(25).X = 9
        lpPoint(25).Y = 114
        MaxPolygonPoints = 26
    ElseIf LegsNo = 8 Then
        lpPoint(0).X = 7
        lpPoint(0).Y = 113
        lpPoint(1).X = 7
        lpPoint(1).Y = 109
        lpPoint(2).X = 10
        lpPoint(2).Y = 107
        lpPoint(3).X = 13
        lpPoint(3).Y = 104
        lpPoint(4).X = 19
        lpPoint(4).Y = 102
        lpPoint(5).X = 22
        lpPoint(5).Y = 102
        lpPoint(6).X = 23
        lpPoint(6).Y = 101
        lpPoint(7).X = 18
        lpPoint(7).Y = 100
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 46
        lpPoint(14).Y = 103
        lpPoint(15).X = 42
        lpPoint(15).Y = 102
        lpPoint(16).X = 40
        lpPoint(16).Y = 102
        lpPoint(17).X = 41
        lpPoint(17).Y = 106
        lpPoint(18).X = 45
        lpPoint(18).Y = 106
        lpPoint(19).X = 50
        lpPoint(19).Y = 109
        lpPoint(20).X = 54
        lpPoint(20).Y = 113
        lpPoint(21).X = 54
        lpPoint(21).Y = 118
        lpPoint(22).X = 20
        lpPoint(22).Y = 118
        lpPoint(23).X = 19
        lpPoint(23).Y = 116
        lpPoint(24).X = 19
        lpPoint(24).Y = 114
        lpPoint(25).X = 9
        lpPoint(25).Y = 114
        MaxPolygonPoints = 26
    ElseIf LegsNo = 9 Then
        lpPoint(0).X = 5
        lpPoint(0).Y = 114
        lpPoint(1).X = 5
        lpPoint(1).Y = 110
        lpPoint(2).X = 9
        lpPoint(2).Y = 107
        lpPoint(3).X = 13
        lpPoint(3).Y = 104
        lpPoint(4).X = 19
        lpPoint(4).Y = 103
        lpPoint(5).X = 20
        lpPoint(5).Y = 103
        lpPoint(6).X = 20
        lpPoint(6).Y = 101
        lpPoint(7).X = 18
        lpPoint(7).Y = 100
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 46
        lpPoint(14).Y = 103
        lpPoint(15).X = 42
        lpPoint(15).Y = 102
        lpPoint(16).X = 42
        lpPoint(16).Y = 106
        lpPoint(17).X = 46
        lpPoint(17).Y = 106
        lpPoint(18).X = 51
        lpPoint(18).Y = 109
        lpPoint(19).X = 55
        lpPoint(19).Y = 113
        lpPoint(20).X = 55
        lpPoint(20).Y = 118
        lpPoint(21).X = 20
        lpPoint(21).Y = 118
        lpPoint(22).X = 20
        lpPoint(22).Y = 115
        lpPoint(23).X = 6
        lpPoint(23).Y = 115
        MaxPolygonPoints = 24
    ElseIf LegsNo = 10 Then
        lpPoint(0).X = 5
        lpPoint(0).Y = 115
        lpPoint(1).X = 5
        lpPoint(1).Y = 111
        lpPoint(2).X = 9
        lpPoint(2).Y = 108
        lpPoint(3).X = 13
        lpPoint(3).Y = 105
        lpPoint(4).X = 19
        lpPoint(4).Y = 104
        lpPoint(5).X = 20
        lpPoint(5).Y = 104
        lpPoint(6).X = 20
        lpPoint(6).Y = 101
        lpPoint(7).X = 18
        lpPoint(7).Y = 100
        lpPoint(8).X = 14
        lpPoint(8).Y = 97
        lpPoint(9).X = 14
        lpPoint(9).Y = 93
        lpPoint(10).X = 50
        lpPoint(10).Y = 93
        lpPoint(11).X = 52
        lpPoint(11).Y = 96
        lpPoint(12).X = 52
        lpPoint(12).Y = 99
        lpPoint(13).X = 49
        lpPoint(13).Y = 103
        lpPoint(14).X = 46
        lpPoint(14).Y = 103
        lpPoint(15).X = 44
        lpPoint(15).Y = 103
        lpPoint(16).X = 44
        lpPoint(16).Y = 105
        lpPoint(17).X = 48
        lpPoint(17).Y = 105
        lpPoint(18).X = 53
        lpPoint(18).Y = 108
        lpPoint(19).X = 57
        lpPoint(19).Y = 112
        lpPoint(20).X = 57
        lpPoint(20).Y = 117
        lpPoint(21).X = 22
        lpPoint(21).Y = 117
        lpPoint(22).X = 22
        lpPoint(22).Y = 116
        lpPoint(23).X = 6
        lpPoint(23).Y = 116
        MaxPolygonPoints = 24
    End If
End Sub

Private Sub DoSetBottomHold()
    If LegsNo = 0 Then
        lpPoint(0).X = 28
        lpPoint(0).Y = 105
        lpPoint(1).X = 28
        lpPoint(1).Y = 101
        lpPoint(2).X = 35
        lpPoint(2).Y = 101
        lpPoint(3).X = 37
        lpPoint(3).Y = 99
        lpPoint(4).X = 38
        lpPoint(4).Y = 100
        lpPoint(5).X = 38
        lpPoint(5).Y = 104
        lpPoint(6).X = 35
        lpPoint(6).Y = 104
        lpPoint(7).X = 34
        lpPoint(7).Y = 105
        MaxPolygonPoints = 8
    ElseIf LegsNo = 1 Then
        lpPoint(0).X = 28
        lpPoint(0).Y = 105
        lpPoint(1).X = 28
        lpPoint(1).Y = 102
        lpPoint(2).X = 33
        lpPoint(2).Y = 102
        lpPoint(3).X = 37
        lpPoint(3).Y = 100
        lpPoint(4).X = 37
        lpPoint(4).Y = 103
        lpPoint(5).X = 30
        lpPoint(5).Y = 104
        lpPoint(6).X = 29
        lpPoint(6).Y = 105
        MaxPolygonPoints = 7
    ElseIf LegsNo = 2 Then
        lpPoint(0).X = 28
        lpPoint(0).Y = 105
        lpPoint(1).X = 28

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -