"Усовершенствовать" StatusBar

[Dummiel]

Конечно, громко сказано - "усовершенствовать"!

1. Можно ли фон панели статусбара "закрасить" каким-либо цветом, типа BackColor в TextBox-е, и знаки подраскрасить, типа ForeColor?

2. Можно ли по щелчку на панели статусбара показать на его месте TextBox, ввести в него инфу, и отразить затем на панели, по которой щелкнули? Ну, отразить-то ясно, а вот показать TextBox...

И как это сделать?

[Nicky]

1. У панелей статусбара есть свойство Picture. Дальше сам

[Хакер]

2.
Помещаешь на статус-бар TextBox ставишь ему свойство Visible в False.

Теперь нужно сделать обработку клика по панельке.

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


Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
Text1.Enabled = True
Text1.Left = Panel.Left
Text1.Width = Panel.Width
Text1.Text = ""
Text1.Tag = Panel.Index
End Sub


теперь у тебя будет какое то событие по которому тексбокс прячется и введённая инфа показывается в панельке. Например - нажатиe Enter.

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


Private Sub Text1_KeyDown(KeyCode As Integer)
If KeyCode = 13 Then
Text1.Enabled = False
Text1.Visible = False
StatusBar1.Panels(CInt(Text1.Tag)).Text = Text1.Text
End If
End Sub


Ну сам понимаешь - имена объектов на свои поменяй. И придёся позаботится о проблеме изменения размеров формы.

[Dummiel]

Хакер, который телепат, дружище!!!

Только сейчас увидел - ДА ТЫ МОЙ ЗЕМЛЯК!

Я тоже родом из П-Павловска, жил на 2-й Коммунистической, в доме, где РОВД.

ОЧ-Ч-ЧЕНЬ РАД!!!

ПРОСЬБА к админам не ругаться за нетематическое сообщение - эмоции! Скупая мужская слеза скатилась по моей мощной груди!

[Dummiel]

В общем понял, что на статусбар, размещенный на родительской MDI-форме не ставится текстбокс. Ну вообще не ставится! Хотя у меня перед глазами прога с таким же MDI-интерфейсом, написанная на V5, там все прям как надо.

А по свойству .Picture ваще не разобрался: я так понял, просто нужно красную картинку загрузить, чтобы BackColor панели был красного цвета? А как тогда буковки другого цвета сделать? Или это просто текстбокс на панель с красным фоном и белыми буквами втыкается?

Или фамилия у меня - "Тупорылкин"?

[Nicky]

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

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

Sub PanelText(pBox As PictureBox, sBar As StatusBar, lIndex As Long, _
  sText As String, lBgColor As Long, lFgColor As Long)
  Dim r As RECT
 
  SendMessage sBar.hwnd, SB_GETRECT, lIndex - 1, r
  With pBox
    Set .Font = sBar.Font
    .Move 0, 0, (r.right - r.left) * Screen.TwipsPerPixelX, (r.bottom - r.top) * Screen.TwipsPerPixelY
    .BackColor = lBgColor
    .Cls
    .ForeColor = lFgColor
    pBox.Print "  " & sText
    sBar.Panels(lIndex).Picture = .Image
  End With
End Sub


[Antonariy]

Статусбар не является контейнером, так что на него ничего не положишь. Как вариант - делашь alignnable usercontrol-container, кидаешь его на mdi-форму, в него статусбар и текстбокс поверх статуса. Как второй вариант - SetParent

[Dummiel]

Спасибо, други!
Прошло на "УРА!"