Теги с меткой " Красивые панельки"

Красивые панельки (Panel)

Думаю можно маленько приукрасить панельки, вы согласны?

Если да, то добавляйте на форму две панели.

panels 300x127 Красивые панельки (Panel)

На VB.NET:

Imports System.Drawing.Drawing2D
Public Class Form1
    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
        e.Graphics.FillRectangle(Brushes.WhiteSmoke, New Rectangle(0, 0, sender.width, sender.height))
        e.Graphics.DrawRectangle(Pens.Gainsboro, New Rectangle(0, 0, sender.width - 1, sender.height - 1))
        e.Graphics.DrawRectangle(Pens.White, New Rectangle(1, 1, sender.width - 3, sender.height - 3))
    End Sub
    Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel2.Paint
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
        e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(235, 235, 235)), New Rectangle(2, 0, sender.Width, sender.Height))
        e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(249, 249, 249)), New Rectangle(1, 0, sender.Width - 3, sender.Height - 4))
        e.Graphics.DrawRectangle(New Pen(Color.FromArgb(214, 214, 214)), 0, 0, sender.Width - 2, sender.Height - 3)
    End Sub
End Class

Подробнее »

  Метки: , , , ,
  Евгений
  Просмотров: 7 977
  Запись опубликована в 17:19