Как можно изменить бордюр у Label

[ger_kar]

Есть приложение на VB6 в котором имеется матрица из Label'ей. Но у Label в этом приложении имеет очень тонкий бордюр.
Label выглядит так:

1.png (439 байт) Просмотров: 2354

Хотел сделать аналогично, но нифига не выходит. Получается вот так:

2.png (468 байт) Просмотров: 2354

Сделать бордюр тоньше, как я не пробовал у меня не выходит. В интернете на эту тему тоже ничего путнего не нашлось.
Вроде бы пустяк, но вот...
Вобщем помогите добрым советом. И еще можно ли сделать бордюр таким, что-бы он выглядел выпуклым, а не вдавленным?

[Diamock]

Здравствуйте Уважаемые!
ger_kar я предлагаю такой (самый простой) вариант, размести этот код на форме:

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

Option Explicit

Enum LABELBORDER    '# Выпуклость, впуклость
    Bossed = 0
    Embossed = 1
End Enum

Sub BordureToLine(Label As Label, Border As LABELBORDER, Indent As Long)
   
    '# Label -  label вокруг которого отрисовывается рамка.
    '# Border - впулость/выпуклость.
    '# Indent - отступ.
    Dim BorderColorLight As Long
    Dim BorderColorDark As Long
   
    Select Case Border
        Case 0
            BorderColorLight = &HFFFFFF
            BorderColorDark = &H808080
        Case 1
            BorderColorDark = &HFFFFFF
            BorderColorLight = &H808080
    End Select
    Line (Label.Left - Indent, Label.Top - Indent)-(Label.Left - Indent, Label.Top + Label.Height + Indent), BorderColorLight
    Line (Label.Left - Indent, Label.Top - Indent)-(Label.Left + Label.Width + Indent, Label.Top - Indent), BorderColorLight
    Line (Label.Left + Label.Width + Indent, Label.Top - Indent)-(Label.Left + Label.Width + Indent, Label.Top + Label.Height + Indent), BorderColorDark
    Line (Label.Left - Indent, Label.Top + Label.Height + Indent)-(Label.Left + Label.Width + Indent + 15, Label.Top + Label.Height + Indent), BorderColorDark
End Sub

Private Sub Command1_Click()
    BordureToLine Label1, Bossed, 60
    BordureToLine Label2, Embossed, 120
End Sub

Private Sub Command2_Click()
    BordureToLine Label1, Embossed, 60
    BordureToLine Label2, Bossed, 120
End Sub

Это так на скорую руку, можно добавить толщину Border или оттенки рамки.
Но это уже сам реализуешь.
С уважением...

[ger_kar]

Как говориться - элементарно Ватсон
Спасибо за идею. Все очень просто и эффектно.

[Mikle]

Это НЕПРАВИЛЬНО!
Попробуй нарисовать такой Label на фрейме, который не поддерживает псевдометод Line.
Попробуй сменить ScaleMode формы и воспользоваться этим Label-ом.
Я бы сделал UserControl, имитирующий Label.
Возможно Хакер подскажет, как с помощью WinAPI перенастроить стиль самого Label.

[ger_kar]

Я бы сделал UserControl, имитирующий Label.

В смысле положить label на UserControl, а дальше можно уже и псевдометод Line юзать, и тогда такой UserControl можно будет размещать где угодно?

Возможно Хакер подскажет, как с помощью WinAPI перенастроить стиль самого Label.

Ну вроде как Label не является самостоятельным окном, не имеет своего хендла, и поэтому как у него можно поменять стиль я совершенно не представляю. Но как то наверное все таки можно и Хакер точно знает как

[Хакер]

Возможно Хакер подскажет, как с помощью WinAPI перенастроить стиль самого Label.

Он мне в личке поведал, что хочет делать матрицу лэйблов, наплодив коллекцию Label-контролов.
Я сказал, что за такое надо расстреливать, и дальше помогать в этом направлении даже не думаю.

[Mikle]

ger_kar, а какой-нибудь стандартный Grid не подойдёт? Опиши задачу подробнее.

[ger_kar]

ger_kar, а какой-нибудь стандартный Grid не подойдёт? Опиши задачу подробнее.

Да нет Grid не нужен. Задача в принципе элементарная - хотел сделать свой DPicker, так как стандартный меня не очень устраивает. Ну и матрицу календарика хотел сделать из лейблов.

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

[Qwertiy]

Я сказал, что за такое надо расстреливать, и дальше помогать в этом направлении даже не думаю.

Так изменение границы с матрицей никак не связаны. Почему бы не сказать как сделать?

[iGrok]

Для рисования таких вещей используется DrawEdge.

[Qwertiy]

Почему-то мне кажется, что тут рисование вообще не нужно...

[ger_kar]

Почему-то мне кажется, что тут рисование вообще не нужно...

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