無料で高機能なカラフルQRコードが作成できる
ColorfulQRCodeMakerのソースプログラム（全部）
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class MainForm
Inherits System.Windows.Forms.Form
'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Windows フォーム デザイナで必要です。
Private components As System.ComponentModel.IContainer
'メモ: 以下のプロシージャは Windows フォーム デザイナで必要です。
'Windows フォーム デザイナを使用して変更できます。
'コード エディタを使って変更しないでください。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MainForm))
Me.Panel1 = New System.Windows.Forms.Panel
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.NumericUpDown1 = New System.Windows.Forms.NumericUpDown
Me.Label2 = New System.Windows.Forms.Label
Me.ColorDialog1 = New System.Windows.Forms.ColorDialog
Me.CheckBox2 = New System.Windows.Forms.CheckBox
Me.Button11 = New System.Windows.Forms.Button
Me.Button12 = New System.Windows.Forms.Button
Me.Button13 = New System.Windows.Forms.Button
Me.GroupBox5 = New System.Windows.Forms.GroupBox
Me.RadioTiff = New System.Windows.Forms.RadioButton
Me.RadioPng = New System.Windows.Forms.RadioButton
Me.RadioGif = New System.Windows.Forms.RadioButton
Me.RadioJpeg = New System.Windows.Forms.RadioButton
Me.RadioBitMap = New System.Windows.Forms.RadioButton
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog
Me.NumericUpDown2 = New System.Windows.Forms.NumericUpDown
Me.Label3 = New System.Windows.Forms.Label
Me.CheckBox3 = New System.Windows.Forms.CheckBox
Me.GroupBox2 = New System.Windows.Forms.GroupBox
Me.NumericUpDown3 = New System.Windows.Forms.NumericUpDown
Me.GroupBox3 = New System.Windows.Forms.GroupBox
Me.RadioButton6 = New System.Windows.Forms.RadioButton
Me.RadioButton9 = New System.Windows.Forms.RadioButton
Me.RadioButton5 = New System.Windows.Forms.RadioButton
Me.RadioButton8 = New System.Windows.Forms.RadioButton
Me.RadioButton7 = New System.Windows.Forms.RadioButton
Me.RadioButton3 = New System.Windows.Forms.RadioButton
Me.RadioButton4 = New System.Windows.Forms.RadioButton
Me.RadioButton2 = New System.Windows.Forms.RadioButton
Me.RadioButton1 = New System.Windows.Forms.RadioButton
Me.GroupBox4 = New System.Windows.Forms.GroupBox
Me.Label4 = New System.Windows.Forms.Label
Me.GroupBox6 = New System.Windows.Forms.GroupBox
Me.LabelI = New System.Windows.Forms.Label
Me.LabelH = New System.Windows.Forms.Label
Me.LabelG = New System.Windows.Forms.Label
Me.LabelF = New System.Windows.Forms.Label
Me.LabelE = New System.Windows.Forms.Label
Me.LabelD = New System.Windows.Forms.Label
Me.LabelC = New System.Windows.Forms.Label
Me.LabelB = New System.Windows.Forms.Label
Me.LabelA = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.GroupBox1 = New System.Windows.Forms.GroupBox
Me.RadioButton12 = New System.Windows.Forms.RadioButton
Me.RadioButton10 = New System.Windows.Forms.RadioButton
Me.RadioButton11 = New System.Windows.Forms.RadioButton
Me.Label5 = New System.Windows.Forms.Label
Me.GroupBox7 = New System.Windows.Forms.GroupBox
Me.RadioButton16 = New System.Windows.Forms.RadioButton
Me.RadioButton17 = New System.Windows.Forms.RadioButton
Me.RadioButton18 = New System.Windows.Forms.RadioButton
Me.RadioButton19 = New System.Windows.Forms.RadioButton
Me.RadioButton13 = New System.Windows.Forms.RadioButton
Me.RadioButton14 = New System.Windows.Forms.RadioButton
Me.RadioButton15 = New System.Windows.Forms.RadioButton
Me.Label6 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.Label8 = New System.Windows.Forms.Label
Me.NumericUpDown5 = New System.Windows.Forms.NumericUpDown
Me.NumericUpDown4 = New System.Windows.Forms.NumericUpDown
Me.GroupBox8 = New System.Windows.Forms.GroupBox
Me.GroupBox9 = New System.Windows.Forms.GroupBox
Me.Label9 = New System.Windows.Forms.Label
Me.NumericUpDown6 = New System.Windows.Forms.NumericUpDown
Me.Button17 = New System.Windows.Forms.Button
Me.Button16 = New System.Windows.Forms.Button
Me.Label10 = New System.Windows.Forms.Label
Me.NumericUpDown7 = New System.Windows.Forms.NumericUpDown
Me.Button20 = New System.Windows.Forms.Button
Me.Button21 = New System.Windows.Forms.Button
Me.GroupBox10 = New System.Windows.Forms.GroupBox
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
Me.GroupBox11 = New System.Windows.Forms.GroupBox
Me.Label11 = New System.Windows.Forms.Label
Me.RadioButton21 = New System.Windows.Forms.RadioButton
Me.RadioButton20 = New System.Windows.Forms.RadioButton
Me.NumericUpDown8 = New System.Windows.Forms.NumericUpDown
Me.CheckBox4 = New System.Windows.Forms.CheckBox
Me.Label12 = New System.Windows.Forms.Label
Me.Label13 = New System.Windows.Forms.Label
Me.SelectColorControl5 = New ColorfulQRCodeMaker.SelectColorControl
Me.SelectColorControl6 = New ColorfulQRCodeMaker.SelectColorControl
Me.SelectColorControl8 = New ColorfulQRCodeMaker.SelectColorControl
Me.SelectColorControl7 = New ColorfulQRCodeMaker.SelectColorControl
Me.SelectColorControl2 = New ColorfulQRCodeMaker.SelectColorControl
Me.SelectColorControl4 = New ColorfulQRCodeMaker.SelectColorControl
Me.SelectColorControl1 = New ColorfulQRCodeMaker.SelectColorControl
Me.SelectColorControl3 = New ColorfulQRCodeMaker.SelectColorControl
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox5.SuspendLayout()
CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
CType(Me.NumericUpDown3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox6.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.GroupBox7.SuspendLayout()
CType(Me.NumericUpDown5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDown4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox8.SuspendLayout()
Me.GroupBox9.SuspendLayout()
CType(Me.NumericUpDown6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.NumericUpDown7, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox10.SuspendLayout()
Me.GroupBox11.SuspendLayout()
CType(Me.NumericUpDown8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BackColor = System.Drawing.Color.White
Me.Panel1.Location = New System.Drawing.Point(349, 194)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(397, 470)
Me.Panel1.TabIndex = 0
'
'TextBox1
'
Me.TextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBox1.Location = New System.Drawing.Point(349, 22)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(222, 151)
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = "Colorful QRCode Maker"
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Checked = True
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox1.Location = New System.Drawing.Point(11, 81)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(84, 16)
Me.CheckBox1.TabIndex = 3
Me.CheckBox1.Text = "枠にあわせる"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'NumericUpDown1
'
Me.NumericUpDown1.Location = New System.Drawing.Point(52, 98)
Me.NumericUpDown1.Maximum = New Decimal(New Integer() {99, 0, 0, 0})
Me.NumericUpDown1.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.NumericUpDown1.Name = "NumericUpDown1"
Me.NumericUpDown1.Size = New System.Drawing.Size(66, 19)
Me.NumericUpDown1.TabIndex = 4
Me.NumericUpDown1.Value = New Decimal(New Integer() {3, 0, 0, 0})
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(16, 100)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(30, 12)
Me.Label2.TabIndex = 5
Me.Label2.Text = "Pixel"
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Checked = True
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox2.Location = New System.Drawing.Point(11, 33)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(84, 16)
Me.CheckBox2.TabIndex = 7
Me.CheckBox2.Text = "自動再描画"
Me.CheckBox2.UseVisualStyleBackColor = True
'
'Button11
'
Me.Button11.Location = New System.Drawing.Point(6, 7)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(112, 23)
Me.Button11.TabIndex = 8
Me.Button11.Text = "QRCode表示"
Me.Button11.UseVisualStyleBackColor = True
'
'Button12
'
Me.Button12.Location = New System.Drawing.Point(6, 265)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(112, 23)
Me.Button12.TabIndex = 9
Me.Button12.Text = "クリップボード貼付"
Me.Button12.UseVisualStyleBackColor = True
'
'Button13
'
Me.Button13.Location = New System.Drawing.Point(6, 151)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(112, 23)
Me.Button13.TabIndex = 10
Me.Button13.Text = "ファイル保存"
Me.Button13.UseVisualStyleBackColor = True
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.RadioTiff)
Me.GroupBox5.Controls.Add(Me.RadioPng)
Me.GroupBox5.Controls.Add(Me.RadioGif)
Me.GroupBox5.Controls.Add(Me.RadioJpeg)
Me.GroupBox5.Controls.Add(Me.RadioBitMap)
Me.GroupBox5.Location = New System.Drawing.Point(6, 180)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(112, 77)
Me.GroupBox5.TabIndex = 21
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "書き出し形式"
'
'RadioTiff
'
Me.RadioTiff.AutoSize = True
Me.RadioTiff.Location = New System.Drawing.Point(61, 37)
Me.RadioTiff.Name = "RadioTiff"
Me.RadioTiff.Size = New System.Drawing.Size(41, 16)
Me.RadioTiff.TabIndex = 6
Me.RadioTiff.Text = "Tiff"
Me.RadioTiff.UseVisualStyleBackColor = True
'
'RadioPng
'
Me.RadioPng.AutoSize = True
Me.RadioPng.Location = New System.Drawing.Point(61, 18)
Me.RadioPng.Name = "RadioPng"
Me.RadioPng.Size = New System.Drawing.Size(42, 16)
Me.RadioPng.TabIndex = 5
Me.RadioPng.Text = "Png"
Me.RadioPng.UseVisualStyleBackColor = True
'
'RadioGif
'
Me.RadioGif.AutoSize = True
Me.RadioGif.Location = New System.Drawing.Point(8, 55)
Me.RadioGif.Name = "RadioGif"
Me.RadioGif.Size = New System.Drawing.Size(38, 16)
Me.RadioGif.TabIndex = 2
Me.RadioGif.Text = "Gif"
Me.RadioGif.UseVisualStyleBackColor = True
'
'RadioJpeg
'
Me.RadioJpeg.AutoSize = True
Me.RadioJpeg.Location = New System.Drawing.Point(8, 36)
Me.RadioJpeg.Name = "RadioJpeg"
Me.RadioJpeg.Size = New System.Drawing.Size(48, 16)
Me.RadioJpeg.TabIndex = 1
Me.RadioJpeg.Text = "Jpeg"
Me.RadioJpeg.UseVisualStyleBackColor = True
'
'RadioBitMap
'
Me.RadioBitMap.AutoSize = True
Me.RadioBitMap.Checked = True
Me.RadioBitMap.Location = New System.Drawing.Point(8, 18)
Me.RadioBitMap.Name = "RadioBitMap"
Me.RadioBitMap.Size = New System.Drawing.Size(47, 16)
Me.RadioBitMap.TabIndex = 0
Me.RadioBitMap.TabStop = True
Me.RadioBitMap.Text = "BMP"
Me.RadioBitMap.UseVisualStyleBackColor = True
'
'NumericUpDown2
'
Me.NumericUpDown2.Location = New System.Drawing.Point(70, 125)
Me.NumericUpDown2.Maximum = New Decimal(New Integer() {99, 0, 0, 0})
Me.NumericUpDown2.Name = "NumericUpDown2"
Me.NumericUpDown2.Size = New System.Drawing.Size(50, 19)
Me.NumericUpDown2.TabIndex = 22
Me.NumericUpDown2.Value = New Decimal(New Integer() {4, 0, 0, 0})
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(11, 127)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(58, 12)
Me.Label3.TabIndex = 23
Me.Label3.Text = "余白サイズ"
'
'CheckBox3
'
Me.CheckBox3.AutoSize = True
Me.CheckBox3.Checked = True
Me.CheckBox3.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox3.Location = New System.Drawing.Point(6, 18)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(48, 16)
Me.CheckBox3.TabIndex = 24
Me.CheckBox3.Text = "自動"
Me.CheckBox3.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox2.Controls.Add(Me.NumericUpDown3)
Me.GroupBox2.Controls.Add(Me.CheckBox3)
Me.GroupBox2.Location = New System.Drawing.Point(886, 583)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(68, 81)
Me.GroupBox2.TabIndex = 25
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "バージョン"
'
'NumericUpDown3
'
Me.NumericUpDown3.Location = New System.Drawing.Point(6, 40)
Me.NumericUpDown3.Maximum = New Decimal(New Integer() {40, 0, 0, 0})
Me.NumericUpDown3.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.NumericUpDown3.Name = "NumericUpDown3"
Me.NumericUpDown3.Size = New System.Drawing.Size(50, 19)
Me.NumericUpDown3.TabIndex = 26
Me.NumericUpDown3.Value = New Decimal(New Integer() {1, 0, 0, 0})
'
'GroupBox3
'
Me.GroupBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox3.Controls.Add(Me.RadioButton6)
Me.GroupBox3.Controls.Add(Me.RadioButton9)
Me.GroupBox3.Controls.Add(Me.RadioButton5)
Me.GroupBox3.Controls.Add(Me.RadioButton8)
Me.GroupBox3.Controls.Add(Me.RadioButton7)
Me.GroupBox3.Location = New System.Drawing.Point(752, 583)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(128, 81)
Me.GroupBox3.TabIndex = 26
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "文字の種類"
'
'RadioButton6
'
Me.RadioButton6.AutoSize = True
Me.RadioButton6.Location = New System.Drawing.Point(6, 37)
Me.RadioButton6.Name = "RadioButton6"
Me.RadioButton6.Size = New System.Drawing.Size(47, 16)
Me.RadioButton6.TabIndex = 10
Me.RadioButton6.Text = "数字"
Me.RadioButton6.UseVisualStyleBackColor = True
'
'RadioButton9
'
Me.RadioButton9.AutoSize = True
Me.RadioButton9.Location = New System.Drawing.Point(63, 56)
Me.RadioButton9.Name = "RadioButton9"
Me.RadioButton9.Size = New System.Drawing.Size(59, 16)
Me.RadioButton9.TabIndex = 13
Me.RadioButton9.Text = "バイナリ"
Me.RadioButton9.UseVisualStyleBackColor = True
'
'RadioButton5
'
Me.RadioButton5.AutoSize = True
Me.RadioButton5.Checked = True
Me.RadioButton5.Location = New System.Drawing.Point(6, 19)
Me.RadioButton5.Name = "RadioButton5"
Me.RadioButton5.Size = New System.Drawing.Size(47, 16)
Me.RadioButton5.TabIndex = 9
Me.RadioButton5.TabStop = True
Me.RadioButton5.Text = "自動"
Me.RadioButton5.UseVisualStyleBackColor = True
'
'RadioButton8
'
Me.RadioButton8.AutoSize = True
Me.RadioButton8.Location = New System.Drawing.Point(63, 38)
Me.RadioButton8.Name = "RadioButton8"
Me.RadioButton8.Size = New System.Drawing.Size(47, 16)
Me.RadioButton8.TabIndex = 12
Me.RadioButton8.Text = "漢字"
Me.RadioButton8.UseVisualStyleBackColor = True
'
'RadioButton7
'
Me.RadioButton7.AutoSize = True
Me.RadioButton7.Location = New System.Drawing.Point(6, 56)
Me.RadioButton7.Name = "RadioButton7"
Me.RadioButton7.Size = New System.Drawing.Size(59, 16)
Me.RadioButton7.TabIndex = 11
Me.RadioButton7.Text = "英数字"
Me.RadioButton7.UseVisualStyleBackColor = True
'
'RadioButton3
'
Me.RadioButton3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.RadioButton3.AutoSize = True
Me.RadioButton3.Location = New System.Drawing.Point(65, 18)
Me.RadioButton3.Name = "RadioButton3"
Me.RadioButton3.Size = New System.Drawing.Size(57, 16)
Me.RadioButton3.TabIndex = 30
Me.RadioButton3.Text = "Q(25%)"
Me.RadioButton3.UseVisualStyleBackColor = True
'
'RadioButton4
'
Me.RadioButton4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.RadioButton4.AutoSize = True
Me.RadioButton4.Location = New System.Drawing.Point(65, 36)
Me.RadioButton4.Name = "RadioButton4"
Me.RadioButton4.Size = New System.Drawing.Size(57, 16)
Me.RadioButton4.TabIndex = 29
Me.RadioButton4.Text = "H(30%)"
Me.RadioButton4.UseVisualStyleBackColor = True
'
'RadioButton2
'
Me.RadioButton2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.RadioButton2.AutoSize = True
Me.RadioButton2.Checked = True
Me.RadioButton2.Location = New System.Drawing.Point(7, 36)
Me.RadioButton2.Name = "RadioButton2"
Me.RadioButton2.Size = New System.Drawing.Size(58, 16)
Me.RadioButton2.TabIndex = 28
Me.RadioButton2.TabStop = True
Me.RadioButton2.Text = "M(15%)"
Me.RadioButton2.UseVisualStyleBackColor = True
'
'RadioButton1
'
Me.RadioButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.RadioButton1.AutoSize = True
Me.RadioButton1.Location = New System.Drawing.Point(7, 18)
Me.RadioButton1.Name = "RadioButton1"
Me.RadioButton1.Size = New System.Drawing.Size(49, 16)
Me.RadioButton1.TabIndex = 27
Me.RadioButton1.Text = "L(7%)"
Me.RadioButton1.UseVisualStyleBackColor = True
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.RadioButton1)
Me.GroupBox4.Controls.Add(Me.RadioButton3)
Me.GroupBox4.Controls.Add(Me.RadioButton2)
Me.GroupBox4.Controls.Add(Me.RadioButton4)
Me.GroupBox4.Location = New System.Drawing.Point(7, 294)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(128, 58)
Me.GroupBox4.TabIndex = 31
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "誤り訂正レベル"
'
'Label4
'
Me.Label4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.Label4.ForeColor = System.Drawing.Color.Blue
Me.Label4.Location = New System.Drawing.Point(349, 7)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(172, 12)
Me.Label4.TabIndex = 32
Me.Label4.Text = "【QRコード表示テキスト入力域】"
'
'GroupBox6
'
Me.GroupBox6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GroupBox6.Controls.Add(Me.LabelI)
Me.GroupBox6.Controls.Add(Me.LabelH)
Me.GroupBox6.Controls.Add(Me.LabelG)
Me.GroupBox6.Controls.Add(Me.LabelF)
Me.GroupBox6.Controls.Add(Me.LabelE)
Me.GroupBox6.Controls.Add(Me.LabelD)
Me.GroupBox6.Controls.Add(Me.LabelC)
Me.GroupBox6.Controls.Add(Me.LabelB)
Me.GroupBox6.Controls.Add(Me.LabelA)
Me.GroupBox6.Location = New System.Drawing.Point(577, 7)
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(169, 167)
Me.GroupBox6.TabIndex = 33
Me.GroupBox6.TabStop = False
'
'LabelI
'
Me.LabelI.AutoSize = True
Me.LabelI.Location = New System.Drawing.Point(2, 156)
Me.LabelI.Name = "LabelI"
Me.LabelI.Size = New System.Drawing.Size(35, 12)
Me.LabelI.TabIndex = 8
Me.LabelI.Text = "LabelI"
'
'LabelH
'
Me.LabelH.AutoSize = True
Me.LabelH.Location = New System.Drawing.Point(2, 136)
Me.LabelH.Name = "LabelH"
Me.LabelH.Size = New System.Drawing.Size(40, 12)
Me.LabelH.TabIndex = 7
Me.LabelH.Text = "LabelH"
'
'LabelG
'
Me.LabelG.AutoSize = True
Me.LabelG.Location = New System.Drawing.Point(2, 118)
Me.LabelG.Name = "LabelG"
Me.LabelG.Size = New System.Drawing.Size(40, 12)
Me.LabelG.TabIndex = 6
Me.LabelG.Text = "LabelG"
'
'LabelF
'
Me.LabelF.AutoSize = True
Me.LabelF.Location = New System.Drawing.Point(2, 99)
Me.LabelF.Name = "LabelF"
Me.LabelF.Size = New System.Drawing.Size(39, 12)
Me.LabelF.TabIndex = 5
Me.LabelF.Text = "LabelF"
'
'LabelE
'
Me.LabelE.AutoSize = True
Me.LabelE.Location = New System.Drawing.Point(2, 80)
Me.LabelE.Name = "LabelE"
Me.LabelE.Size = New System.Drawing.Size(39, 12)
Me.LabelE.TabIndex = 4
Me.LabelE.Text = "LabelE"
'
'LabelD
'
Me.LabelD.AutoSize = True
Me.LabelD.Location = New System.Drawing.Point(2, 60)
Me.LabelD.Name = "LabelD"
Me.LabelD.Size = New System.Drawing.Size(40, 12)
Me.LabelD.TabIndex = 3
Me.LabelD.Text = "LabelD"
'
'LabelC
'
Me.LabelC.AutoSize = True
Me.LabelC.Location = New System.Drawing.Point(2, 42)
Me.LabelC.Name = "LabelC"
Me.LabelC.Size = New System.Drawing.Size(40, 12)
Me.LabelC.TabIndex = 2
Me.LabelC.Text = "LabelC"
'
'LabelB
'
Me.LabelB.AutoSize = True
Me.LabelB.Location = New System.Drawing.Point(2, 24)
Me.LabelB.Name = "LabelB"
Me.LabelB.Size = New System.Drawing.Size(40, 12)
Me.LabelB.TabIndex = 1
Me.LabelB.Text = "LabelB"
'
'LabelA
'
Me.LabelA.AutoSize = True
Me.LabelA.Location = New System.Drawing.Point(2, 7)
Me.LabelA.Name = "LabelA"
Me.LabelA.Size = New System.Drawing.Size(40, 12)
Me.LabelA.TabIndex = 0
Me.LabelA.Text = "LabelA"
'
'Label1
'
Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Green
Me.Label1.Location = New System.Drawing.Point(359, 179)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(358, 12)
Me.Label1.TabIndex = 35
Me.Label1.Text = "【QRコード表示域：フォーム全体の拡大/縮小で表示域拡大/縮小】"
'
'GroupBox1
'
Me.GroupBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GroupBox1.Controls.Add(Me.RadioButton12)
Me.GroupBox1.Controls.Add(Me.RadioButton10)
Me.GroupBox1.Controls.Add(Me.RadioButton11)
Me.GroupBox1.Location = New System.Drawing.Point(141, 217)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(202, 40)
Me.GroupBox1.TabIndex = 43
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "【マーク(大)の変更位置指定】"
'
'RadioButton12
'
Me.RadioButton12.AutoSize = True
Me.RadioButton12.Location = New System.Drawing.Point(127, 18)
Me.RadioButton12.Name = "RadioButton12"
Me.RadioButton12.Size = New System.Drawing.Size(47, 16)
Me.RadioButton12.TabIndex = 46
Me.RadioButton12.Text = "左上"
Me.RadioButton12.UseVisualStyleBackColor = True
'
'RadioButton10
'
Me.RadioButton10.AutoSize = True
Me.RadioButton10.Checked = True
Me.RadioButton10.Location = New System.Drawing.Point(20, 18)
Me.RadioButton10.Name = "RadioButton10"
Me.RadioButton10.Size = New System.Drawing.Size(47, 16)
Me.RadioButton10.TabIndex = 44
Me.RadioButton10.TabStop = True
Me.RadioButton10.Text = "右上"
Me.RadioButton10.UseVisualStyleBackColor = True
'
'RadioButton11
'
Me.RadioButton11.AutoSize = True
Me.RadioButton11.Location = New System.Drawing.Point(74, 18)
Me.RadioButton11.Name = "RadioButton11"
Me.RadioButton11.Size = New System.Drawing.Size(47, 16)
Me.RadioButton11.TabIndex = 45
Me.RadioButton11.Text = "右下"
Me.RadioButton11.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("MS UI Gothic", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.Label5.ForeColor = System.Drawing.Color.Blue
Me.Label5.Location = New System.Drawing.Point(12, 50)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(113, 30)
Me.Label5.TabIndex = 47
Me.Label5.Text = "↑QRCodeがい大きい場合チェックをはずす"
'
'GroupBox7
'
Me.GroupBox7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.GroupBox7.Controls.Add(Me.RadioButton16)
Me.GroupBox7.Controls.Add(Me.RadioButton17)
Me.GroupBox7.Controls.Add(Me.RadioButton18)
Me.GroupBox7.Controls.Add(Me.RadioButton19)
Me.GroupBox7.Controls.Add(Me.RadioButton13)
Me.GroupBox7.Controls.Add(Me.RadioButton14)
Me.GroupBox7.Controls.Add(Me.RadioButton15)
Me.GroupBox7.Location = New System.Drawing.Point(752, 376)
Me.GroupBox7.Name = "GroupBox7"
Me.GroupBox7.Size = New System.Drawing.Size(202, 74)
Me.GroupBox7.TabIndex = 47
Me.GroupBox7.TabStop = False
Me.GroupBox7.Text = "【マーク(大)の変更位置指定】"
'
'RadioButton16
'
Me.RadioButton16.AutoSize = True
Me.RadioButton16.Font = New System.Drawing.Font("MS UI Gothic", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.RadioButton16.Location = New System.Drawing.Point(97, 53)
Me.RadioButton16.Name = "RadioButton16"
Me.RadioButton16.Size = New System.Drawing.Size(103, 15)
Me.RadioButton16.TabIndex = 48
Me.RadioButton16.Text = "Version情報背景"
Me.RadioButton16.UseVisualStyleBackColor = True
'
'RadioButton17
'
Me.RadioButton17.AutoSize = True
Me.RadioButton17.Font = New System.Drawing.Font("MS UI Gothic", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.RadioButton17.Location = New System.Drawing.Point(97, 39)
Me.RadioButton17.Name = "RadioButton17"
Me.RadioButton17.Size = New System.Drawing.Size(101, 15)
Me.RadioButton17.TabIndex = 47
Me.RadioButton17.Text = "Version情報の色"
Me.RadioButton17.UseVisualStyleBackColor = True
'
'RadioButton18
'
Me.RadioButton18.AutoSize = True
Me.RadioButton18.Font = New System.Drawing.Font("MS UI Gothic", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.RadioButton18.Location = New System.Drawing.Point(2, 53)
Me.RadioButton18.Name = "RadioButton18"
Me.RadioButton18.Size = New System.Drawing.Size(100, 15)
Me.RadioButton18.TabIndex = 50
Me.RadioButton18.Text = "Format情報背景"
Me.RadioButton18.UseVisualStyleBackColor = True
'
'RadioButton19
'
Me.RadioButton19.AutoSize = True
Me.RadioButton19.Font = New System.Drawing.Font("MS UI Gothic", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.RadioButton19.Location = New System.Drawing.Point(2, 39)
Me.RadioButton19.Name = "RadioButton19"
Me.RadioButton19.Size = New System.Drawing.Size(98, 15)
Me.RadioButton19.TabIndex = 49
Me.RadioButton19.Text = "Format情報の色"
Me.RadioButton19.UseVisualStyleBackColor = True
'
'RadioButton13
'
Me.RadioButton13.AutoSize = True
Me.RadioButton13.Font = New System.Drawing.Font("MS UI Gothic", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.RadioButton13.Location = New System.Drawing.Point(61, 27)
Me.RadioButton13.Name = "RadioButton13"
Me.RadioButton13.Size = New System.Drawing.Size(129, 15)
Me.RadioButton13.TabIndex = 46
Me.RadioButton13.Text = "タイミングパターン背景色"
Me.RadioButton13.UseVisualStyleBackColor = True
'
'RadioButton14
'
Me.RadioButton14.AutoSize = True
Me.RadioButton14.Checked = True
Me.RadioButton14.Location = New System.Drawing.Point(8, 18)
Me.RadioButton14.Name = "RadioButton14"
Me.RadioButton14.Size = New System.Drawing.Size(47, 16)
Me.RadioButton14.TabIndex = 44
Me.RadioButton14.TabStop = True
Me.RadioButton14.Text = "余白"
Me.RadioButton14.UseVisualStyleBackColor = True
'
'RadioButton15
'
Me.RadioButton15.AutoSize = True
Me.RadioButton15.Font = New System.Drawing.Font("MS UI Gothic", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.RadioButton15.Location = New System.Drawing.Point(61, 14)
Me.RadioButton15.Name = "RadioButton15"
Me.RadioButton15.Size = New System.Drawing.Size(116, 15)
Me.RadioButton15.TabIndex = 45
Me.RadioButton15.Text = "タイミングパターンの色"
Me.RadioButton15.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(213, 7)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(63, 12)
Me.Label6.TabIndex = 48
Me.Label6.Text = "【色の設定】"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(7, 48)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(29, 12)
Me.Label7.TabIndex = 52
Me.Label7.Text = "詳細"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(7, 15)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(53, 24)
Me.Label8.TabIndex = 50
Me.Label8.Text = "90度単位" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(簡易)"
'
'NumericUpDown5
'
Me.NumericUpDown5.Location = New System.Drawing.Point(65, 46)
Me.NumericUpDown5.Maximum = New Decimal(New Integer() {3600, 0, 0, 0})
Me.NumericUpDown5.Minimum = New Decimal(New Integer() {3600, 0, 0, -2147483648})
Me.NumericUpDown5.Name = "NumericUpDown5"
Me.NumericUpDown5.Size = New System.Drawing.Size(49, 19)
Me.NumericUpDown5.TabIndex = 51
'
'NumericUpDown4
'
Me.NumericUpDown4.Increment = New Decimal(New Integer() {90, 0, 0, 0})
Me.NumericUpDown4.Location = New System.Drawing.Point(66, 15)
Me.NumericUpDown4.Maximum = New Decimal(New Integer() {270, 0, 0, 0})
Me.NumericUpDown4.Name = "NumericUpDown4"
Me.NumericUpDown4.Size = New System.Drawing.Size(49, 19)
Me.NumericUpDown4.TabIndex = 49
'
'GroupBox8
'
Me.GroupBox8.Controls.Add(Me.Label8)
Me.GroupBox8.Controls.Add(Me.Label7)
Me.GroupBox8.Controls.Add(Me.NumericUpDown5)
Me.GroupBox8.Controls.Add(Me.NumericUpDown4)
Me.GroupBox8.Location = New System.Drawing.Point(7, 359)
Me.GroupBox8.Name = "GroupBox8"
Me.GroupBox8.Size = New System.Drawing.Size(128, 70)
Me.GroupBox8.TabIndex = 53
Me.GroupBox8.TabStop = False
Me.GroupBox8.Text = "回転"
'
'GroupBox9
'
Me.GroupBox9.BackColor = System.Drawing.Color.White
Me.GroupBox9.Controls.Add(Me.Label9)
Me.GroupBox9.Controls.Add(Me.NumericUpDown6)
Me.GroupBox9.Controls.Add(Me.Button17)
Me.GroupBox9.Controls.Add(Me.Button16)
Me.GroupBox9.Location = New System.Drawing.Point(6, 531)
Me.GroupBox9.Name = "GroupBox9"
Me.GroupBox9.Size = New System.Drawing.Size(128, 92)
Me.GroupBox9.TabIndex = 54
Me.GroupBox9.TabStop = False
Me.GroupBox9.Text = "前景【未対応】"
Me.GroupBox9.Visible = False
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(7, 45)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(41, 12)
Me.Label9.TabIndex = 45
Me.Label9.Text = "透明度"
'
'NumericUpDown6
'
Me.NumericUpDown6.Increment = New Decimal(New Integer() {5, 0, 0, 0})
Me.NumericUpDown6.Location = New System.Drawing.Point(7, 60)
Me.NumericUpDown6.Maximum = New Decimal(New Integer() {256, 0, 0, 0})
Me.NumericUpDown6.Name = "NumericUpDown6"
Me.NumericUpDown6.Size = New System.Drawing.Size(48, 19)
Me.NumericUpDown6.TabIndex = 44
'
'Button17
'
Me.Button17.Location = New System.Drawing.Point(61, 48)
Me.Button17.Name = "Button17"
Me.Button17.Size = New System.Drawing.Size(56, 23)
Me.Button17.TabIndex = 43
Me.Button17.Text = "前景なし"
Me.Button17.UseVisualStyleBackColor = True
'
'Button16
'
Me.Button16.Location = New System.Drawing.Point(7, 18)
Me.Button16.Name = "Button16"
Me.Button16.Size = New System.Drawing.Size(111, 24)
Me.Button16.TabIndex = 42
Me.Button16.Text = "前景ファイル選択..."
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(7, 45)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(41, 12)
Me.Label10.TabIndex = 49
Me.Label10.Text = "透明度"
'
'NumericUpDown7
'
Me.NumericUpDown7.Increment = New Decimal(New Integer() {5, 0, 0, 0})
Me.NumericUpDown7.Location = New System.Drawing.Point(6, 60)
Me.NumericUpDown7.Maximum = New Decimal(New Integer() {256, 0, 0, 0})
Me.NumericUpDown7.Name = "NumericUpDown7"
Me.NumericUpDown7.Size = New System.Drawing.Size(48, 19)
Me.NumericUpDown7.TabIndex = 48
'
'Button20
'
Me.Button20.Location = New System.Drawing.Point(61, 48)
Me.Button20.Name = "Button20"
Me.Button20.Size = New System.Drawing.Size(57, 23)
Me.Button20.TabIndex = 47
Me.Button20.Text = "背景なし"
Me.Button20.UseVisualStyleBackColor = True
'
'Button21
'
Me.Button21.Location = New System.Drawing.Point(7, 18)
Me.Button21.Name = "Button21"
Me.Button21.Size = New System.Drawing.Size(111, 24)
Me.Button21.TabIndex = 46
Me.Button21.Text = "背景ファイル選択..."
'
'GroupBox10
'
Me.GroupBox10.Controls.Add(Me.Button21)
Me.GroupBox10.Controls.Add(Me.NumericUpDown7)
Me.GroupBox10.Controls.Add(Me.Label10)
Me.GroupBox10.Controls.Add(Me.Button20)
Me.GroupBox10.Location = New System.Drawing.Point(7, 435)
Me.GroupBox10.Name = "GroupBox10"
Me.GroupBox10.Size = New System.Drawing.Size(128, 90)
Me.GroupBox10.TabIndex = 55
Me.GroupBox10.TabStop = False
Me.GroupBox10.Text = "背景イメージファイル"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'GroupBox11
'
Me.GroupBox11.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.GroupBox11.Controls.Add(Me.Label11)
Me.GroupBox11.Controls.Add(Me.RadioButton21)
Me.GroupBox11.Controls.Add(Me.RadioButton20)
Me.GroupBox11.Controls.Add(Me.NumericUpDown8)
Me.GroupBox11.Controls.Add(Me.CheckBox4)
Me.GroupBox11.Location = New System.Drawing.Point(141, 22)
Me.GroupBox11.Name = "GroupBox11"
Me.GroupBox11.Size = New System.Drawing.Size(202, 64)
Me.GroupBox11.TabIndex = 56
Me.GroupBox11.TabStop = False
Me.GroupBox11.Text = "グラデーション"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Enabled = False
Me.Label11.Location = New System.Drawing.Point(25, 41)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(29, 12)
Me.Label11.TabIndex = 4
Me.Label11.Text = "角度"
'
'RadioButton21
'
Me.RadioButton21.AutoSize = True
Me.RadioButton21.Enabled = False
Me.RadioButton21.Location = New System.Drawing.Point(137, 37)
Me.RadioButton21.Name = "RadioButton21"
Me.RadioButton21.Size = New System.Drawing.Size(59, 16)
Me.RadioButton21.TabIndex = 3
Me.RadioButton21.Text = "終了色"
Me.RadioButton21.UseVisualStyleBackColor = True
'
'RadioButton20
'
Me.RadioButton20.AutoSize = True
Me.RadioButton20.Checked = True
Me.RadioButton20.Enabled = False
Me.RadioButton20.Location = New System.Drawing.Point(137, 14)
Me.RadioButton20.Name = "RadioButton20"
Me.RadioButton20.Size = New System.Drawing.Size(59, 16)
Me.RadioButton20.TabIndex = 2
Me.RadioButton20.TabStop = True
Me.RadioButton20.Text = "開始色"
Me.RadioButton20.UseVisualStyleBackColor = True
'
'NumericUpDown8
'
Me.NumericUpDown8.Enabled = False
Me.NumericUpDown8.Location = New System.Drawing.Point(60, 37)
Me.NumericUpDown8.Maximum = New Decimal(New Integer() {90, 0, 0, 0})
Me.NumericUpDown8.Name = "NumericUpDown8"
Me.NumericUpDown8.Size = New System.Drawing.Size(60, 19)
Me.NumericUpDown8.TabIndex = 1
'
'CheckBox4
'
Me.CheckBox4.AutoSize = True
Me.CheckBox4.Location = New System.Drawing.Point(6, 15)
Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(114, 16)
Me.CheckBox4.TabIndex = 0
Me.CheckBox4.Text = "グラデーションを使う"
Me.CheckBox4.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("Arial", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.ForeColor = System.Drawing.Color.Red
Me.Label12.Location = New System.Drawing.Point(7, 626)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(280, 22)
Me.Label12.TabIndex = 57
Me.Label12.Text = "ColorfulQRCodeMaker V1.2.0"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Arial", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.ForeColor = System.Drawing.Color.Blue
Me.Label13.Location = New System.Drawing.Point(113, 646)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(198, 18)
Me.Label13.TabIndex = 58
Me.Label13.Text = "with DotNetBarcode V2.4.1"
'
'SelectColorControl5
'
Me.SelectColorControl5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.SelectColorControl5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.SelectColorControl5.BackGroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer))
Me.SelectColorControl5.Color = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl5.Location = New System.Drawing.Point(752, 442)
Me.SelectColorControl5.Name = "SelectColorControl5"
Me.SelectColorControl5.Size = New System.Drawing.Size(202, 135)
Me.SelectColorControl5.TabIndex = 39
Me.SelectColorControl5.Title = "【余白の色】"
'
'SelectColorControl6
'
Me.SelectColorControl6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.SelectColorControl6.BackGroundColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.SelectColorControl6.Color = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl6.Location = New System.Drawing.Point(141, 502)
Me.SelectColorControl6.Name = "SelectColorControl6"
Me.SelectColorControl6.Size = New System.Drawing.Size(202, 124)
Me.SelectColorControl6.TabIndex = 44
Me.SelectColorControl6.Title = "【マーク(大)の境界の色】"
'
'SelectColorControl8
'
Me.SelectColorControl8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.SelectColorControl8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl8.BackGroundColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl8.Color = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl8.Location = New System.Drawing.Point(752, 249)
Me.SelectColorControl8.Name = "SelectColorControl8"
Me.SelectColorControl8.Size = New System.Drawing.Size(202, 135)
Me.SelectColorControl8.TabIndex = 46
Me.SelectColorControl8.Title = "【マーク(小)の色:バージョン２以上】"
'
'SelectColorControl7
'
Me.SelectColorControl7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.SelectColorControl7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl7.BackGroundColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl7.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.SelectColorControl7.Location = New System.Drawing.Point(752, 122)
Me.SelectColorControl7.Name = "SelectColorControl7"
Me.SelectColorControl7.Size = New System.Drawing.Size(202, 135)
Me.SelectColorControl7.TabIndex = 45
Me.SelectColorControl7.Title = "【マーク(小)の色:バージョン２以上】"
'
'SelectColorControl2
'
Me.SelectColorControl2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.SelectColorControl2.BackColor = System.Drawing.SystemColors.Control
Me.SelectColorControl2.BackGroundColor = System.Drawing.SystemColors.Control
Me.SelectColorControl2.Color = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl2.Location = New System.Drawing.Point(752, -4)
Me.SelectColorControl2.Name = "SelectColorControl2"
Me.SelectColorControl2.Size = New System.Drawing.Size(202, 135)
Me.SelectColorControl2.TabIndex = 36
Me.SelectColorControl2.Title = "【全体背景変更(全背景Reset)】"
'
'SelectColorControl4
'
Me.SelectColorControl4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.SelectColorControl4.BackGroundColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.SelectColorControl4.Color = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl4.Location = New System.Drawing.Point(141, 378)
Me.SelectColorControl4.Name = "SelectColorControl4"
Me.SelectColorControl4.Size = New System.Drawing.Size(202, 142)
Me.SelectColorControl4.TabIndex = 38
Me.SelectColorControl4.Title = "【マーク(大)の背景色】"
'
'SelectColorControl1
'
Me.SelectColorControl1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl1.BackGroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
Me.SelectColorControl1.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.SelectColorControl1.Location = New System.Drawing.Point(141, 84)
Me.SelectColorControl1.Name = "SelectColorControl1"
Me.SelectColorControl1.Size = New System.Drawing.Size(202, 135)
Me.SelectColorControl1.TabIndex = 34
Me.SelectColorControl1.Title = "【全体色変更(全体色がReset)】"
'
'SelectColorControl3
'
Me.SelectColorControl3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.SelectColorControl3.BackGroundColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.SelectColorControl3.Color = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.SelectColorControl3.Location = New System.Drawing.Point(141, 254)
Me.SelectColorControl3.Name = "SelectColorControl3"
Me.SelectColorControl3.Size = New System.Drawing.Size(202, 133)
Me.SelectColorControl3.TabIndex = 37
Me.SelectColorControl3.Title = "【マーク(大)の色】"
'
'MainForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(958, 668)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.GroupBox11)
Me.Controls.Add(Me.GroupBox10)
Me.Controls.Add(Me.GroupBox9)
Me.Controls.Add(Me.GroupBox8)
Me.Controls.Add(Me.SelectColorControl5)
Me.Controls.Add(Me.GroupBox7)
Me.Controls.Add(Me.SelectColorControl6)
Me.Controls.Add(Me.SelectColorControl8)
Me.Controls.Add(Me.SelectColorControl7)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.SelectColorControl2)
Me.Controls.Add(Me.SelectColorControl4)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.SelectColorControl1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.GroupBox4)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.NumericUpDown2)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.GroupBox5)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.CheckBox2)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.NumericUpDown1)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.SelectColorControl3)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.GroupBox6)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "MainForm"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Show
Me.Text = "ColorfulQRCodeMaker"
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
CType(Me.NumericUpDown2, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
CType(Me.NumericUpDown3, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.GroupBox6.ResumeLayout(False)
Me.GroupBox6.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox7.ResumeLayout(False)
Me.GroupBox7.PerformLayout()
CType(Me.NumericUpDown5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDown4, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox8.ResumeLayout(False)
Me.GroupBox8.PerformLayout()
Me.GroupBox9.ResumeLayout(False)
Me.GroupBox9.PerformLayout()
CType(Me.NumericUpDown6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.NumericUpDown7, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox10.ResumeLayout(False)
Me.GroupBox10.PerformLayout()
Me.GroupBox11.ResumeLayout(False)
Me.GroupBox11.PerformLayout()
CType(Me.NumericUpDown8, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents NumericUpDown1 As System.Windows.Forms.NumericUpDown
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents Button11 As System.Windows.Forms.Button
Friend WithEvents Button12 As System.Windows.Forms.Button
Friend WithEvents Button13 As System.Windows.Forms.Button
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
Friend WithEvents RadioTiff As System.Windows.Forms.RadioButton
Friend WithEvents RadioPng As System.Windows.Forms.RadioButton
Friend WithEvents RadioGif As System.Windows.Forms.RadioButton
Friend WithEvents RadioJpeg As System.Windows.Forms.RadioButton
Friend WithEvents RadioBitMap As System.Windows.Forms.RadioButton
Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
Friend WithEvents NumericUpDown2 As System.Windows.Forms.NumericUpDown
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents NumericUpDown3 As System.Windows.Forms.NumericUpDown
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton9 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton5 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton8 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton7 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton3 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton4 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton2 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton1 As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
Friend WithEvents LabelA As System.Windows.Forms.Label
Friend WithEvents LabelF As System.Windows.Forms.Label
Friend WithEvents LabelE As System.Windows.Forms.Label
Friend WithEvents LabelD As System.Windows.Forms.Label
Friend WithEvents LabelC As System.Windows.Forms.Label
Friend WithEvents LabelB As System.Windows.Forms.Label
Friend WithEvents LabelI As System.Windows.Forms.Label
Friend WithEvents LabelH As System.Windows.Forms.Label
Friend WithEvents LabelG As System.Windows.Forms.Label
Friend WithEvents SelectColorControl1 As ColorfulQRCodeMaker.SelectColorControl
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents SelectColorControl2 As ColorfulQRCodeMaker.SelectColorControl
Friend WithEvents SelectColorControl5 As ColorfulQRCodeMaker.SelectColorControl
Friend WithEvents SelectColorControl3 As ColorfulQRCodeMaker.SelectColorControl
Friend WithEvents SelectColorControl4 As ColorfulQRCodeMaker.SelectColorControl
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents RadioButton12 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton10 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton11 As System.Windows.Forms.RadioButton
Friend WithEvents SelectColorControl6 As ColorfulQRCodeMaker.SelectColorControl
Friend WithEvents SelectColorControl7 As ColorfulQRCodeMaker.SelectColorControl
Friend WithEvents SelectColorControl8 As ColorfulQRCodeMaker.SelectColorControl
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
Friend WithEvents RadioButton13 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton14 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton15 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton18 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton19 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton16 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton17 As System.Windows.Forms.RadioButton
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents NumericUpDown5 As System.Windows.Forms.NumericUpDown
Friend WithEvents NumericUpDown4 As System.Windows.Forms.NumericUpDown
Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
Friend WithEvents GroupBox9 As System.Windows.Forms.GroupBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents NumericUpDown6 As System.Windows.Forms.NumericUpDown
Friend WithEvents Button17 As System.Windows.Forms.Button
Friend WithEvents Button16 As System.Windows.Forms.Button
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents NumericUpDown7 As System.Windows.Forms.NumericUpDown
Friend WithEvents Button20 As System.Windows.Forms.Button
Friend WithEvents Button21 As System.Windows.Forms.Button
Friend WithEvents GroupBox10 As System.Windows.Forms.GroupBox
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents GroupBox11 As System.Windows.Forms.GroupBox
Friend WithEvents RadioButton21 As System.Windows.Forms.RadioButton
Friend WithEvents RadioButton20 As System.Windows.Forms.RadioButton
Friend WithEvents NumericUpDown8 As System.Windows.Forms.NumericUpDown
Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
End Class
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Public Class MainForm
Dim bc1 As DotNetBarcode = New DotNetBarcode
Dim lGradColor1 As Color = Color.Black
Dim lGradColor2 As Color = Color.Black
Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
Dim x1 As Single
Dim y1 As Single
Dim x2 As Single
Dim y2 As Single
Dim BarcodeNumber As String
x1 = 0
y1 = 0
x2 = Me.Panel1.Size.Width
y2 = Me.Panel1.Size.Height
BarcodeNumber = Me.TextBox1.Text()
If CheckBox3.Checked = True Then
bc1.QRSetVersion = DotNetBarcode.QRVersions.Automatic
Else
bc1.QRSetVersion = NumericUpDown3.Value
End If
If RadioButton1.Checked = True Then
bc1.QRSetECCRate = DotNetBarcode.QRECCRates.Low7Percent
End If
If RadioButton2.Checked = True Then
bc1.QRSetECCRate = DotNetBarcode.QRECCRates.Medium15Percent
End If
If RadioButton3.Checked = True Then
bc1.QRSetECCRate = DotNetBarcode.QRECCRates.Quality25Percent
End If
If RadioButton4.Checked = True Then
bc1.QRSetECCRate = DotNetBarcode.QRECCRates.HighQuality30Percent
End If
If RadioButton5.Checked = True Then
bc1.QRSetTextType = DotNetBarcode.QRTextTypes.Automatic
End If
If RadioButton6.Checked = True Then
bc1.QRSetTextType = DotNetBarcode.QRTextTypes.Numeric
End If
If RadioButton7.Checked = True Then
bc1.QRSetTextType = DotNetBarcode.QRTextTypes.AlphaNumeric
End If
If RadioButton8.Checked = True Then
bc1.QRSetTextType = DotNetBarcode.QRTextTypes.Kanji
End If
If RadioButton9.Checked = True Then
bc1.QRSetTextType = DotNetBarcode.QRTextTypes.Binary
End If
If CheckBox1.Checked = True Then
bc1.WriteBar(BarcodeNumber, x1, y1, x2, y2, e.Graphics)
Else
bc1.QRWriteBar(BarcodeNumber, x1, y1, NumericUpDown1.Value, e.Graphics)
End If
If BarcodeNumber <> "" And bc1.QRInquireVersion >= DotNetBarcode.QRVersions.Ver01 And bc1.QRInquireVersion <= DotNetBarcode.QRVersions.Ver40 Then
Dim t As Integer
LabelA.Text = "【種類選択】=" + bc1.QRInquireTextType.ToString
LabelB.Text = "【指定Version】=" + bc1.QRSetVersion.ToString
LabelC.Text = "【出力結果Version】=" + bc1.QRInquireVersion.ToString
'色を元に戻す。
LabelD.ForeColor = Color.Black
LabelE.ForeColor = Color.Black
LabelF.ForeColor = Color.Black
LabelG.ForeColor = Color.Black
t = bc1.QRInquireNumericBits
LabelD.Text = "【数字ビット数】=" + t.ToString
If t = 0 Then
LabelD.ForeColor = Color.Gray
End If
If bc1.QRInquireTextType = DotNetBarcode.QRTextTypes.Numeric Then
LabelD.ForeColor = Color.Blue
End If
t = bc1.QRInquireAlphaNumericBits
LabelE.Text = "【英数字ビット数】=" + t.ToString
If t = 0 Then
LabelE.ForeColor = Color.Gray
End If
If bc1.QRInquireTextType = DotNetBarcode.QRTextTypes.AlphaNumeric Then
LabelE.ForeColor = Color.Blue
End If
t = bc1.QRInquireKanjiBits
LabelF.Text = "【漢字ビット数】=" + t.ToString
If t = 0 Then
LabelF.ForeColor = Color.Gray
End If
If bc1.QRInquireTextType = DotNetBarcode.QRTextTypes.Kanji Then
LabelF.ForeColor = Color.Blue
End If
t = bc1.QRInquireBinaryBits
LabelG.Text = "【バイナリビット数】=" + t.ToString
If t = 0 Then
LabelG.ForeColor = Color.Gray
End If
If bc1.QRInquireTextType = DotNetBarcode.QRTextTypes.Binary Then
LabelG.ForeColor = Color.Blue
End If
If bc1.QRInquireModuleSize <> 0 Then
LabelH.Text = "【モジュールサイズ】=" + bc1.QRInquireModuleSize.ToString
End If
Else
ClearOutputLabel()
End If
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
Label2.Enabled = False
NumericUpDown1.Enabled = False
Else
Label2.Enabled = True
NumericUpDown1.Enabled = True
End If
ReWriteQRCode()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bc1.Type = DotNetBarcode.Types.QRCode
ClearOutputLabel()
End Sub
Private Sub ClearOutputLabel()
LabelA.Text = ""
LabelB.Text = ""
LabelC.Text = ""
LabelD.Text = ""
LabelE.Text = ""
LabelF.Text = ""
LabelG.Text = ""
LabelH.Text = ""
LabelI.Text = ""
End Sub
'QRCodeの再描画
Private Sub ReWriteQRCode()
If CheckBox2.Checked = True Then
Panel1.Refresh()
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
ReWriteQRCode()
End Sub
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
ReWriteQRCode()
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
ReWriteQRCode()
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
Button11.Enabled = False
ReWriteQRCode()
Else
Button11.Enabled = True
End If
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Panel1.Refresh()
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim BarcodeNumber As String
Dim x As Single
Dim y As Single
x = Me.Panel1.Size.Width
y = Me.Panel1.Size.Height
BarcodeNumber = Me.TextBox1.Text()
If CheckBox1.Checked = True Then
bc1.CopyToClipboard(BarcodeNumber, x, y)
Else
bc1.QRCopyToClipboard(BarcodeNumber, NumericUpDown1.Value)
End If
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim myFileName As String = ""
With SaveFileDialog1 'ファイル名を尋ねる。
.RestoreDirectory = True
.OverwritePrompt = True
.FilterIndex = 1
.FileName = ""
If RadioBitMap.Checked = True Then
.Filter = "ビットマップ・ファイル(*.bmp)|*.bmp|すべてのファイル(*.*)|*.*"
bc1.SaveFileType = DotNetBarcode.SaveFileTypes.BitMap
End If
If RadioJpeg.Checked = True Then
.Filter = "JPEG(*.jpg)|*.jpg|すべてのファイル(*.*)|*.*"
bc1.SaveFileType = DotNetBarcode.SaveFileTypes.Jpeg
End If
If RadioGif.Checked = True Then
.Filter = "GIF(*.gif)|*.gif|すべてのファイル(*.*)|*.*"
bc1.SaveFileType = DotNetBarcode.SaveFileTypes.Gif
End If
If RadioPng.Checked = True Then
.Filter = "PNG(*.png)|*.png|すべてのファイル(*.*)|*.*"
bc1.SaveFileType = DotNetBarcode.SaveFileTypes.Png
End If
If RadioTiff.Checked = True Then
.Filter = "TIFF(*.tiff)|*.tiff|すべてのファイル(*.*)|*.*"
bc1.SaveFileType = DotNetBarcode.SaveFileTypes.Gif
End If
If .ShowDialog = Windows.Forms.DialogResult.OK Then
myFileName = .FileName
Dim BarcodeNumber As String
Dim x As Single
Dim y As Single
x = Me.Panel1.Size.Width
y = Me.Panel1.Size.Height
BarcodeNumber = Me.TextBox1.Text()
If CheckBox1.Checked = True Then
bc1.Save(BarcodeNumber, myFileName, x, y)
Else
bc1.QRSave(BarcodeNumber, myFileName, NumericUpDown1.Value)
End If
End If
End With
End Sub
Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
bc1.QRQuitZone = NumericUpDown2.Value
ReWriteQRCode()
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
NumericUpDown3.Enabled = False
Else
NumericUpDown3.Enabled = True
End If
ReWriteQRCode()
End Sub
Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
ReWriteQRCode()
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
ReWriteQRCode()
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
ReWriteQRCode()
End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
ReWriteQRCode()
End Sub
Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged
ReWriteQRCode()
End Sub
Private Sub RadioButton9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.CheckedChanged
ReWriteQRCode()
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
ReWriteQRCode()
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
ReWriteQRCode()
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
ReWriteQRCode()
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
ReWriteQRCode()
End Sub
Private Sub SelectColorControl1_SelectedColorChanged() Handles SelectColorControl1.SelectedColorChanged
If CheckBox4.Checked = True Then
If RadioButton20.Checked = True Then
lGradColor1 = SelectColorControl1.Color
Else
lGradColor2 = SelectColorControl1.Color
End If
bc1.QRGradationColor = New Color() {lGradColor1, lGradColor2}
Else
bc1.BarColor = SelectColorControl1.Color
End If
ReWriteQRCode()
End Sub
Private Sub SelectColorControl2_SelectedColorChanged() Handles SelectColorControl2.SelectedColorChanged
bc1.BackGroundColor = SelectColorControl2.Color
ReWriteQRCode()
End Sub
Private Sub SelectColorControl3_SelectedColorChanged() Handles SelectColorControl3.SelectedColorChanged
If RadioButton10.Checked Then
bc1.QRColorBigMark1 = SelectColorControl3.Color
End If
If RadioButton11.Checked = True Then
bc1.QRColorBigMark2 = SelectColorControl3.Color
End If
If RadioButton12.Checked = True Then
bc1.QRColorBigMark3 = SelectColorControl3.Color
End If
ReWriteQRCode()
End Sub
Private Sub SelectColorControl4_SelectedColorChanged() Handles SelectColorControl4.SelectedColorChanged
If RadioButton10.Checked Then
bc1.QRBackColorBigMark1 = SelectColorControl4.Color
End If
If RadioButton11.Checked = True Then
bc1.QRBackColorBigMark2 = SelectColorControl4.Color
End If
If RadioButton12.Checked = True Then
bc1.QRBackColorBigMark3 = SelectColorControl4.Color
End If
ReWriteQRCode()
End Sub
Private Sub SelectColorControl6_SelectedColorChanged() Handles SelectColorControl6.SelectedColorChanged
If RadioButton10.Checked Then
bc1.QRColorBigMarkBorder1 = SelectColorControl6.Color
End If
If RadioButton11.Checked = True Then
bc1.QRColorBigMarkBorder2 = SelectColorControl6.Color
End If
If RadioButton12.Checked = True Then
bc1.QRColorBigMarkBorder3 = SelectColorControl6.Color
End If
ReWriteQRCode()
End Sub
Private Sub SelectColorControl7_SelectedColorChanged() Handles SelectColorControl7.SelectedColorChanged
bc1.QRColorSmallMark = SelectColorControl7.Color
ReWriteQRCode()
End Sub
Private Sub SelectColorControl8_SelectedColorChanged() Handles SelectColorControl8.SelectedColorChanged
bc1.QRBackColorSmallMark = SelectColorControl8.Color
ReWriteQRCode()
End Sub
Private Sub RadioButton10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton10.CheckedChanged
SelectColorControl3.Color = bc1.QRColorBigMark1
SelectColorControl4.Color = bc1.QRBackColorBigMark1
SelectColorControl6.Color = bc1.QRColorBigMarkBorder1
End Sub
Private Sub RadioButton11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton11.CheckedChanged
SelectColorControl3.Color = bc1.QRColorBigMark2
SelectColorControl4.Color = bc1.QRBackColorBigMark2
SelectColorControl6.Color = bc1.QRColorBigMarkBorder2
End Sub
Private Sub RadioButton12_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton12.CheckedChanged
SelectColorControl3.Color = bc1.QRColorBigMark3
SelectColorControl4.Color = bc1.QRBackColorBigMark3
SelectColorControl6.Color = bc1.QRColorBigMarkBorder3
End Sub
Private Sub SelectColorControl5_SelectedColorChanged() Handles SelectColorControl5.SelectedColorChanged
If RadioButton14.Checked Then
bc1.QRColorQuitZone = SelectColorControl5.Color
End If
If RadioButton15.Checked Then
bc1.QRColorTimingPattern = SelectColorControl5.Color
End If
If RadioButton13.Checked Then
bc1.QRBackColorTimingPattern = SelectColorControl5.Color
End If
If RadioButton17.Checked Then
bc1.QRColorVersionInformation = SelectColorControl5.Color
End If
If RadioButton16.Checked Then
bc1.QRBackColorVersionInformation = SelectColorControl5.Color
End If
If RadioButton19.Checked Then
bc1.QRColorFormatInformation = SelectColorControl5.Color
End If
If RadioButton18.Checked Then
bc1.QRBackColorFormatInformation = SelectColorControl5.Color
End If
ReWriteQRCode()
End Sub
Private Sub RadioButton14_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton14.CheckedChanged
SelectColorControl5.Color = bc1.QRColorQuitZone
SelectColorControl5.Title = "【余白の色】"
End Sub
Private Sub RadioButton15_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton15.CheckedChanged
SelectColorControl5.Color = bc1.QRColorTimingPattern
SelectColorControl5.Title = "【タイミングパターンの色】"
End Sub
Private Sub RadioButton13_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton13.CheckedChanged
SelectColorControl5.Color = bc1.QRBackColorTimingPattern
SelectColorControl5.Title = "【タイミングパターンの背景色】"
End Sub
Private Sub RadioButton17_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton17.CheckedChanged
SelectColorControl5.Color = bc1.QRColorVersionInformation
SelectColorControl5.Title = "【Version情報の色:Version7以上】"
End Sub
Private Sub RadioButton16_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton16.CheckedChanged
SelectColorControl5.Color = bc1.QRBackColorVersionInformation
SelectColorControl5.Title = "【Version情報背景:Version7以上】"
End Sub
Private Sub RadioButton19_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton19.CheckedChanged
SelectColorControl5.Color = bc1.QRColorFormatInformation
SelectColorControl5.Title = "【フォーマット情報の色】"
End Sub
Private Sub RadioButton18_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton18.CheckedChanged
SelectColorControl5.Color = bc1.QRBackColorFormatInformation
SelectColorControl5.Title = "【フォーマット情報背景色】"
End Sub
Private Sub SelectColorControl5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectColorControl5.Load
End Sub
Private Sub RadioTiff_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioTiff.CheckedChanged
End Sub
Private Sub NumericUpDown4_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown4.ValueChanged
Select Case NumericUpDown4.Value
Case 0
bc1.Rotate = DotNetBarcode.Rotates.Rotate0
Case 90
bc1.Rotate = DotNetBarcode.Rotates.Rotate90
Case 180
bc1.Rotate = DotNetBarcode.Rotates.Rotate180
Case 270
bc1.Rotate = DotNetBarcode.Rotates.Rotate270
Case Else
End Select
ReWriteQRCode()
End Sub
Private Sub NumericUpDown5_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown5.ValueChanged
bc1.QRRotate = NumericUpDown5.Value
ReWriteQRCode()
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
'OpenFileDialog1.Filter = "イメージファイル(*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif"
'OpenFileDialog1.FileName = ""
'If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
' bc1.QRForeGroundFileName = OpenFileDialog1.FileName
'End If
'ReWriteQRCode()
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
'bc1.QRForeGroundFileName = ""
'ReWriteQRCode()
End Sub
Private Sub NumericUpDown6_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown6.ValueChanged
'bc1.QRForeGroundFileAlpha = NumericUpDown6.Value
'ReWriteQRCode()
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
OpenFileDialog1.Filter = "イメージファイル(*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif"
OpenFileDialog1.FileName = ""
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
bc1.QRBackGroundFileName = OpenFileDialog1.FileName
End If
ReWriteQRCode()
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
bc1.QRBackGroundFileName = ""
ReWriteQRCode()
End Sub
Private Sub NumericUpDown7_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown7.ValueChanged
bc1.QRBackGroundFileAlpha = NumericUpDown7.Value
ReWriteQRCode()
End Sub
Private Sub RadioButton20_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton20.CheckedChanged
If CheckBox4.Checked = True Then
SelectColorControl1.Color = lGradColor1
End If
End Sub
Private Sub RadioButton21_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton21.CheckedChanged
If CheckBox4.Checked = True Then
SelectColorControl1.Color = lGradColor2
End If
End Sub
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked = True Then
bc1.QRGradationColor = New Color() {lGradColor1, lGradColor2}
RadioButton20.Enabled = True
RadioButton21.Enabled = True
Label11.Enabled = True
NumericUpDown8.Enabled = True
If RadioButton20.Checked = True Then
SelectColorControl1.Color = lGradColor1
Else
SelectColorControl1.Color = lGradColor2
End If
Else
bc1.QRGradationColor = New Color() {}
RadioButton20.Enabled = False
RadioButton21.Enabled = False
Label11.Enabled = False
NumericUpDown8.Enabled = False
SelectColorControl1.Color = bc1.BarColor
End If
End Sub
Private Sub SelectColorControl3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectColorControl3.Load
End Sub
Private Sub SelectColorControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelectColorControl1.Load
End Sub
Private Sub NumericUpDown8_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown8.ValueChanged
bc1.QRGradationRotate = NumericUpDown8.Value
ReWriteQRCode()
End Sub
End Class