top окна

[alexmckey]

Здравствуйте все!

проблемка в следующем:
допустим имеется форма размером 500x500 pxl с BorderStyle=0
если кликнув по центру и двигая её с помощью

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
x As Single, y As Single)
Call ReleaseCapture
Call SendMessage(hwnd, &HA1, 2, 0&)
End Sub

перемещать курсор в top экрана и
отпустить мышь , то форма опустится вниз

как сделать так ,чтобы она оставалась на месте
(как например у winamp)

[Efiop]

alexmckey, ты можешь подробней объяснить? Как у какого Винампа, какой версии. У мня на Винампе такого нет, как ты говоришь, он не остается на месте. И что те именно нужно, подробнее.
А может ты имеешь ввиду то, что Винам только за верхний заголовок таскается. Тогда у тебя есть y As Single, используй положение мыши в условии.

[alexmckey]

Efiop
winamp 5.05
если зацепить playlist или главное окно за нижний край и
задвинуть за верхний край экрана ,то эти окна остаются и
не опускаются вниз
мне нужно тоже самое с моим окном

[vvs_adm]

используй положение мыши в условии.

Т.е.

Код: Выделить всё

If Mouse.Top = СильноБольшой then НеНадоБольшеОпускать

Для определения размеров экрана используй screen

[alexmckey]

vvs_adm

а как реализовать "НеНадоБольшеОпускать"

[vvs_adm]

А как ты опускаешь? Так вот этого делать и не надо.

[tyomitch]

vvs_adm, alexmckey уже показал свой Form_MouseDown.
Понятно, как он опускает?

[vvs_adm]

Конечно понятно. Просто интересно, понятно ли ему? А без VB поэкспериментировать не могу Потому как если просто выйти из процедуры, то она и влево\вправо не будет двигаться при касании нижней границы...

P.S.: стормозил При таскании формы за заголовок от мыши то сообщений никаких нету И у формы нету Form_Move(). А зря. SubClasser нужен будет.

[alexmckey]

Здравствуйте все! Проблемка в следующем: Допустим, имеется окно размером `500x500` пикселов и `BorderStyle=0`. Если кликнув по центру и двигая её с помощью:

Код: Выделить всё

  Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
    Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _
          ByVal hwnd As Long, _
          ByVal wMsg As Long, _
          ByVal wParam As Long, _
          ByRef lParam As Any) As Long
    Private Const HTCAPTION As Long = 2
    Private Const WM_NCLBUTTONDOWN As Long = &HA1
'---------------------------------------------------------------------------------

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
    x As Single, y As Single)
        Call ReleaseCapture
        Call SendMessage(hwnd, WM_NCLBUTTONDOWN,HTCAPTION, 0&)
    End Sub


Перемещать курсор в верх экрана и отпустить мышь, то форма опустится вниз. Как сделать так, чтобы она оставалась на месте, как, например, у winamp?

[Хакер]

Не использоваться этот глупый код, а написать нормальный, обеспечивающий пермещение окна.

[alexmckey]

Уважаемый ХАКЕР,ситуация следующая:
при событии mousedown одного окна над ним и под курсором
появляется второе окно,которое необходимо перемещать
с помощью уже не глупого, а нормального кода , но без
mousedown по второму окну
как быть ?

[Mikle]

По несколько сумбурному описанию не очень понятна суть проблемы. Но вообще, зачем ReleaseCapture, SendMessage?
Окна можно так таскать:

Код: Выделить всё

Option Explicit

Dim MoveMode As Boolean, meX As Single, meY As Single

'Таскаем форму мышкой за любое место
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  MoveMode = True
  meX = X: meY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If MoveMode Then
    Move Left + (X - meX) * Screen.TwipsPerPixelX, Top + (Y - meY) * Screen.TwipsPerPixelY
  End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  MoveMode = False
End Sub

[ger_kar]

Окна можно так таскать:
Move Left + (X - meX) * Screen.TwipsPerPixelX, Top + (Y - meY) * Screen.TwipsPerPixelY

А *Screen.TwipsPerPixelX и * Screen.TwipsPerPixelY Зачем? Так окно будет убегать за пределы экрана и скрываться из виду, можно просто так:

Код: Выделить всё

Option Explicit

Dim MoveMode As Boolean, meX As Single, meY As Single

'Таскаем форму мышкой за любое место
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  MoveMode = True
  meX = X: meY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If MoveMode Then
    Move Left + (X - meX), Top + (Y - meY)
  End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  MoveMode = False
  Me.Visible = True
End Sub


У себя проверил, так точно работает

[Mikle]

У меня ScaleMode формы = vbPixels, забыл уточнить.

[ger_kar]

Ну тогда то оно да, а я кстати сам про это забыл, видимо потому, что никогда не пользовался Пискелями