Support Forums

package fatec.ads.lp;

import javax.swing.JOptionPane;

public class CaixaEletronico {

static int notas[] = {100, 50, 20, 10, 5, 2, 1}, // ARMAZENA AS NOTAS
quant[] = new int[7], // ARMAZENA A QUANTIDADE DE NOTAS
saque = 0, // RECEBE O VALOR DO SAQUE (SERÁ REESCRITA)
saqueBackup[] = new int[2], // ARMAZENA O SAQUE (ANTES DE SER REESCRITO) E O CODIGO DO BANCO
totalCarregado = 0, // ARMAZENA O TOTAL CARREGADO PARA GERAR ESTATISTICAS
maiorSaque[] = new int[2], // RECEBE O MAIOR SAQUE E O CODIGO DO BANCO
menorSaque = 0, // RECEBE O MENOR SAQUE
contSaque = 0, // CONTA A QUANTIDADE DE SAQUES EFETUADOS COM SUCESSO PARA GERAR ESTATISTICAS
acmSaque = 0; // ACUMULA OS VALORES SACADOS

static String bancos[] = {"SANTANDER", "ITAU", "REAL", "BRADESCO", "B.BRASIL", "CX.ECON.FEDERAL"}; // ARMAZENA O NOME DOS BANCOS

public static void main(String[] args) {
int opc = 0;
while (opc != 9) {
opc = Integer.parseInt(JOptionPane.showInputDialog("\tCaixa Eletronico\n\n1 - Carregar Caixa\n"
+ "2 - Sacar\n3 - Estatisticas\n9 - Sair\n" + exibirDisp()));
// EXIBIRDISP RETORNA UMA STRING COM AS NOTAS DISPONIVEIS
switch (opc) {
case 1:
carregarCaixa(); // CHAMA O MODULO QUE CARREGA O CAIXA
break;
case 2:
if (quant[0] != 0 && quant[1] != 0 && quant[2] != 0) { // VERIFICA SE NOTAS MAIORES ESTÃO DISPONIVEIS
notasPreferencia(); // PARA CHAMAR O METODO DE SELEÇÃO DE NOTAS
} else {
realizarSaque(); // SE NÃO EXISTIR NOTAS "GRANDES" DESPONIVEIS O SAQUE
} // É EXECUTADO NORMALMENTE.
break;
case 3:
exibirEstatisticas(); // CHAMA O METODO QUE EXIBE AS ESTATISTICAS
break;
case 9:
System.exit(0);
break;
default:
JOptionPane.showMessageDialog(null, "\tOpção inválida, digite novamente...\n");
}
}
}

static void carregarCaixa() {
String senha = "123456", // SENHA DE ACESSO
aux = ""; // VARIAVEL QUE RECEBE A SENHA DE ACESSO
if (totalCarregado == 0) { // SE O CAIXA NÃO FOI CARREGADO AINDA
aux = JOptionPane.showInputDialog("Digite senha de acesso: ");
if (senha.equals(aux)) {
for (int x = 0; x <= notas.length - 1; x++) {
quant[x] = Integer.parseInt(JOptionPane.showInputDialog("Digite a quantidade de notas de R$" + notas[x] + ",00: "));
totalCarregado = totalCarregado + (notas[x] * quant[x]);
}
JOptionPane.showMessageDialog(null, "Caixa carregado com sucesso.");
} else {
JOptionPane.showMessageDialog(null, "Senha inválida.\n\n");
}
} else {
JOptionPane.showMessageDialog(null, "O caixa já foi carregado.\nNão é possivel carrega-lo novamente.");
}
}

static void realizarSaque() {
int bufferQuant[] = new int[7], // ARMAZENA AS NOTAS QUE PODERÃO SER ESCONTADAS DO VETOR QUANTI
montante = retornaTotal(), // MONTANTE RECEBE O VALOR TOTAL QUE É RETORNADO PELA FUNÇÃO RETORNATOTAL
resto = 0; // VARIAVEL QUE RECEBE O RESULTADO DA DIVISÃO DO SAQUE PELA NOTA.
String exibeSaque = ""; // VARIAVEL QUE IRÁ ARMAZENAR A QUANTIDADE DE NOTAS QUE SERÁ EXIBIDO NO FINAL DO SAQUE

saque = Integer.parseInt(JOptionPane.showInputDialog("\tLimite de saque é R$2000,00\nDigite o valor a ser sacado: "));
saqueBackup[1] = saque; // BACKUP DO SAQUE É REALIZADO PARA GERAR ESTATISTICAS.

saqueBackup[0] = Integer.parseInt(JOptionPane.showInputDialog("1 - SANTANDER\n2 - ITAU\n3 - REAL\n4 - BRADESCO\n5 - B.BRASIL\n6 - CX.ECON.FEDERAL"));


if (saque <= 2000 && saque < montante) {
for (int x = 0; x <= notas.length - 1; x++) {
if (quant[x] != 0) { // SE QUANTIDADE DE NOTAS X DIFERENTE DE ZERO
resto = saque / notas[x]; // RESTO RECEBE O VALOR DA DIVISÃO DE SAQUE POR NOTAS X
if (resto < quant[x]) { // SE RESTO FOR MENOR QUE A QUANTIDADE DE NOTAS X
if (resto != 0) { // SE RESTO FOR DIFERENTE DE ZERO (ISSO EVITA QUE SEJA EXIBIDO "0 NOTAS DE 100")
exibeSaque = exibeSaque + "\n" + Integer.toString(resto) + "nota(s) de R$" + Integer.toString(notas[x]) + " ";
// EXIBESAQUE CONCATENA A QUANTIDADE DE NOTAS E A NOTA, PULA A LINHA A CADA VOLTA PELO LAÇO
// ESSA ROTINA É FEITA PARA NÃO EXIBIR UMA CAIXA DE DIALOGO A CADA LAÇO E PARA NÃO EXIBIR VALORES
// ANTES DO SAQUE SER REALMENTE VALIDADO, EXEMPLO:
// EXIBESAQUE ACUMULA OS VALORES DO SAQUE, CASO AO FINAL DO MODULO REALIZARSAQUE A VARIAVEL SAQUE NÃO FOR IGUAL A ZERO
// SIGNIFICA QUE O SAQUE NÃO PODE SER REALIZADO POIS NÃO HAVIA NOTAS SUFICIENTES.
// NESSE CASO A VARIAVEL EXIBESAQUE NÃO SERA EXIBIDA, O UNICO RETORNO QUE O USUARIO TERA
// É QUE O CAIXA NÃO DISPOE ESSE VALOR.
saque = saque - (resto * notas[x]);
bufferQuant[x] = bufferQuant[x] + resto;
// O VETOR QUANTI NÃO É DESCONTADO, NESSE CASO O VALOR É ACUMULADO NO VETOR BUFFERQUANT,
// SOMENTE QUANDO O SAQUE FOR VALIDADO QUE O VALOR DO QUANTI SERA FINALMENTE DESCONTADO PELO DO BUFFERQUANT
// ISSO EVITA QUE SAQUES QUE NÃO FORAM REALIZADOS DESCONTEM NOTAS DO CAIXA.
}
} else {
exibeSaque = exibeSaque + "\n" + Integer.toString(quant[x]) + "notas(s) de R$" + Integer.toString(notas[x]) + " ";
saque = saque - (quant[x] * notas[x]);
bufferQuant[x] = bufferQuant[x] + quant[x];
// ESSE BLOCO OCORRE QUANDO O A QUANTIDADE DE NOTAS É MENOR DO QUE A QUANTIDADE QUE DEVERIA SER SACADA, EX:
// O SAQUE É DE 450 REAIS E O CAIXA DISPOE DE 3 NOTAS DE 100 E N NOTAS DE 50.
}
}
}
if (saque == 0) { // SE O SAQUE FOR IGUAL A ZERO DEPOIS DO LAÇO SIGNIFICA QUE O SAQUE FOI REALIZADO COM SUCESSO.
JOptionPane.showMessageDialog(null, exibeSaque); // DESSA FORMA É EXIBIDA A SAIDA
for (int x = 0; x <= notas.length - 1; x++) {
quant[x] = quant[x] - bufferQuant[x]; // A QUANTIDADE DE NOTAS É DESCONTADA
}
contSaque++; // O CONTADOR DE SAQUE INCREMENTADO
acmSaque += saqueBackup[1]; // O ACUMULADOR DOS SAQUES ACUMULA O VALOR DO SAQUE EFETUADO
gerarEstatisticas(); // O MODULO QUE GERA ESTATISTICAS É CHAMADO

} else {
JOptionPane.showMessageDialog(null, "Valor indisponivel.\n(Para grandes valores selecione notas maiores.)");
// ESSA MENSAGEM É EXIBIDA PORQUE SE A NOTA ESCOLHIDA NÃO FOR INDICADA PARA O SAQUE DIGITADO POR EXEMPLO.
// 1900 REAIS EM NOTAS DE 20, O CAIXA PODE NÃO REALIZAR O SAQUE MESMO POSSUINDO NOTAS SUFICENTES ( DE 100 NO CASO )
// UM TESTE PODERIA SER INSERIDO FAZENDO ALGUMAS ALTERAÇÕES, MAS NÃO VI UMA REAL NECESSIDADE PARA CRIAR ESSE TESTE.
// NO CASO ELE TENDO O RETORNO DE QUE O SAQUE COM NOTAS X NÃO FOI POSSIVEL ELE IGNORA A NOTA SELECIONADA PELO USUARIO
// E TENTA REALIZAR O SAQUE COM NOTAS MAIORES.
}
} else {
JOptionPane.showMessageDialog(null, "Valor indisponivel.");
}
}

static String exibirDisp() { // É A FUNÇÃO QUE RETORNA AS NOTAS DISPONIVEIS NO CAIXA
String notasDisp = " ";
for (int x = 0; x <= notas.length - 1; x++) {
if (quant[x] != 0) {
notasDisp = (notasDisp + " R$" + Integer.toString(notas[x]) + ",00 |");
}
}
return notasDisp;
}

static int retornaTotal() { // É A FUNÇÃO QUE RETORNA O VALOR TOTAL DISPONIVEL NO CAIXA
int montante = 0;
for (int x = 0; x <= notas.length - 1; x++) {
montante = montante + (quant[x] * notas[x]);
}
return montante;
}

static void notasPreferencia() { // PROCEDIMENTO QUE ANTECEDE O SAQUE E POSSIBILIDA A ESCOLHA DAS NOTAS
int notasBackup[] = {100, 50, 20, 10, 5, 2, 1},
buffer = 0,
opc = 0;
notas = notasBackup;
opc = Integer.parseInt(JOptionPane.showInputDialog("Você prefere quais notas?\n"
+ "1 - R$" + notas[0] + "\n2 - R$" + notas[1] + "\n3 - R$" + notas[2] + "\n"
+ "9 - Continuar\n\t(Pode variar de acordo com a disponibilidade)."));

// A ESCOLHA DAS NOTAS FOI LIMITADA ENTRE NOTAS ALTAS; CEM, CINQUENTA E VINTE
// POR PURA CONVENIENCIA, NÃO HÁ DIFICULDADE EM IMPLEMENTAR DE OUTRA FORMA
// MAS ATÉ PELA DISPONIBILIDADE DO SISTEMA QUE VISA MANTER O CAIXA ATIVO POR MAIS TEMPO
opc = opc - 1;

if (opc >= 0 && opc <= 3) { // ESSE BLOCO DE CODIGO CRESCEU CONFORME OS ERROS FORAM APARECENDO
buffer = notas[0]; // E NAO DIMINUIU CONFORME EU DESCOBRIA QUE OS ERROS NÃO VINHAM DELE.
notas[0] = notas[opc];
notas[opc] = buffer;

buffer = quant[0];
quant[0] = quant[opc];
quant[opc] = buffer;
}
realizarSaque();
}

static void exibirEstatisticas() { // PROCEDIMENTO QUE EXIBE AS ESTATISTICAS
if (contSaque != 0) {
JOptionPane.showMessageDialog(null, "Maior saque: " + maiorSaque[1] + "\n"
+ "Banco: " + bancos[maiorSaque[0]-1] + "\n"
+ "Média geral dos bancos: " + (acmSaque / contSaque) + "\n"
+ "Entrada: " + totalCarregado + "\t Saida: " + acmSaque);
}
}

static void gerarEstatisticas() { // PROCEDIMENTO QUE GERA AS ESTATISTICAS
if (contSaque == 1) { // ATUALMENTE NEM EU ENTENDO O MESMO.
maiorSaque = saqueBackup;
menorSaque = saqueBackup[1];
} else {
if (maiorSaque[1] < saqueBackup[1]) {
maiorSaque = saqueBackup;
} else {
if (menorSaque > saqueBackup[1]) {
menorSaque = saqueBackup[1];
}
}
}
}
}

