Оформление при Enabled = False

[natcap]

Вопрос таков: есть кнопка, ей прописан графический фон... когда ей ставишь Enabled = False (ну надо ее заблочить - что поделать) текст становиться грязносерым и невидным на фоне кнопки.. как поменять цвет?

и еще смежный вопрос ... по таймеру обновляется значение Label. Label на TableLayautPanel. На панели фон графический... все это временами дергается белой полосой.. это излечимо?

[Nord777]

когда ей ставишь Enabled = False (ну надо ее заблочить - что поделать) текст становиться грязносерым и невидным на фоне кнопки.. как поменять цвет?

Создай класс, унаследованный от Button и переопредели в нем процедуру OnPaint(в ней и рисуй любым цветом)

На панели фон графический... все это временами дергается белой полосой.. это излечимо?

Да, двойная буферизация. Также создавай новый класс...

[natcap]

Спасибо за совет...

знать бы еще как
я вообще до 2008 Net дел с классами не имела

[Nord777]

Кнопка:

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

Imports System.Windows.Forms.VisualStyles
Public Class myButton
   Inherits Button

   Private state As PushButtonState = PushButtonState.Normal

   Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
      MyBase.OnPaint(e)
      Dim Sf As New StringFormat() With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center}
      ButtonRenderer.DrawButton(e.Graphics, Me.ClientRectangle, state)
      e.Graphics.DrawString(Me.Text, Me.Font, Brushes.Black, Me.ClientRectangle, Sf)
   End Sub

   Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
      MyBase.OnMouseDown(e)
      Me.state = PushButtonState.Pressed
      Invalidate()
   End Sub

   Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
      MyBase.OnMouseUp(e)
      OnMouseEnter(e)
   End Sub

   Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)
      MyBase.OnMouseEnter(e)
      Me.state = PushButtonState.Hot
      Invalidate()
   End Sub

   Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
      MyBase.OnMouseLeave(e)
      If Me.Focused Then
         Me.state = PushButtonState.Default
      Else
         Me.state = PushButtonState.Normal
      End If
      Invalidate()
   End Sub

   Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
      MyBase.OnMouseMove(e)
      If (e.Button And MouseButtons.Left) = MouseButtons.Left And _
          Not Me.ClientRectangle.Contains(e.Location) And _
          state = PushButtonState.Pressed Then
         OnMouseLeave(e)
      End If
   End Sub

Панель:

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

Public Class myTableLayoutPanel
   Inherits TableLayoutPanel

   Sub New()
      Me.DoubleBuffered = True
   End Sub
End Class

После компиляции проекта эти контролы сможешь найти на панеле элементов.

[natcap]

Спасибо огромаднейшее заодно немного поняла что за зверь OnPaint

Правда все равно осталось не совсем понятным, как задавать вид ля залоченой кнопки?

[iGrok]

Спасибо огромаднейшее заодно немного поняла что за зверь OnPaint

Правда все равно осталось не совсем понятным, как задавать вид ля залоченой кнопки?

Думаю, проверять в OnPaint св-во "Enabled", и рисовать кнопку в зависимости от него..

[Nord777]

как задавать вид ля залоченой кнопки?

PushButtonState.Disabled

Добавь это в класс

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

   Protected Overrides Sub OnEnabledChanged(ByVal e As System.EventArgs)
      MyBase.OnEnabledChanged(e)
      If Me.Enabled Then
         If Me.Focused Then state = PushButtonState.Default Else state = PushButtonState.Normal
         Me.Invalidate()
      Else
         state = PushButtonState.Disabled
      End If
   End Sub

[Dmitry81]

ИМХО, при установке свойства enabled контрола в false неспроста он перерисовывается в "серых тонах" - так СРАЗУ видно, что он заблокирован от поползновений юзверя.
Не очень понимаю, зачем имитировать в этом случае его внешний вид как при enabled=true.
Хотя... в познавательных целях разве что.

[natcap]

Спасибо за код

Dmitry81, разве хоть слово было сказано что КАК при enabled=true? просто дизайн формы не виндовопримитивный, а блин с дизайнерскими отрисовками мне на голову... а темно-сине-глянцевый фон кнопки и грязносерый текст на ней - выглядит мягко говоря...

[natcap]

2 дня к сожалению не было возможности затестить код..
сегодня опробовала, с панелью все СУПЕЕЕЕР! Ура. это дурацкое дерганье пропало.. а вот с кнопкой совсем не ICE вон ей не задать, вид не поменять, выглядит ТОЛЬКО как system без вариаций, уже и с бубном танцевала - не помогло

[Nord777]

вот с кнопкой совсем не ICE вон ей не задать, вид не поменять, выглядит ТОЛЬКО как system без вариаций

Ну тогда надо нарисовать картинки всех состояний твоей дизайнерской кнопки и отрисовывать их.
замени
ButtonRenderer.DrawButton(e.Graphics, Me.ClientRectangle, state)
на
e.Graphics.DrawImage(...)

[raserg]

Во вложении различные цветовые эффекты с кнопками.комбобоксами,листбоксами и т.д

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


         Me.TabControl1 = New ResourseDLL.TBTabControl
        Me.TabPage2 = New ResourseDLL.TBTabPage
        Me.Button8 = New ResourseDLL.TBButton
        Me.Button5 = New ResourseDLL.TBButton 

Создадите необходимые контролы,а потом переопределите

[Nord777]

raserg, ты злой человек.
Если natcap воспользуется этой библой, её с работы выгонят.

[natcap]

я то думала там исходник... а готовый dll цеплять неизвестный, спасибо, не хочется ))))

[raserg]

А вот и исходник