1. VisualBasic / Говнокод #5202

    −100

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    96. 96
    97. 97
    98. 98
    Private Sub Combo1_Click()

Select Case Combo1.ListIndex

Case 0
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\RaZeR.jpg")
Case 1
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Serg.jpg")
Case 2
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Nikton.jpg")
Case 3
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Raider.jpg")
Case 4
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Andrew.jpg")
Case 5
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Gnum.jpg")
Case 6
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Iron Man.jpg")
Case 7
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Anakin.jpg")
Case 8
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Nuparu.jpg")
Case 9
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Deleted.jpg")
Case 10
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\LEGOlas.jpg")
Case 11
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Kit Fisto.jpg")
Case 12
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Banky.jpg")
Case 13
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Pazitiffniy.jpg")
Case 14
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\GenKen.jpg")
Case 15
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Dimanok.jpg")
Case 16
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Drakon.jpg")
Case 17
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\DJ Sim.jpg")
Case 18
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Obi-Van.jpg")
Case 19
enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\Vitalya.jpg")
Case 20
enemy1.Picture = LoadPicture("data/Rescaled/LukeSW.jpg")
Case 21
enemy1.Picture = LoadPicture("data/Rescaled/Smegorik.jpg")
Case 22
enemy1.Picture = LoadPicture("data/Rescaled/Vitalya.jpg")
Case 23
enemy1.Picture = LoadPicture("data/Rescaled/DJ Sim.jpg")
End Select


End Sub


Private Sub Combo2_Click()

Select Case Combo2.ListIndex

Case 0
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\RaZeR.jpg")
Case 1
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Serg.jpg")
Case 2
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Nikton.jpg")
Case 3
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Raider.jpg")
Case 4
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Andrew.jpg")
Case 5
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Gnum.jpg")
Case 6
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Iron Man.jpg")
Case 7
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Anakin.jpg")
Case 8
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Nuparu.jpg")
Case 9
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Deleted.jpg")
Case 10
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\LEGOlas.jpg")
Case 11
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Kit Fisto.jpg")
Case 12
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Banky.jpg")
Case 13
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Pazitiffniy.jpg")
Case 14
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\GenKen.jpg")
Case 15
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Dimanok.jpg")
Case 16
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\Drakon.jpg")
Case 17
enemy2.Picture = LoadPicture(App.Path & "\data\Rescaled\DJ Sim.jpg")

    Тот же источник, что и #5201. Загрузка картинок из тех самых комбобоксов. А ведь можно было enemy1.Picture = LoadPicture(App.Path & "\data\Rescaled\" & Combo1.SelectedItem & ".jpg").

    Запостил: RaZeR, 10 Января 2011

    Комментарии (5) RSS

    • ava Lure Of Chaos 10.01.2011 16:03 # −1

      сколько челов спалилось, а
      все одним дерьмом мазаны
      Ответить

      • ava RaZeR 10.01.2011 16:06 # 0

        Это юзернеймы с одного форума, они к этому не причастны, только заявки на участие в игре подавали :)
        Ответить

    • ava 3.14159265 10.01.2011 18:10 # +2

      интересно а кто это такой "\data\Rescaled\Vitalya.jpg"?
      одному мне кажется что там это (знаю что Пурурин)
      http://nyamo.org/svp/3d5cd383b9b93fe82aa70f7997f66fa9.jpg
      Ответить

    • ava anmiles 10.01.2011 20:24 # 0

      Классический китаизм! :)
      Ответить

    Добавить комментарий