HTTP_CF_CONNECTING_IP

'Creator: Aeonhack
'Date: 4/23/2011
'Site: www.elitevs.net
'Version: 1.4

Imports System.Drawing.Drawing2D
Imports System.ComponentModel
Imports System.Runtime.InteropServices

MustInherit Class Theme
Inherits ContainerControl

#Region " Initialization "

Protected G As Graphics
Sub New()
SetStyle(DirectCast(139270, ControlStyles), True)
End Sub

Private ParentIsForm As Boolean
Protected Overrides Sub OnHandleCreated(ByVal e As EventArgs)
Dock = DockStyle.Fill
ParentIsForm = TypeOf Parent Is Form
If ParentIsForm Then
If Not _TransparencyKey = Color.Empty Then ParentForm.TransparencyKey = _TransparencyKey
ParentForm.FormBorderStyle = FormBorderStyle.None
End If
MyBase.OnHandleCreated(e)
End Sub

Overrides Property Text As String
Get
Return MyBase.Text
End Get
Set(ByVal v As String)
MyBase.Text = v
Invalidate()
End Set
End Property
#End Region

#Region " Sizing and Movement "

Private _Resizable As Boolean = True
Property Resizable() As Boolean
Get
Return _Resizable
End Get
Set(ByVal value As Boolean)
_Resizable = value
End Set
End Property

