Замена стандартному Label

[tofik]

Кто нибудь подскажет контрол, который был бы заменой стандартному Label и имел бы такие свойства:
1. При наезде мышью - изменение свойства!
2. Многострочный ToolTips

[TEH3OP]

Кто нибудь подскажет контрол, который был бы заменой стандартному Label и имел бы такие свойства:
1. При наезде мышью - изменение свойства!

MouseMove есть и у стандартного Label.

2. Многострочный ToolTips

Хм... не знаю. Я б сам написал UserControl. Там ничего приактически не надо... для писания текста на Extender'е можно Апёвую TextOut использовать, а для ToolTip'а создавать окно "Static" и посать на ём всё тем же TextOut.

PS: так, на всякий случай...

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

Option Explicit
Const TA_BASELINE = 24
Const TA_BOTTOM = 8
Const TA_CENTER = 6
Const TA_LEFT = 0
Const TA_NOUPDATECP = 0
Const TA_RIGHT = 2
Const TA_TOP = 0
Const TA_UPDATECP = 1
Const TA_MASK = (TA_BASELINE + TA_CENTER + TA_UPDATECP)
Private Declare Function SetTextAlign Lib "gdi32" (ByVal hdc As Long, ByVal wFlags As Long) As Long
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Const mStr = "www.allapi.net"
Private Sub Form_Paint()
    'set the form's scalemode to pixels
    Me.ScaleMode = vbPixels
    'set the forecolor to white
    Me.ForeColor = vbWhite
    'draw some lines to show where our TextOut-x- and y-parameters are
    Me.Line (100, 0)-(100, 100)
    Me.Line (100, 100)-(0, 100)
    Me.Line (150, 0)-(150, 150)
    Me.Line (150, 150)-(0, 150)
    'set the forecolor back to black
    Me.ForeColor = vbBlack
    'call textalign to align to the right
    SetTextAlign Me.hdc, TA_RIGHT Or TA_TOP Or TA_NOUPDATECP
    'show some text
    TextOut Me.hdc, 100, 100, mStr, Len(mStr)
    'call textalign to align to the left
    SetTextAlign Me.hdc, TA_LEFT Or TA_TOP Or TA_NOUPDATECP
    'show some text
    TextOut Me.hdc, 150, 150, mStr, Len(mStr)
End Sub


[tofik]

Спасибо огромное!
Я извиняюсь, но я не правильно написал 1 свойство
Мне нужно чтобы при наезде мышью на этот LABEL он менял цвет ну на типа как это делает гипперссылка!

[natcap]

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H0&
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF&
End Sub

[tofik]

Спасибо!
А может стандартный Label позволяет еще и многострочный ToolTips сделать?

[ToT]

To natcap & tofik
Не все так просто, убрать мышь с label можно и не вызвав Form_MouseMove, например быстрым движением перевести курсор на другой контрол или за границу формы, так что это нужно отлавливать. А когда на форме много контролов, код становиться не очень красивым. Красиво можно с помощью API ф-ции TrackMouseEvent, только у label нету hwnd, можно попробывать вместо нее импользовать что-нибудь другое... эка куда меня занесло с такой фигни, короче хватит на сегодня.

[GM]

Можно воспользоватся WindowFromPoint, нет нельзя у него нет hwnd, ну тогда делай таймер который будет включатся после MouseMove и отключатся когда мышь наведена на него сюда по координатам мыши и координатах лейбла.

[A.A.Z.]

Multiline Tooltip

Вот только не знаю, как ты его будешь к Label привязывать...

[Ennor]

А не проще написать свой контрол, в котором это будет не лэйбл, а текст непосредственное на самом UserControl.hDC? Впрочем, думаю, такие уже есть, надо только найти...

[Emzari]

Посмотри мой контролл в месте с исходниками она меняет цвет и проподнимается при наведении миши думаю пригодится