API tools faq
paste
Advertisement
netrosly

Shelf Item GDI

netrosly
Aug 11th, 2015
524
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 30.07 KB | None | 0 0
raw download clone embed print report
  1. '[by Nettro from HF]
  2. Imports System.Drawing.Drawing2D
  3. Imports System.IO
  4.  
  5. Public Class Shelf_itemm
  6.     Inherits PictureBox
  7. #Region "Property"
  8.     Property Kind As Type
  9.     Property HD As Boolean = True
  10.     Enum Type
  11.         New_Release
  12.         Popular
  13.         Coming_Soon
  14.         Custom
  15.     End Enum
  16.     Property MouseEntered As Boolean = False
  17.     Property Custom_Border_Color As Color = Color.FromArgb(123, 123, 123)
  18.     Property Custom_Inner_Border_Color As Color = Color.FromArgb(190, 190, 190)
  19.     Property Custom_Lines_Color As Color = Color.FromArgb(106, 106, 106)
  20.     Property Custom_Border_Line_Color As Color = Color.FromArgb(106, 106, 106)
  21.     Property Custom_Top_Back_Gradient_Color As Color = Color.FromArgb(190, 190, 190)
  22.     Property Custom_Bottom_Back_Gradient_Color As Color = Color.FromArgb(162, 162, 162)
  23.     Property Custom_Folds_Color As Color = Color.FromArgb(120, 120, 120)
  24.  
  25.     Property Anime_Url As String = "http://example.com"
  26.     Property Anime_Show_Name As String = "Anime Show Name-Sama"
  27.     Property Anime_back_Color As Color = Color.FromArgb(160, 0, 0, 0)
  28.     Property Anime_Show_Name_Font As Font = New Font("Arial", 9, FontStyle.Regular)
  29.     Property Anime_Show_Name_Text_Color As Color = Color.White
  30.     Property Anime_Thumbnail As String = "https://static.hummingbird.me/anime/poster_images/000/010/716/large/0fd8df1b586e60a0b1591cd8555c072f1431933759_full.jpg?1433453828"
  31.  
  32.     Property Custom_First_Text As String = "Custom"
  33.     Property Custom_Second_Text As String = "Release"
  34.     Property Custom_First_Text_Color As Color = Color.White
  35.     Property Custom_Second_Text_Color As Color = Color.White
  36.     Property Custom_First_Text_Font As Font = New Font("Impact", 10, FontStyle.Regular)
  37.     Property Custom_Second_Text_Font As Font = New Font("Impact", 9, FontStyle.Regular)
  38.     Property Custom_First_Text_Point As Point = New Point(-51, -42)
  39.     Property Custom_First_ShadowText_Point As Point = New Point(-21, -19)
  40.     Property Custom_First_Text_Size As Size = New Size(55, 48)
  41.     Property Custom_Second_Text_Point As Point = New Point(-97, -74)
  42.     Property Custom_Second_ShadowText_Point As Point = New Point(-72, -49)
  43.     Property Custom_Second_Text_Size As Size = New Size(55, 48)
  44. #End Region
  45. #Region "Imported Functions"
  46.     Private Sub DrawVertText(ByVal What As String, g2 As Graphics, ByVal Within As Rectangle, ByVal How As Font, ByVal Colore As Brush, ByVal rotateint As Integer)
  47.  
  48.         Dim strSize As SizeF = g2.MeasureString(What, How)
  49.  
  50.  
  51.         g2.TranslateTransform(CSng(Within.Width / 2), CSng(Within.Height / 2))
  52.  
  53.         g2.RotateTransform(rotateint)
  54.  
  55.  
  56.         g2.DrawString(What, How, Colore, Within)
  57.         ' g2.Dispose()
  58.     End Sub
  59. #End Region
  60.     Sub New()
  61.         Me.DoubleBuffered = True
  62.         Me.Size = New Size(175, 250)
  63.         Me.Padding = New Padding(4, 4, 4, 4)
  64.         Me.ImageLocation = Anime_Thumbnail
  65.         Me.SizeMode = PictureBoxSizeMode.StretchImage
  66.     End Sub
  67.     Function CheckTex(Str As String, Max As Integer)
  68.         Dim newstr As String = ""
  69.         Dim i As Integer = 0
  70.         Dim mi As Integer = 0
  71.         For Each Chr As String In Str
  72.             If i >= Max Then
  73.                 mi += 1
  74.                 If mi <= 3 Then
  75.                     newstr += "."
  76.                 Else
  77.                 End If
  78.             Else
  79.                 newstr += Chr
  80.             End If
  81.             i += 1
  82.         Next
  83.         Return newstr
  84.     End Function
  85.     Public draggintext As Boolean = False
  86.     Public DragTextint As Integer = 65
  87.     Public FirstDownint As Integer = 0
  88.     Public DragTextWidth As Integer = 1000
  89.     Private Sub Shelf_itemm_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
  90.         If e.Button = System.Windows.Forms.MouseButtons.Left Then
  91.             If New Rectangle(65, 2, Me.Width - 77, 30).Contains(e.X, e.Y) Then
  92.                 draggintext = True
  93.                 Cursor = Cursors.VSplit
  94.                 FirstDownint = e.X
  95.             End If
  96.         End If
  97.  
  98.     End Sub
  99.  
  100.  
  101.  
  102.     Private Sub Shelf_itemm_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
  103.         MouseEntered = False
  104.         Me.Padding = New Padding(4, 4, 4, 4)
  105.         Me.Refresh()
  106.     End Sub
  107.  
  108.     Private Sub Shelf_itemm_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
  109.         If New Rectangle(4, 4, Me.Width - 8, Me.Height - 8).Contains(e.X, e.Y) Then
  110.             MouseEntered = True
  111.             Me.Padding = New Padding(0, 0, 0, 0)
  112.             Me.Refresh()
  113.  
  114.         End If
  115.         If New Rectangle(65, 2, Me.Width - 77, 30).Contains(e.X, e.Y) Then
  116.             If draggintext = True Then
  117.  
  118.  
  119.                 If e.X < FirstDownint Then
  120.                     DragTextint -= 2
  121.                 Else
  122.                     DragTextint += 1
  123.                 End If
  124.                 If Not DragTextint > (-DragTextWidth) Then
  125.                     DragTextint = 65
  126.                 End If
  127.             End If
  128.         Else
  129.             draggintext = False
  130.             Cursor = Cursors.Arrow
  131.         End If
  132.  
  133.     End Sub
  134.  
  135.     Private Sub Shelf_itemm_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
  136.         If e.Button = System.Windows.Forms.MouseButtons.Left Then
  137.             If New Rectangle(65, 2, Me.Width - 77, 30).Contains(e.X, e.Y) Then
  138.                 draggintext = False
  139.                 Cursor = Cursors.Arrow
  140.             End If
  141.         End If
  142.     End Sub
  143.  
  144.     Private Sub Shelf_itemm_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
  145.  
  146.         If MouseEntered = False Then
  147.             e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(10, Me.Height - 4, Me.Width - 6, 3))
  148.             e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(Me.Width - 3, 8, 3, Me.Height - 12))
  149.             e.Graphics.FillRectangle(New SolidBrush(Anime_back_Color), New Rectangle(4, 4, Me.Width - 7, 30))
  150.             e.Graphics.DrawString(CheckTex(Anime_Show_Name, 25), Anime_Show_Name_Font, New SolidBrush(Anime_Show_Name_Text_Color), New Rectangle(65, 5, Me.Width - 77, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
  151.  
  152.             If Kind = Type.New_Release Then
  153.                 'Border
  154.                 e.Graphics.DrawRectangle(New Pen(Color.FromArgb(222, 70, 109)), New Rectangle(4, 4, Me.Width - 8, Me.Height - 8))
  155.                 'Folds
  156.                 e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(222, 70, 109)), New Rectangle(67, 0, 4, 4))
  157.                 e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(222, 70, 109)), New Rectangle(0, 66, 4, 4))
  158.                 'backs
  159.                 Dim points() As Point = {New Point(-1, -1), New Point(70, -1), New Point(-1, 70), New Point(0, -1)}
  160.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(234, 36, 127)), points)
  161.                 Dim points2() As Point = {New Point(1, 1), New Point(69, 1), New Point(1, 69), New Point(1, 1)}
  162.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(243, 142, 189)), points2)
  163.                 'Gradientback
  164.                 Dim curvePoints As PointF() = {New Point(2, 2), New Point(68, 2), New Point(2, 68), New Point(2, 2)}
  165.                 Dim rect As New Rectangle(2, 2, 68, 68)
  166.                 Dim brushed = New LinearGradientBrush(rect, Color.FromArgb(245, 116, 183), Color.FromArgb(226, 83, 127), 39.0!)
  167.                 e.Graphics.FillPolygon(brushed, curvePoints)
  168.                 'Lines
  169.                 Dim linees As _
  170.                      New HatchBrush(HatchStyle.LightDownwardDiagonal, Color.FromArgb(247, 85, 169), Color.Transparent)
  171.                 e.Graphics.FillPolygon(linees, curvePoints)
  172.                 '//////Text
  173.                 DrawVertText("New", e.Graphics, New Rectangle(-21, -22, 55, 48), New Font("Impact", 12, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), 316)
  174.                 DrawVertText("New", e.Graphics, New Rectangle(-47, -44, 55, 48), New Font("Impact", 12, FontStyle.Regular), Brushes.White, 0)
  175.                 DrawVertText("Release", e.Graphics, New Rectangle(-83, -52, 55, 48), New Font("Impact", 10, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), 0)
  176.                 DrawVertText("Release", e.Graphics, New Rectangle(-108, -75, 55, 48), New Font("Impact", 10, FontStyle.Regular), Brushes.White, 0)
  177.  
  178.             ElseIf Kind = Type.Popular Then
  179.                 e.Graphics.DrawRectangle(New Pen(Color.FromArgb(255, 63, 63)), New Rectangle(4, 4, Me.Width - 8, Me.Height - 8))
  180.                 e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(255, 63, 63)), New Rectangle(67, 0, 4, 4))
  181.                 e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(255, 63, 63)), New Rectangle(0, 66, 4, 4))
  182.  
  183.                 Dim points() As Point = {New Point(-1, -1), New Point(70, -1), New Point(-1, 70), New Point(0, -1)}
  184.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(255, 62, 62)), points)
  185.                 Dim points2() As Point = {New Point(1, 1), New Point(69, 1), New Point(1, 69), New Point(1, 1)}
  186.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(255, 163, 163)), points2)
  187.                 'Dim myHatchBrush As _
  188.                 '    New HatchBrush(HatchStyle.Vertical, Color.FromArgb(243, 104, 183), Color.Transparent)
  189.                 'e.graphics.FillPolygon(myHatchBrush, points2)
  190.                 'Dim myHatchBrush2 As _
  191.                 '   New HatchBrush(HatchStyle.Horizontal, Color.FromArgb(243, 104, 183), Color.Transparent)
  192.                 'e.graphics.FillPolygon(myHatchBrush2, points2)
  193.                 Dim curvePoints As PointF() = {New Point(2, 2), New Point(68, 2), New Point(2, 68), New Point(2, 2)}
  194.                 Dim rect As New Rectangle(2, 2, 68, 68)
  195.                 Dim brushed = New LinearGradientBrush(rect, Color.FromArgb(255, 123, 123), Color.FromArgb(255, 23, 23), 39.0!)
  196.                 e.Graphics.FillPolygon(brushed, curvePoints)
  197.                 Dim linees As _
  198.                      New HatchBrush(HatchStyle.LightDownwardDiagonal, Color.FromArgb(255, 45, 45), Color.Transparent)
  199.                 e.Graphics.FillPolygon(linees, curvePoints)
  200.                 'e.graphics.DrawString("New", New Font("Impact", 12, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(3, 3, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  201.                 'e.graphics.DrawString("New", New Font("Impact", 12, FontStyle.Regular), Brushes.White, New Rectangle(2, 2, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  202.                 DrawVertText("Popular", e.Graphics, New Rectangle(-34, -15, 65, 48), New Font("Impact", 12, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), 316)
  203.                 DrawVertText("Popular", e.Graphics, New Rectangle(-64, -37, 65, 48), New Font("Impact", 12, FontStyle.Regular), Brushes.White, 0)
  204.                 ' e.graphics.DrawString("RELEASE", New Font("Impact", 8, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(1, 18, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  205.                 ' e.graphics.DrawString("RELEASE", New Font("Impact", 8, FontStyle.Regular), New SolidBrush(Color.White), New Rectangle(0, 17, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  206.             ElseIf Kind = Type.Coming_Soon Then
  207.                 e.Graphics.DrawRectangle(New Pen(Color.FromArgb(37, 138, 255)), New Rectangle(4, 4, Me.Width - 8, Me.Height - 8))
  208.                 e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(37, 138, 255)), New Rectangle(67, 0, 4, 4))
  209.                 e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(37, 138, 255)), New Rectangle(0, 66, 4, 4))
  210.  
  211.                 Dim points() As Point = {New Point(-1, -1), New Point(70, -1), New Point(-1, 70), New Point(0, -1)}
  212.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(20, 130, 255)), points)
  213.                 Dim points2() As Point = {New Point(1, 1), New Point(69, 1), New Point(1, 69), New Point(1, 1)}
  214.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(150, 199, 255)), points2)
  215.                 'Dim myHatchBrush As _
  216.                 '    New HatchBrush(HatchStyle.Vertical, Color.FromArgb(243, 104, 183), Color.Transparent)
  217.                 'e.graphics.FillPolygon(myHatchBrush, points2)
  218.                 'Dim myHatchBrush2 As _
  219.                 '   New HatchBrush(HatchStyle.Horizontal, Color.FromArgb(243, 104, 183), Color.Transparent)
  220.                 'e.graphics.FillPolygon(myHatchBrush2, points2)
  221.                 Dim curvePoints As PointF() = {New Point(2, 2), New Point(68, 2), New Point(2, 68), New Point(2, 2)}
  222.                 Dim rect As New Rectangle(2, 2, 68, 68)
  223.                 Dim brushed = New LinearGradientBrush(rect, Color.FromArgb(105, 175, 255), Color.FromArgb(45, 138, 255), 39.0!)
  224.                 e.Graphics.FillPolygon(brushed, curvePoints)
  225.                 Dim linees As _
  226.                      New HatchBrush(HatchStyle.LightDownwardDiagonal, Color.FromArgb(15, 127, 254), Color.Transparent)
  227.                 e.Graphics.FillPolygon(linees, curvePoints)
  228.                 'e.graphics.DrawString("New", New Font("Impact", 12, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(3, 3, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  229.                 'e.graphics.DrawString("New", New Font("Impact", 12, FontStyle.Regular), Brushes.White, New Rectangle(2, 2, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  230.                 DrawVertText("Upcoming", e.Graphics, New Rectangle(-33, -20, 75, 58), New Font("Impact", 10, FontStyle.Regular), New SolidBrush(Color.FromArgb(120, 0, 0, 0)), 316)
  231.                 DrawVertText("Upcoming", e.Graphics, New Rectangle(-77, -50, 85, 58), New Font("Impact", 10, FontStyle.Regular), Brushes.White, 0)
  232.                 ' e.graphics.DrawString("RELEASE", New Font("Impact", 8, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(1, 18, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  233.                 ' e.graphics.DrawString("RELEASE", New Font("Impact", 8, FontStyle.Regular), New SolidBrush(Color.White), New Rectangle(0, 17, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  234.             ElseIf Kind = Type.Custom Then
  235.                 e.Graphics.DrawRectangle(New Pen(Custom_Border_Line_Color), New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
  236.                 e.Graphics.FillRectangle(New SolidBrush(Custom_Folds_Color), New Rectangle(67, 0, 4, 4))
  237.                 e.Graphics.FillRectangle(New SolidBrush(Custom_Folds_Color), New Rectangle(0, 66, 4, 4))
  238.  
  239.                 Dim points() As Point = {New Point(-1, -1), New Point(70, -1), New Point(-1, 70), New Point(0, -1)}
  240.                 e.Graphics.FillPolygon(New SolidBrush(Custom_Border_Color), points)
  241.                 Dim points2() As Point = {New Point(1, 1), New Point(69, 1), New Point(1, 69), New Point(1, 1)}
  242.                 e.Graphics.FillPolygon(New SolidBrush(Custom_Inner_Border_Color), points2)
  243.                 'Dim myHatchBrush As _
  244.                 '    New HatchBrush(HatchStyle.Vertical, Color.FromArgb(243, 104, 183), Color.Transparent)
  245.                 'e.graphics.FillPolygon(myHatchBrush, points2)
  246.                 'Dim myHatchBrush2 As _
  247.                 '   New HatchBrush(HatchStyle.Horizontal, Color.FromArgb(243, 104, 183), Color.Transparent)
  248.                 'e.graphics.FillPolygon(myHatchBrush2, points2)
  249.                 Dim curvePoints As PointF() = {New Point(2, 2), New Point(68, 2), New Point(2, 68), New Point(2, 2)}
  250.                 Dim rect As New Rectangle(2, 2, 68, 68)
  251.                 Dim brushed = New LinearGradientBrush(rect, Custom_Top_Back_Gradient_Color, Custom_Bottom_Back_Gradient_Color, 39.0!)
  252.                 e.Graphics.FillPolygon(brushed, curvePoints)
  253.                 Dim linees As _
  254.                      New HatchBrush(HatchStyle.LightDownwardDiagonal, Custom_Lines_Color, Color.Transparent)
  255.                 e.Graphics.FillPolygon(linees, curvePoints)
  256.                 DrawVertText(Custom_First_Text, e.Graphics, New Rectangle(Custom_First_ShadowText_Point, Custom_First_Text_Size), Custom_First_Text_Font, New SolidBrush(Color.FromArgb(80, 0, 0, 0)), 316)
  257.                 DrawVertText(Custom_First_Text, e.Graphics, New Rectangle(Custom_First_Text_Point, Custom_First_Text_Size), Custom_First_Text_Font, New SolidBrush(Custom_First_Text_Color), 0)
  258.                 DrawVertText(Custom_Second_Text, e.Graphics, New Rectangle(Custom_Second_ShadowText_Point, Custom_Second_Text_Size), Custom_Second_Text_Font, New SolidBrush(Color.FromArgb(80, 0, 0, 0)), 0)
  259.                 DrawVertText(Custom_Second_Text, e.Graphics, New Rectangle(Custom_Second_Text_Point, Custom_Second_Text_Size), Custom_Second_Text_Font, New SolidBrush(Custom_Second_Text_Color), 0)
  260.             End If
  261.  
  262.         Else
  263.             e.Graphics.SmoothingMode = SmoothingMode.HighQuality
  264.             e.Graphics.FillRectangle(New SolidBrush(Anime_back_Color), New Rectangle(1, 1, Me.Width - 2, 30))
  265.             If draggintext = False Then
  266.                 e.Graphics.DrawString(CheckTex(Anime_Show_Name, 25), Anime_Show_Name_Font, New SolidBrush(Anime_Show_Name_Text_Color), New Rectangle(65, 2, Me.Width - 77, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
  267.             Else
  268.                 Dim sz As SizeF = e.Graphics.MeasureString(Anime_Show_Name, Anime_Show_Name_Font)
  269.                 DragTextWidth = sz.Width + 5
  270.                 e.Graphics.DrawString(Anime_Show_Name, Anime_Show_Name_Font, New SolidBrush(Anime_Show_Name_Text_Color), New Rectangle(DragTextint, 2, sz.Width, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
  271.             End If
  272.             'Te
  273.             e.Graphics.FillEllipse(New SolidBrush(Color.FromArgb(120, 0, 0, 0)), New Rectangle(Me.Width / 2 - 32, Me.Height - 40, 64, 64))
  274.             e.Graphics.FillEllipse(New SolidBrush(Color.FromArgb(255, 255, 255, 255)), New Rectangle(Me.Width / 2 - 28, Me.Height - 36, 56, 56))
  275.             Dim bytes As Byte() = Convert.FromBase64String("iVBORw0KGgoAAAANSUhEUgAAACgAAAAoCAYAAACM/rhtAAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAAKRJREFUeNpi/P//P8NgBkwMgxyMOnDUgaMOHHXgqANHHTjqwAEGoNYMMgYCeyA+CZIiAm8HYhWaugeLA58T6TgY3ohk/l4S9aLjvejuwRbFEiR6WhGJ/YvCAMTQz0LlFOM5mospBBSnQVo7cDQNjqZBaqTBpyQ66hEt0yC2msSDhNrkEhBr0bKqYxwdWRh14KgDRx046sBRB446cNSBQ9qBAAEGAPhFqjdpHPl0AAAAAElFTkSuQmCC")
  276.  
  277.             Dim img As Image
  278.             Using ms As New MemoryStream(bytes)
  279.                 img = Image.FromStream(ms)
  280.             End Using
  281.             e.Graphics.DrawImage(img, New Rectangle(Me.Width / 2 - 16, Me.Height - 30, 32, 38))
  282.             img.Dispose()
  283.             If Kind = Type.New_Release Then
  284.                 'Border
  285.                 e.Graphics.DrawRectangle(New Pen(Color.FromArgb(222, 70, 109)), New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
  286.                 'Folds
  287.                 'e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(222, 70, 109)), New Rectangle(67, 0, 4, 4))
  288.                 'e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(222, 70, 109)), New Rectangle(0, 66, 4, 4))
  289.                 'backs
  290.                 Dim points() As Point = {New Point(-1, -1), New Point(70, -1), New Point(-1, 70), New Point(0, -1)}
  291.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(234, 36, 127)), points)
  292.                 Dim points2() As Point = {New Point(1, 1), New Point(69, 1), New Point(1, 69), New Point(1, 1)}
  293.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(243, 142, 189)), points2)
  294.                 'Gradientback
  295.                 Dim curvePoints As PointF() = {New Point(2, 2), New Point(68, 2), New Point(2, 68), New Point(2, 2)}
  296.                 Dim rect As New Rectangle(2, 2, 68, 68)
  297.                 Dim brushed = New LinearGradientBrush(rect, Color.FromArgb(245, 116, 183), Color.FromArgb(226, 83, 127), 39.0!)
  298.                 e.Graphics.FillPolygon(brushed, curvePoints)
  299.                 'Lines
  300.                 Dim linees As _
  301.                      New HatchBrush(HatchStyle.LightDownwardDiagonal, Color.FromArgb(247, 85, 169), Color.Transparent)
  302.                 e.Graphics.FillPolygon(linees, curvePoints)
  303.                 '//////Text
  304.                 DrawVertText("New", e.Graphics, New Rectangle(-21, -22, 55, 48), New Font("Impact", 12, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), 316)
  305.                 DrawVertText("New", e.Graphics, New Rectangle(-47, -44, 55, 48), New Font("Impact", 12, FontStyle.Regular), Brushes.White, 0)
  306.                 DrawVertText("Release", e.Graphics, New Rectangle(-83, -52, 55, 48), New Font("Impact", 10, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), 0)
  307.                 DrawVertText("Release", e.Graphics, New Rectangle(-108, -75, 55, 48), New Font("Impact", 10, FontStyle.Regular), Brushes.White, 0)
  308.  
  309.             ElseIf Kind = Type.Popular Then
  310.                 e.Graphics.DrawRectangle(New Pen(Color.FromArgb(255, 63, 63)), New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
  311.                 'e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(255, 63, 63)), New Rectangle(67, 0, 4, 4))
  312.                 'e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(255, 63, 63)), New Rectangle(0, 66, 4, 4))
  313.  
  314.                 Dim points() As Point = {New Point(-1, -1), New Point(70, -1), New Point(-1, 70), New Point(0, -1)}
  315.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(255, 62, 62)), points)
  316.                 Dim points2() As Point = {New Point(1, 1), New Point(69, 1), New Point(1, 69), New Point(1, 1)}
  317.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(255, 163, 163)), points2)
  318.                 'Dim myHatchBrush As _
  319.                 '    New HatchBrush(HatchStyle.Vertical, Color.FromArgb(243, 104, 183), Color.Transparent)
  320.                 'e.graphics.FillPolygon(myHatchBrush, points2)
  321.                 'Dim myHatchBrush2 As _
  322.                 '   New HatchBrush(HatchStyle.Horizontal, Color.FromArgb(243, 104, 183), Color.Transparent)
  323.                 'e.graphics.FillPolygon(myHatchBrush2, points2)
  324.                 Dim curvePoints As PointF() = {New Point(2, 2), New Point(68, 2), New Point(2, 68), New Point(2, 2)}
  325.                 Dim rect As New Rectangle(2, 2, 68, 68)
  326.                 Dim brushed = New LinearGradientBrush(rect, Color.FromArgb(255, 123, 123), Color.FromArgb(255, 23, 23), 39.0!)
  327.                 e.Graphics.FillPolygon(brushed, curvePoints)
  328.                 Dim linees As _
  329.                      New HatchBrush(HatchStyle.LightDownwardDiagonal, Color.FromArgb(255, 45, 45), Color.Transparent)
  330.                 e.Graphics.FillPolygon(linees, curvePoints)
  331.                 'e.graphics.DrawString("New", New Font("Impact", 12, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(3, 3, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  332.                 'e.graphics.DrawString("New", New Font("Impact", 12, FontStyle.Regular), Brushes.White, New Rectangle(2, 2, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  333.                 DrawVertText("Popular", e.Graphics, New Rectangle(-34, -15, 65, 48), New Font("Impact", 12, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), 316)
  334.                 DrawVertText("Popular", e.Graphics, New Rectangle(-64, -37, 65, 48), New Font("Impact", 12, FontStyle.Regular), Brushes.White, 0)
  335.                 ' e.graphics.DrawString("RELEASE", New Font("Impact", 8, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(1, 18, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  336.                 ' e.graphics.DrawString("RELEASE", New Font("Impact", 8, FontStyle.Regular), New SolidBrush(Color.White), New Rectangle(0, 17, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  337.             ElseIf Kind = Type.Coming_Soon Then
  338.                 e.Graphics.DrawRectangle(New Pen(Color.FromArgb(37, 138, 255)), New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
  339.                 'e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(37, 138, 255)), New Rectangle(67, 0, 4, 4))
  340.                 'e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(37, 138, 255)), New Rectangle(0, 66, 4, 4))
  341.  
  342.                 Dim points() As Point = {New Point(-1, -1), New Point(70, -1), New Point(-1, 70), New Point(0, -1)}
  343.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(20, 130, 255)), points)
  344.                 Dim points2() As Point = {New Point(1, 1), New Point(69, 1), New Point(1, 69), New Point(1, 1)}
  345.                 e.Graphics.FillPolygon(New SolidBrush(Color.FromArgb(150, 199, 255)), points2)
  346.                 'Dim myHatchBrush As _
  347.                 '    New HatchBrush(HatchStyle.Vertical, Color.FromArgb(243, 104, 183), Color.Transparent)
  348.                 'e.graphics.FillPolygon(myHatchBrush, points2)
  349.                 'Dim myHatchBrush2 As _
  350.                 '   New HatchBrush(HatchStyle.Horizontal, Color.FromArgb(243, 104, 183), Color.Transparent)
  351.                 'e.graphics.FillPolygon(myHatchBrush2, points2)
  352.                 Dim curvePoints As PointF() = {New Point(2, 2), New Point(68, 2), New Point(2, 68), New Point(2, 2)}
  353.                 Dim rect As New Rectangle(2, 2, 68, 68)
  354.                 Dim brushed = New LinearGradientBrush(rect, Color.FromArgb(105, 175, 255), Color.FromArgb(45, 138, 255), 39.0!)
  355.                 e.Graphics.FillPolygon(brushed, curvePoints)
  356.                 Dim linees As _
  357.                      New HatchBrush(HatchStyle.LightDownwardDiagonal, Color.FromArgb(15, 127, 254), Color.Transparent)
  358.                 e.Graphics.FillPolygon(linees, curvePoints)
  359.                 'e.graphics.DrawString("New", New Font("Impact", 12, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(3, 3, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  360.                 'e.graphics.DrawString("New", New Font("Impact", 12, FontStyle.Regular), Brushes.White, New Rectangle(2, 2, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  361.                 DrawVertText("Upcoming", e.Graphics, New Rectangle(-33, -20, 75, 58), New Font("Impact", 10, FontStyle.Regular), New SolidBrush(Color.FromArgb(120, 0, 0, 0)), 316)
  362.                 DrawVertText("Upcoming", e.Graphics, New Rectangle(-77, -50, 85, 58), New Font("Impact", 10, FontStyle.Regular), Brushes.White, 0)
  363.                 ' e.graphics.DrawString("RELEASE", New Font("Impact", 8, FontStyle.Regular), New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(1, 18, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  364.                 ' e.graphics.DrawString("RELEASE", New Font("Impact", 8, FontStyle.Regular), New SolidBrush(Color.White), New Rectangle(0, 17, 45, 30), New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Near})
  365.             ElseIf Kind = Type.Custom Then
  366.                 e.Graphics.DrawRectangle(New Pen(Custom_Border_Line_Color), New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
  367.                 'e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(37, 138, 255)), New Rectangle(67, 0, 4, 4))
  368.                 'e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(37, 138, 255)), New Rectangle(0, 66, 4, 4))
  369.  
  370.                 Dim points() As Point = {New Point(-1, -1), New Point(70, -1), New Point(-1, 70), New Point(0, -1)}
  371.                 e.Graphics.FillPolygon(New SolidBrush(Custom_Border_Color), points)
  372.                 Dim points2() As Point = {New Point(1, 1), New Point(69, 1), New Point(1, 69), New Point(1, 1)}
  373.                 e.Graphics.FillPolygon(New SolidBrush(Custom_Inner_Border_Color), points2)
  374.                 'Dim myHatchBrush As _
  375.                 '    New HatchBrush(HatchStyle.Vertical, Color.FromArgb(243, 104, 183), Color.Transparent)
  376.                 'e.graphics.FillPolygon(myHatchBrush, points2)
  377.                 'Dim myHatchBrush2 As _
  378.                 '   New HatchBrush(HatchStyle.Horizontal, Color.FromArgb(243, 104, 183), Color.Transparent)
  379.                 'e.graphics.FillPolygon(myHatchBrush2, points2)
  380.                 Dim curvePoints As PointF() = {New Point(2, 2), New Point(68, 2), New Point(2, 68), New Point(2, 2)}
  381.                 Dim rect As New Rectangle(2, 2, 68, 68)
  382.                 Dim brushed = New LinearGradientBrush(rect, Custom_Top_Back_Gradient_Color, Custom_Bottom_Back_Gradient_Color, 39.0!)
  383.                 e.Graphics.FillPolygon(brushed, curvePoints)
  384.                 Dim linees As _
  385.                      New HatchBrush(HatchStyle.LightDownwardDiagonal, Custom_Lines_Color, Color.Transparent)
  386.                 e.Graphics.FillPolygon(linees, curvePoints)
  387.                 e.Graphics.FillPolygon(linees, curvePoints)
  388.                 DrawVertText(Custom_First_Text, e.Graphics, New Rectangle(Custom_First_ShadowText_Point, Custom_First_Text_Size), Custom_First_Text_Font, New SolidBrush(Color.FromArgb(80, 0, 0, 0)), 316)
  389.                 DrawVertText(Custom_First_Text, e.Graphics, New Rectangle(Custom_First_Text_Point, Custom_First_Text_Size), Custom_First_Text_Font, New SolidBrush(Custom_First_Text_Color), 0)
  390.                 DrawVertText(Custom_Second_Text, e.Graphics, New Rectangle(Custom_Second_ShadowText_Point, Custom_Second_Text_Size), Custom_Second_Text_Font, New SolidBrush(Color.FromArgb(80, 0, 0, 0)), 0)
  391.                 DrawVertText(Custom_Second_Text, e.Graphics, New Rectangle(Custom_Second_Text_Point, Custom_Second_Text_Size), Custom_Second_Text_Font, New SolidBrush(Custom_Second_Text_Color), 0)
  392.             End If
  393.         End If
  394.  
  395.  
  396.     End Sub
  397. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!