Private _MoveHeight As Integer = 24
Property MoveHeight() As Integer
Get
Return _MoveHeight
End Get
Set(ByVal v As Integer)
_MoveHeight = v
Header = New Rectangle(7, 7, Width - 14, _MoveHeight - 7)
End Set
End Property

Private Flag As IntPtr
Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
If Not e.Button = MouseButtons.Left Then Return
If ParentIsForm Then If ParentForm.WindowState = FormWindowState.Maximized Then Return

If Header.Contains(e.Location) Then
Flag = New IntPtr(2)
ElseIf Current.Position = 0 Or Not _Resizable Then
Return
Else
Flag = New IntPtr(Current.Position)
End If

Capture = False
DefWndProc(Message.Create(Parent.Handle, 161, Flag, Nothing))

MyBase.OnMouseDown(e)
End Sub

Private Structure Pointer
ReadOnly Cursor As Cursor, Position As Byte
Sub New(ByVal c As Cursor, ByVal p As Byte)
Cursor = c
Position = p
End Sub
End Structure

Private F1, F2, F3, F4 As Boolean, PTC As Point
Private Function GetPointer() As Pointer
PTC = PointToClient(MousePosition)
F1 = PTC.X < 7
F2 = PTC.X > Width - 7
F3 = PTC.Y < 7
F4 = PTC.Y > Height - 7

