diff --git a/Movies Icons/Form1.Designer.vb b/Movies Icons/Form1.Designer.vb index 31ffd89..6ddb412 100644 --- a/Movies Icons/Form1.Designer.vb +++ b/Movies Icons/Form1.Designer.vb @@ -37,6 +37,7 @@ Partial Class Form1 Me.Panel2 = New System.Windows.Forms.Panel() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.CheckBox1 = New System.Windows.Forms.CheckBox() @@ -76,7 +77,6 @@ Partial Class Form1 Me.FontDialog1 = New System.Windows.Forms.FontDialog() Me.Button8 = New System.Windows.Forms.Button() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() - Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() Me.GroupBox1.SuspendLayout() @@ -224,6 +224,18 @@ Partial Class Form1 Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Additional settings" ' + 'CheckBox4 + ' + Me.CheckBox4.AutoSize = True + Me.CheckBox4.Checked = True + Me.CheckBox4.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox4.Location = New System.Drawing.Point(313, 42) + Me.CheckBox4.Name = "CheckBox4" + Me.CheckBox4.Size = New System.Drawing.Size(98, 17) + Me.CheckBox4.TabIndex = 21 + Me.CheckBox4.Text = "Add rating star" + Me.CheckBox4.UseVisualStyleBackColor = True + ' 'CheckBox3 ' Me.CheckBox3.AutoSize = True @@ -606,18 +618,6 @@ Partial Class Form1 Me.LinkLabel1.TabStop = True Me.LinkLabel1.Text = "About" ' - 'CheckBox4 - ' - Me.CheckBox4.AutoSize = True - Me.CheckBox4.Checked = True - Me.CheckBox4.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBox4.Location = New System.Drawing.Point(313, 42) - Me.CheckBox4.Name = "CheckBox4" - Me.CheckBox4.Size = New System.Drawing.Size(98, 17) - Me.CheckBox4.TabIndex = 21 - Me.CheckBox4.Text = "Add rating star" - Me.CheckBox4.UseVisualStyleBackColor = True - ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/Movies Icons/Form1.vb b/Movies Icons/Form1.vb index b8ba6a2..bf69718 100644 --- a/Movies Icons/Form1.vb +++ b/Movies Icons/Form1.vb @@ -310,6 +310,10 @@ Public Class Form1 Dim recdrawBrush As New SolidBrush(Color.WhiteSmoke) Dim recdrawFont As New Font("Arial", 48) + If Certificate.StartsWith("Rated ") Then + Certificate = Certificate.Remove(0, 6) + End If + If cert = True And Not Certificate = "" Then g.FillRectangle(recBrush, 198, 750, 240, 80) g.DrawString(Certificate, recdrawFont, recdrawBrush, recdrawRect, drawFormat)