Программирование
Веб программирование

Событие DragDrog и DragOver в visual basic

 
 

Эти события происходят каждый раз при перетаскивании объекта. Например, при перетаскивании окна, значка... происходит это событие. Ну короче делаем программу. На форму кинь объект Image(Picture = "Любая картинка.jpg"), и чтобы ее(картинку) можно было перетаскивать поставь свойство DragMode = 1 - Automatic. Теперь запусти проект, и попробуй перетащить картинку. Ну что получилось? Отлично! Теперь сделаем так чтоб картинку можно было не только перетаскивать, а еще и останавливать в том месте куда ты перетащил.
У формы в списке Events выбери событие DragDrog, и у тебя автоматом сгенерируется процедура DragDrog. В ней впиши:

Image1.Left = X
Image1.Top = Y

Вот весь код:

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) 'Если на форме происходит событие DragDrog то:
'Перемещаем картинку
Image1.Left = X
Image1.Top = Y
End Sub

Только если ты заметил, что картинка при перемещении находится в каком - то квадрате, чтобы его убрать поставь свойство DragIcon = той же картинке что и свойство Picture. А если поставишь другую картинку, то при перемещении картинка изменится.
А событие DragOver присходит тогда, когда объект перемещается.
И эти события можно делать не только у формы, а и у других объектов. Исходник качай здесь

Если у тебя есть какие - нибуть вопросы, то задавай их на форуме, или пиши в наглую на мыло(лучше оставляй на форуме, я быстрее отвечу, и может еще кто - нибуть ответит).
Мой сайт: http://vbbook.ru/
Мыло: padre03@mail.ru
И если ты зайдешь на мой сайт, не поленись, кликни по банеру, мне за это немного бабла прибавится. И если ты захочешь поддержать Отечественного производителя(т.е. Меня), то кликай по банеру раз в месяц. А если ты очень богатый, то не просто кликни, а еще что - нибуть купи.


Есть вопросы? Спроси на нашем форуме!!
effovekip [08.06.2012 21:33]

Привет! Я в интернете недавно очень хочется с кем нибудь познакомится подскажите кто знает хорошие сайты для знакомств

Emaicacceve [14.06.2012 23:02]

Привет!

FeextBaivemat [19.06.2012 13:56]

ОДНОКЛАССНИКИ ЗНАКОМСТВА

qazrt10 [27.09.2014 18:15]

Не обижайся, Ваше преосвященство, но твои мордераторы меня
реально достали. Придется их проучить...



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.