If F1 And F3 Then Return New Pointer(Cursors.SizeNWSE, 13)
If F1 And F4 Then Return New Pointer(Cursors.SizeNESW, 16)
If F2 And F3 Then Return New Pointer(Cursors.SizeNESW, 14)
If F2 And F4 Then Return New Pointer(Cursors.SizeNWSE, 17)
If F1 Then Return New Pointer(Cursors.SizeWE, 10)
If F2 Then Return New Pointer(Cursors.SizeWE, 11)
If F3 Then Return New Pointer(Cursors.SizeNS, 12)
If F4 Then Return New Pointer(Cursors.SizeNS, 15)
Return New Pointer(Cursors.Default, 0)
End Function

Private Current, Pending As Pointer
Private Sub SetCurrent()
Pending = GetPointer()
If Current.Position = Pending.Position Then Return
Current = GetPointer()
Cursor = Current.Cursor
End Sub

Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
If _Resizable Then SetCurrent()
MyBase.OnMouseMove(e)
End Sub

Protected Header As Rectangle
Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs)
If Width = 0 OrElse Height = 0 Then Return
Header = New Rectangle(7, 7, Width - 14, _MoveHeight - 7)
Invalidate()
MyBase.OnSizeChanged(e)
End Sub

#End Region

#Region " Convienence "

