А как сделать плавающую форму?

А по поводу координат попробуй функцию API GetCursorPos.

Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Ответить

Плавающую форму - просто выставить в свойствах формы "No Border", и дальше

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmFloat.Show
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmFloat.Hide
End Sub

Поскольку я совсем новичок в этом деле, то можете мне конкретней объяснить, как пользоваться этой функцией (API GetCursorPosition)? В смысле - пример кода моей формы с испольванием функции? Спасибо

Ответить

А если left и top твоей формы будут всегда под мышью, то как ты собираешься покинуть пределы этой формы(ну для того чтобы скрыть её)???(это если left и top метки равны 0)

А если left и top метки не равны 0, то передвигаясь за курсором, форма не позволит тебе поставить мышь над меткой и событие Label1_MouseMove не наступит никогда

Видимо для покидания формы надо будет использовать какое-нибудь событие типа Click, а не просто увести мышь с формы.

В форме поставь вот это:

Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type

Dim curPosition as POINTAPI

А вызов примерно такой(где - нибудь в таймере опиши):

private sub Timer1_Timer()

GetCursorPos curPosition

me.Left =curPosition.x* Screen.TwipsPerPixelX

me.top=curPosition.y* Screen.TwipsPerPixelY

End sub

и твоя форма потянется за курсором

только позиции курсора будут выражены в пикселях, (API -функции работают только с пикселями, поэтому при их вызоае надо учитывать значение Screen.TwipsPerPixelX)

И попробуй отцепиться от формы

Мне понадобились три кнопки чтобы отцепиться от неё

А если будешь использовать координаты метки вместо координат формы, то метка уедет за пределы формы

Ответить

CRESTA,
Ты наверно не понял чего я хочу... я имею ввиду, что операция приравнивания позиции формы должны происходить только пока мышь нахдится на объекте производящем оную операцию. А когда мышь выходит за пределы, то есть едет по голой форме, то форма выполняет операцию скрытия окна.

Ответить

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

FrmMain

Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Dim curPosition As POINTAPI

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmDesc.Hide
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload frmDesc
Unload Me
End
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmDesc.lblTip.Text = "Internet Explorer 6.0" & vbCrLf & "5.0"
frmDesc.Show
GetCursorPos curPosition
frmDesc.Left = curPosition.X * Screen.TwipsPerPixelX
frmDesc.Top = curPosition.Y * Screen.TwipsPerPixelY
End Sub

FrmDesc

Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Dim curPosition As POINTAPI

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
GetCursorPos curPosition
Me.Left = curPosition.X * Screen.TwipsPerPixelX
Me.Top = curPosition.Y * Screen.TwipsPerPixelY
End Sub

При этом если я пользуюсь функией SetFocus, то получается каша - сами посмотрите. Что тут сделать?

Ответить

Ответить

Ты порыскай на http://outen.narod.ru/ - там этот пример в наличии

Если нет - пиши

Ответить

CRESTA,

Я имею ввиду, чтобы пусть хоть фокус и снимается, но чтобы заголовок формы не менял цвет на инактивный. Это наверно никак не возможно, потому что если основная форма будет в фокусе, то всплывающая форма будет под ней что не годится.

AE SOFT,

Спасибо, посмотрю.

Ответить

Ответить

Ответить

Ответить

Ответить

Ответить

Это таскать форму за любое место, Можно применить и к Метке, а форму подтягивать к метке и будет 

полная имитация заголовка

Dim cx As Single, cy As Single, dx As Single, dy As Single

Dim bDrag As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    'Если нажата кнопка мыши, то синхронизируем координаты

    bDrag = True: dx = X: dy = Y: cx = Me.Left: cy = Me.Top

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    'Вместе с мышью тащим форму

    If bDrag Then

        cx = cx + X - dx: cy = cy + Y - dy

        Me.Move cx, cy

    End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    'Когда кнопка отпущена, перестаем тянуть форму

    bDrag = False

End Sub

Ответить

А ещё можно при помощи API:

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
 ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function ReleaseCapture Lib "user32" () As Long

В процедуру Form_MouseDown вставь:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Call ReleaseCapture
Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

End Sub

Правда этот пример работает только если у объекта есть hWnd - у метки нету - но вместо метки можно использовать PictureBox (В мего можно воткнуть еще один  PictureBox и в него какую-нибудь иконку и будет настоящий заголовок-

Ответить