無料で高速リアルタイムにQRコードが作成できる
RealTimeQRCodeMakerのソースプログラム（全部）
<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.GroupBox1 = New System.Windows.Forms.GroupBox
Me.Button10 = New System.Windows.Forms.Button
Me.Button9 = New System.Windows.Forms.Button
Me.Button8 = New System.Windows.Forms.Button
Me.Button7 = New System.Windows.Forms.Button
Me.Button6 = New System.Windows.Forms.Button
Me.Button5 = New System.Windows.Forms.Button
Me.Button4 = New System.Windows.Forms.Button
Me.Button3 = New System.Windows.Forms.Button
Me.Button2 = New System.Windows.Forms.Button
Me.Button1 = New System.Windows.Forms.Button
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.RadioEmf = 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.LabelA = New System.Windows.Forms.Label
Me.LabelB = New System.Windows.Forms.Label
Me.LabelC = New System.Windows.Forms.Label
Me.LabelD = New System.Windows.Forms.Label
Me.LabelE = New System.Windows.Forms.Label
Me.LabelF = New System.Windows.Forms.Label
Me.LabelG = New System.Windows.Forms.Label
Me.LabelH = New System.Windows.Forms.Label
Me.LabelI = New System.Windows.Forms.Label
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
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.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(2, 31)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(358, 365)
Me.Panel1.TabIndex = 0
'
'TextBox1
'
Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBox1.Location = New System.Drawing.Point(366, 52)
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(189, 144)
Me.TextBox1.TabIndex = 1
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Checked = True
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox1.Location = New System.Drawing.Point(189, 6)
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(315, 6)
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(61, 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(279, 8)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(30, 12)
Me.Label2.TabIndex = 5
Me.Label2.Text = "Pixel"
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.Button10)
Me.GroupBox1.Controls.Add(Me.Button9)
Me.GroupBox1.Controls.Add(Me.Button8)
Me.GroupBox1.Controls.Add(Me.Button7)
Me.GroupBox1.Controls.Add(Me.Button6)
Me.GroupBox1.Controls.Add(Me.Button5)
Me.GroupBox1.Controls.Add(Me.Button4)
Me.GroupBox1.Controls.Add(Me.Button3)
Me.GroupBox1.Controls.Add(Me.Button2)
Me.GroupBox1.Controls.Add(Me.Button1)
Me.GroupBox1.Location = New System.Drawing.Point(366, 225)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(189, 171)
Me.GroupBox1.TabIndex = 6
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "色の設定"
'
'Button10
'
Me.Button10.Location = New System.Drawing.Point(6, 134)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(86, 23)
Me.Button10.TabIndex = 9
Me.Button10.Text = "マーク小背景"
Me.Button10.UseVisualStyleBackColor = True
'
'Button9
'
Me.Button9.Location = New System.Drawing.Point(98, 134)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(86, 23)
Me.Button9.TabIndex = 8
Me.Button9.Text = "マーク大背景"
Me.Button9.UseVisualStyleBackColor = True
'
'Button8
'
Me.Button8.Location = New System.Drawing.Point(6, 105)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(86, 23)
Me.Button8.TabIndex = 7
Me.Button8.Text = "マーク小"
Me.Button8.UseVisualStyleBackColor = True
'
'Button7
'
Me.Button7.Location = New System.Drawing.Point(98, 105)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(86, 23)
Me.Button7.TabIndex = 6
Me.Button7.Text = "マーク大境界"
Me.Button7.UseVisualStyleBackColor = True
'
'Button6
'
Me.Button6.Location = New System.Drawing.Point(98, 76)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(86, 23)
Me.Button6.TabIndex = 5
Me.Button6.Text = "左上マーク大"
Me.Button6.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(98, 47)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(86, 23)
Me.Button5.TabIndex = 4
Me.Button5.Text = "右下マーク大"
Me.Button5.UseVisualStyleBackColor = True
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(98, 18)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(86, 23)
Me.Button4.TabIndex = 3
Me.Button4.Text = "右上マーク大"
Me.Button4.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(6, 76)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(86, 23)
Me.Button3.TabIndex = 2
Me.Button3.Text = "余白の色"
Me.Button3.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(6, 47)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(86, 23)
Me.Button2.TabIndex = 1
Me.Button2.Text = "全体の背景色"
Me.Button2.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(6, 18)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(86, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "全体の色"
Me.Button1.UseVisualStyleBackColor = True
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Checked = True
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox2.Location = New System.Drawing.Point(99, 5)
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(2, 2)
Me.Button11.Name = "Button11"
Me.Button11.Size = New System.Drawing.Size(94, 23)
Me.Button11.TabIndex = 8
Me.Button11.Text = "QRCode表示"
Me.Button11.UseVisualStyleBackColor = True
'
'Button12
'
Me.Button12.Location = New System.Drawing.Point(382, 2)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(101, 23)
Me.Button12.TabIndex = 9
Me.Button12.Text = "クリップボード貼付"
Me.Button12.UseVisualStyleBackColor = True
'
'Button13
'
Me.Button13.Location = New System.Drawing.Point(489, 2)
Me.Button13.Name = "Button13"
Me.Button13.Size = New System.Drawing.Size(101, 23)
Me.Button13.TabIndex = 10
Me.Button13.Text = "ファイル保存"
Me.Button13.UseVisualStyleBackColor = True
'
'GroupBox5
'
Me.GroupBox5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox5.Controls.Add(Me.RadioTiff)
Me.GroupBox5.Controls.Add(Me.RadioPng)
Me.GroupBox5.Controls.Add(Me.RadioEmf)
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(561, 31)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(101, 77)
Me.GroupBox5.TabIndex = 21
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "書き出し形式"
'
'RadioTiff
'
Me.RadioTiff.AutoSize = True
Me.RadioTiff.Location = New System.Drawing.Point(53, 55)
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(53, 36)
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
'
'RadioEmf
'
Me.RadioEmf.AutoSize = True
Me.RadioEmf.Location = New System.Drawing.Point(53, 18)
Me.RadioEmf.Name = "RadioEmf"
Me.RadioEmf.Size = New System.Drawing.Size(43, 16)
Me.RadioEmf.TabIndex = 3
Me.RadioEmf.Text = "Emf"
Me.RadioEmf.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.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.NumericUpDown2.Location = New System.Drawing.Point(434, 204)
Me.NumericUpDown2.Maximum = New Decimal(New Integer() {99, 0, 0, 0})
Me.NumericUpDown2.Name = "NumericUpDown2"
Me.NumericUpDown2.Size = New System.Drawing.Size(61, 19)
Me.NumericUpDown2.TabIndex = 22
Me.NumericUpDown2.Value = New Decimal(New Integer() {4, 0, 0, 0})
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(370, 206)
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(72, 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(561, 126)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(90, 70)
Me.GroupBox2.TabIndex = 25
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "バージョン"
'
'NumericUpDown3
'
Me.NumericUpDown3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.NumericUpDown3.Location = New System.Drawing.Point(17, 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(61, 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(561, 284)
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(69, 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(69, 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(12, 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(12, 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.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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(561, 208)
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.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(380, 37)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(156, 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(695, 37)
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(180, 328)
Me.GroupBox6.TabIndex = 33
Me.GroupBox6.TabStop = False
'
'LabelA
'
Me.LabelA.AutoSize = True
Me.LabelA.Location = New System.Drawing.Point(9, 13)
Me.LabelA.Name = "LabelA"
Me.LabelA.Size = New System.Drawing.Size(40, 12)
Me.LabelA.TabIndex = 0
Me.LabelA.Text = "LabelA"
'
'LabelB
'
Me.LabelB.AutoSize = True
Me.LabelB.Location = New System.Drawing.Point(9, 30)
Me.LabelB.Name = "LabelB"
Me.LabelB.Size = New System.Drawing.Size(40, 12)
Me.LabelB.TabIndex = 1
Me.LabelB.Text = "LabelB"
'
'LabelC
'
Me.LabelC.AutoSize = True
Me.LabelC.Location = New System.Drawing.Point(9, 48)
Me.LabelC.Name = "LabelC"
Me.LabelC.Size = New System.Drawing.Size(40, 12)
Me.LabelC.TabIndex = 2
Me.LabelC.Text = "LabelC"
'
'LabelD
'
Me.LabelD.AutoSize = True
Me.LabelD.Location = New System.Drawing.Point(9, 66)
Me.LabelD.Name = "LabelD"
Me.LabelD.Size = New System.Drawing.Size(40, 12)
Me.LabelD.TabIndex = 3
Me.LabelD.Text = "LabelD"
'
'LabelE
'
Me.LabelE.AutoSize = True
Me.LabelE.Location = New System.Drawing.Point(9, 86)
Me.LabelE.Name = "LabelE"
Me.LabelE.Size = New System.Drawing.Size(39, 12)
Me.LabelE.TabIndex = 4
Me.LabelE.Text = "LabelE"
'
'LabelF
'
Me.LabelF.AutoSize = True
Me.LabelF.Location = New System.Drawing.Point(9, 105)
Me.LabelF.Name = "LabelF"
Me.LabelF.Size = New System.Drawing.Size(39, 12)
Me.LabelF.TabIndex = 5
Me.LabelF.Text = "LabelF"
'
'LabelG
'
Me.LabelG.AutoSize = True
Me.LabelG.Location = New System.Drawing.Point(9, 124)
Me.LabelG.Name = "LabelG"
Me.LabelG.Size = New System.Drawing.Size(40, 12)
Me.LabelG.TabIndex = 6
Me.LabelG.Text = "LabelG"
'
'LabelH
'
Me.LabelH.AutoSize = True
Me.LabelH.Location = New System.Drawing.Point(9, 142)
Me.LabelH.Name = "LabelH"
Me.LabelH.Size = New System.Drawing.Size(40, 12)
Me.LabelH.TabIndex = 7
Me.LabelH.Text = "LabelH"
'
'LabelI
'
Me.LabelI.AutoSize = True
Me.LabelI.Location = New System.Drawing.Point(9, 162)
Me.LabelI.Name = "LabelI"
Me.LabelI.Size = New System.Drawing.Size(35, 12)
Me.LabelI.TabIndex = 8
Me.LabelI.Text = "LabelI"
'
'MainForm
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(880, 399)
Me.Controls.Add(Me.GroupBox6)
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.GroupBox1)
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.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "MainForm"
Me.Text = "RealTimeQRCodeMaker"
CType(Me.NumericUpDown1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
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.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 GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Button6 As System.Windows.Forms.Button
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents Button7 As System.Windows.Forms.Button
Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents Button9 As System.Windows.Forms.Button
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 RadioEmf 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
End Class
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Public Class MainForm
Dim bc1 As DotNetBarcode = New DotNetBarcode
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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ColorDialog1.Color = bc1.BarColor
If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
bc1.BarColor = ColorDialog1.Color
End If
ReWriteQRCode()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ColorDialog1.Color = bc1.BackGroundColor
If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
bc1.BackGroundColor = ColorDialog1.Color
End If
ReWriteQRCode()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ColorDialog1.Color = bc1.QRColorQuitZone
If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
bc1.QRColorQuitZone = ColorDialog1.Color
End If
ReWriteQRCode()
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
ColorDialog1.Color = bc1.QRColorSmallMark
If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
bc1.QRColorSmallMark = ColorDialog1.Color
End If
ReWriteQRCode()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ColorDialog1.Color = bc1.QRColorBigMark1
If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
bc1.QRColorBigMark1 = ColorDialog1.Color
End If
ReWriteQRCode()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ColorDialog1.Color = bc1.QRColorBigMark2
If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
bc1.QRColorBigMark2 = ColorDialog1.Color
End If
ReWriteQRCode()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
ColorDialog1.Color = bc1.QRColorBigMark3
If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
bc1.QRColorBigMark3 = ColorDialog1.Color
End If
ReWriteQRCode()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
ColorDialog1.Color = bc1.QRColorBigMarkBorder1
If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
bc1.QRColorBigMarkBorder = ColorDialog1.Color
End If
ReWriteQRCode()
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
ColorDialog1.Color = bc1.QRBackColorBigMark1
If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
bc1.QRBackColorBigMark = ColorDialog1.Color
End If
ReWriteQRCode()
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
ColorDialog1.Color = bc1.QRBackColorSmallMark
If (ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
bc1.QRBackColorSmallMark = ColorDialog1.Color
End If
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 RadioEmf.Checked = True Then
.Filter = "EMF(*.emf)|*.emf|すべてのファイル(*.*)|*.*"
bc1.SaveFileType = DotNetBarcode.SaveFileTypes.Emf
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
End Class