Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Перемещение Добавлено: 17.07.02 21:29  

Автор вопроса:  Smith | ICQ: adamis@list.ru 

На форме есть один image с иконкой, как сделать что бы его можно было перетаскивать как значки Windows?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #1 		Добавлено: 17.07.02 21:54
А чем тебе Move не подходит ?

Ответить

Номер ответа: 2
Автор ответа:
 Ян



ICQ: 816105 

Вопросов: 38
Ответов: 198
  Web-сайт: www.yan.net.ru
 Профиль | | #2 		Добавлено: 17.07.02 22:22

Всмысле перетаскивать по форме? Тогда в форме должен быть следующий код:

Option Explicit
Dim vX, vY

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
vX = X
vY = Y
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Image1.Left = Image1.Left + X - vX
Image1.Top = Image1.Top + Y - vY
End If
End Sub

image1 - имя твоего image

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам