Школоло / Говнокод #13779 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 Stertor, (Updated )

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

  • ava bormand # Ссылка на оригинал 0

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

    • ava kegdan # Ссылка на оригинал 0 ⇈

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

      • ava bormand # Ссылка на оригинал 0 ⇈

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

        • ava kegdan # Ссылка на оригинал 0 ⇈

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

          • ava bormand # Ссылка на оригинал 0 ⇈

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

            • ava kegdan # Ссылка на оригинал 0 ⇈

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

    • ava 3.14159265 # Ссылка на оригинал 0 ⇈

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

      • ava Stertor # Ссылка на оригинал 0 ⇈

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

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

Переведи на "PHP", guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