MustOverride Sub PaintHook()
Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs)
If Width = 0 OrElse Height = 0 Then Return
G = e.Graphics
PaintHook()
End Sub

Private _TransparencyKey As Color
Property TransparencyKey() As Color
Get
Return _TransparencyKey
End Get
Set(ByVal v As Color)
_TransparencyKey = v
Invalidate()
End Set
End Property

Private _Image As Image
Property Image() As Image
Get
Return _Image
End Get
Set(ByVal value As Image)
_Image = value
Invalidate()
End Set
End Property
ReadOnly Property ImageWidth() As Integer
Get
If _Image Is Nothing Then Return 0
Return _Image.Width
End Get
End Property

Private _Size As Size
Private _Rectangle As Rectangle
Private _Gradient As LinearGradientBrush
Private _Brush As SolidBrush

Protected Sub DrawCorners(ByVal c As Color, ByVal rect As Rectangle)
_Brush = New SolidBrush©
G.FillRectangle(_Brush, rect.X, rect.Y, 1, 1)
G.FillRectangle(_Brush, rect.X + (rect.Width - 1), rect.Y, 1, 1)
G.FillRectangle(_Brush, rect.X, rect.Y + (rect.Height - 1), 1, 1)
G.FillRectangle(_Brush, rect.X + (rect.Width - 1), rect.Y + (rect.Height - 1), 1, 1)
End Sub

Protected Sub DrawBorders(ByVal p1 As Pen, ByVal p2 As Pen, ByVal rect As Rectangle)
G.DrawRectangle(p1, rect.X, rect.Y, rect.Width - 1, rect.Height - 1)
G.DrawRectangle(p2, rect.X + 1, rect.Y + 1, rect.Width - 3, rect.Height - 3)
End Sub

Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer)
DrawText(a, c, x, 0)
End Sub
Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer, ByVal y As Integer)
If String.IsNullOrEmpty(Text) Then Return
_Size = G.MeasureString(Text, Font).ToSize
_Brush = New SolidBrush©

Select Case a
Case HorizontalAlignment.Left
G.DrawString(Text, Font, _Brush, x, _MoveHeight \ 2 - _Size.Height \ 2 + y)
Case HorizontalAlignment.Right
G.DrawString(Text, Font, _Brush, Width - _Size.Width - x, _MoveHeight \ 2 - _Size.Height \ 2 + y)
Case HorizontalAlignment.Center
G.DrawString(Text, Font, _Brush, Width \ 2 - _Size.Width \ 2 + x, _MoveHeight \ 2 - _Size.Height \ 2 + y)
End Select
End Sub

Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer)
DrawIcon(a, x, 0)
End Sub
Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
If _Image Is Nothing Then Return
Select Case a
Case HorizontalAlignment.Left
G.DrawImage(_Image, x, _MoveHeight \ 2 - _Image.Height \ 2 + y)
Case HorizontalAlignment.Right
G.DrawImage(_Image, Width - _Image.Width - x, _MoveHeight \ 2 - _Image.Height \ 2 + y)
Case HorizontalAlignment.Center
G.DrawImage(_Image, Width \ 2 - _Image.Width \ 2, _MoveHeight \ 2 - _Image.Height \ 2)
End Select
End Sub

Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single)
_Rectangle = New Rectangle(x, y, width, height)
_Gradient = New LinearGradientBrush(_Rectangle, c1, c2, angle)
G.FillRectangle(_Gradient, _Rectangle)
End Sub

