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

    −106

    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
    Всякий раз наводя курсор на кнопку "Пуск" в Windows 7 вы видели как она менялась. 
И вы наверно думали: а как реолизовать такой эффект в VB6? Давайте попробуем
Код:

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("C:Безымянный.bmp") ' при наведении курсора на имейдж в него загрузится картинка
End Sub

Ну теперь запускаем. Чтож мы видим? Навели курсор - картинка в имейдже измнилась.
 Но ведь она должна изменятся обратно при отведении курсора. Но почему-то MuseMove этого не поддерживает. 
Тогда придётся втянуть в это дело форму. Наведением курсора на форму мы будем имитировать отведение курсора от имейджа.

Вот код вместе с первым примером. 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("C:Безымянный1.bmp")' при наведении курсора на форму в имейдж загрузится картинка которая была раньше
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("C:Безымянный.bmp")' при наведении курсора на имейдж в него загрузится картинка
End Sub

    Еще пара таких кодов, и мне начнет нравиться Борис М.
    А че, интересный парень.

    Запостил: Stertor, 11 Сентября 2013

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

    • ava tirinox 12.09.2013 00:37 # +3

      Где мой дробовик!?
      Ответить

    • ava bormand 12.09.2013 05:07 # 0

      > Наведением курсора на форму мы будем имитировать отведение курсора от имейджа.
      Пиздец. Просто пиздец. Неужели в vb нету ивентов на mouse_enter/mouse_leave?
      Ответить

      • ava kegdan 12.09.2013 05:34 # 0

        есть естественно, но они для избранных. я даже уверен, что у vb хватит памяти сохранить 2 картинки что не грузить их каждый раз, но се ля ви
        Ответить

        • ava bormand 12.09.2013 05:36 # −2

          > я даже уверен, что у vb хватит памяти сохранить 2 картинки что не грузить их каждый раз
          А я даже уверен, что paint умеет называть файлы по-другому, а не только Безымянный и БезымянныйN ;)
          Ответить

          • ava kegdan 12.09.2013 05:37 # −4

            как раз паинт умеет только безымянныйN, переименовать просто ума не хватило)
            Ответить

            • ava bormand 12.09.2013 05:51 # −2

              > переименовать просто ума не хватило
              Проводником?! О_о. Там же вроде есть "сохранить как". Да и при первом сохранении он, емнип, имя и путь спрашивал...
              Ответить

              • ava kegdan 12.09.2013 05:53 # 0

                мы имеем дело с "особым" человеком. Видимо машина сказала ему "Может безымянныйN?" и он не смог отказать
                Ответить

      • ava 3.14159265 12.09.2013 15:55 # 0

        Емнип только MouseMove, MouseUp, MouseDown.
        Там вообще много чего нету, а число нативных компонентов крайне убого по сравнению даже с той же дельфей.
        Ну всегда есть winapi и всякие WindowFromPoint.
        Ответить

        • ava Stertor 12.09.2013 16:24 # 0

          Если прикрутить к таврии кузов от 600, она не перестанет быть таврией - это я к тому, что если средств языка уже недостаточно, стоит перейти на другой.
          Визуальный бейсик, по моему мнению, подходит тока для обучения; а если душа требует уже цветных кнопок, скинизации и тп - это уже разработка. Нужно учить другой язык.
          Ну или можно продолжать извращаться перехватывая обработчики событий, как я в свое время. Аж передернуло, как вспомнил.
          Ответить

    • ava guest 17.09.2013 12:49 # −13

      показать все, что скрытоИщу партнёра для секса. Есть своя квартира. Анал, орал, группа. Пиши мне на [email protected]
      Ответить

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