| Вопрос: возможность пользователям премещать жлемет управле | Добавлено: 16.03.06 18:39 |
Автор вопроса:  Роман
|
| как осуществить возможность пользователям премещать жлемет управления по форме? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #1 | Добавлено: 16.03.06 20:16 |
|
Option Explicit
Dim XX As Single, YY As Single Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Drag End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) XX = X: YY = Y End Sub Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Command1.Move X - XX, Y - YY End Sub |
||
|
Номер ответа: 2 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #2 | Добавлено: 16.03.06 22:13 |
| Но тогда этот жлемент будет перемещаться только тогда, когда курсом будет над ФОРМОЙ. | ||
|
Номер ответа: 3 Автор ответа: SurICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #3 | Добавлено: 17.03.06 10:46 |
| Ты свой вопрос читал? | ||
|
Номер ответа: 4 Автор ответа: SurICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #4 | Добавлено: 17.03.06 10:47 |
| вопрос афтара, пардон | ||
|
Номер ответа: 5 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #5 | Добавлено: 18.03.06 16:16 |
|
Тогда попробуй переделать:
Public BarX Public BarY Private Sub imgMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then BarY = Y: BarX = X End Sub Private Sub imgMove_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then frmMain.Top = frmMain.Top + Y - BarY frmMain.Left = frmMain.Left + X - BarX end if End Sub |
||
Страница: 1 |