#End Region

End Class
MustInherit Class ThemeControl
Inherits Control

#Region " Initialization "

Protected G As Graphics, B As Bitmap
Sub New()
SetStyle(DirectCast(139270, ControlStyles), True)
B = New Bitmap(1, 1)
G = Graphics.FromImage(B)
End Sub

Sub AllowTransparent()
SetStyle(ControlStyles.Opaque, False)
SetStyle(ControlStyles.SupportsTransparentBackColor, True)
End Sub

Overrides Property Text As String
Get
Return MyBase.Text
End Get
Set(ByVal v As String)
MyBase.Text = v
Invalidate()
End Set
End Property
#End Region

#Region " Mouse Handling "

Protected Enum State As Byte
MouseNone = 0
MouseOver = 1
MouseDown = 2
End Enum

Protected MouseState As State
Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
ChangeMouseState(State.MouseNone)
MyBase.OnMouseLeave(e)
End Sub
Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)
ChangeMouseState(State.MouseOver)
MyBase.OnMouseEnter(e)
End Sub
Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
ChangeMouseState(State.MouseOver)
MyBase.OnMouseUp(e)
End Sub
Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
If e.Button = MouseButtons.Left Then ChangeMouseState(State.MouseDown)
MyBase.OnMouseDown(e)
End Sub

Private Sub ChangeMouseState(ByVal e As State)
MouseState = e
Invalidate()
End Sub

#End Region

#Region " Convienence "

MustOverride Sub PaintHook()
Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs)
If Width = 0 OrElse Height = 0 Then Return
PaintHook()
e.Graphics.DrawImage(B, 0, 0)
End Sub

Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs)
If Not Width = 0 AndAlso Not Height = 0 Then
B = New Bitmap(Width, Height)
G = Graphics.FromImage(B)
Invalidate()
End If
MyBase.OnSizeChanged(e)
End Sub

Private _NoRounding As Boolean
Property NoRounding() As Boolean
Get
Return _NoRounding
End Get
Set(ByVal v As Boolean)
_NoRounding = v
Invalidate()
End Set
End Property

Private _Image As Image
Property Image() As Image
Get
Return _Image
End Get
Set(ByVal value As Image)
_Image = value
Invalidate()
End Set
End Property
ReadOnly Property ImageWidth() As Integer
Get
If _Image Is Nothing Then Return 0
Return _Image.Width
End Get
End Property
ReadOnly Property ImageTop() As Integer
Get
If _Image Is Nothing Then Return 0
Return Height \ 2 - _Image.Height \ 2
End Get
End Property

Private _Size As Size
Private _Rectangle As Rectangle
Private _Gradient As LinearGradientBrush
Private _Brush As SolidBrush

Protected Sub DrawCorners(ByVal c As Color, ByVal rect As Rectangle)
If _NoRounding Then Return

B.SetPixel(rect.X, rect.Y, c)
B.SetPixel(rect.X + (rect.Width - 1), rect.Y, c)
B.SetPixel(rect.X, rect.Y + (rect.Height - 1), c)
B.SetPixel(rect.X + (rect.Width - 1), rect.Y + (rect.Height - 1), c)
End Sub

Protected Sub DrawBorders(ByVal p1 As Pen, ByVal p2 As Pen, ByVal rect As Rectangle)
G.DrawRectangle(p1, rect.X, rect.Y, rect.Width - 1, rect.Height - 1)
G.DrawRectangle(p2, rect.X + 1, rect.Y + 1, rect.Width - 3, rect.Height - 3)
End Sub

Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer)
DrawText(a, c, x, 0)
End Sub
Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer, ByVal y As Integer)
If String.IsNullOrEmpty(Text) Then Return
_Size = G.MeasureString(Text, Font).ToSize
_Brush = New SolidBrush©

Select Case a
Case HorizontalAlignment.Left
G.DrawString(Text, Font, _Brush, x, Height \ 2 - _Size.Height \ 2 + y)
Case HorizontalAlignment.Right
G.DrawString(Text, Font, _Brush, Width - _Size.Width - x, Height \ 2 - _Size.Height \ 2 + y)
Case HorizontalAlignment.Center
G.DrawString(Text, Font, _Brush, Width \ 2 - _Size.Width \ 2 + x, Height \ 2 - _Size.Height \ 2 + y)
End Select
End Sub

Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer)
DrawIcon(a, x, 0)
End Sub
Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
If _Image Is Nothing Then Return
Select Case a
Case HorizontalAlignment.Left
G.DrawImage(_Image, x, Height \ 2 - _Image.Height \ 2 + y)
Case HorizontalAlignment.Right
G.DrawImage(_Image, Width - _Image.Width - x, Height \ 2 - _Image.Height \ 2 + y)
Case HorizontalAlignment.Center
G.DrawImage(_Image, Width \ 2 - _Image.Width \ 2, Height \ 2 - _Image.Height \ 2)
End Select
End Sub

Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single)
_Rectangle = New Rectangle(x, y, width, height)
_Gradient = New LinearGradientBrush(_Rectangle, c1, c2, angle)
G.FillRectangle(_Gradient, _Rectangle)
End Sub
#End Region

End Class
MustInherit Class ThemeContainerControl
Inherits ContainerControl

#Region " Initialization "

Protected G As Graphics, B As Bitmap
Sub New()
SetStyle(DirectCast(139270, ControlStyles), True)
B = New Bitmap(1, 1)
G = Graphics.FromImage(B)
End Sub

Sub AllowTransparent()
SetStyle(ControlStyles.Opaque, False)
SetStyle(ControlStyles.SupportsTransparentBackColor, True)
End Sub

#End Region

#Region " Convienence "

MustOverride Sub PaintHook()
Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs)
If Width = 0 OrElse Height = 0 Then Return
PaintHook()
e.Graphics.DrawImage(B, 0, 0)
End Sub

Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs)
If Not Width = 0 AndAlso Not Height = 0 Then
B = New Bitmap(Width, Height)
G = Graphics.FromImage(B)
Invalidate()
End If
MyBase.OnSizeChanged(e)
End Sub

Private _NoRounding As Boolean
Property NoRounding() As Boolean
Get
Return _NoRounding
End Get
Set(ByVal v As Boolean)
_NoRounding = v
Invalidate()
End Set
End Property

Private _Rectangle As Rectangle
Private _Gradient As LinearGradientBrush

Protected Sub DrawCorners(ByVal c As Color, ByVal rect As Rectangle)
If _NoRounding Then Return
B.SetPixel(rect.X, rect.Y, c)
B.SetPixel(rect.X + (rect.Width - 1), rect.Y, c)
B.SetPixel(rect.X, rect.Y + (rect.Height - 1), c)
B.SetPixel(rect.X + (rect.Width - 1), rect.Y + (rect.Height - 1), c)
End Sub

Protected Sub DrawBorders(ByVal p1 As Pen, ByVal p2 As Pen, ByVal rect As Rectangle)
G.DrawRectangle(p1, rect.X, rect.Y, rect.Width - 1, rect.Height - 1)
G.DrawRectangle(p2, rect.X + 1, rect.Y + 1, rect.Width - 3, rect.Height - 3)
End Sub

Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single)
_Rectangle = New Rectangle(x, y, width, height)
_Gradient = New LinearGradientBrush(_Rectangle, c1, c2, angle)
G.FillRectangle(_Gradient, _Rectangle)
End Sub
#End Region

End Class