無料で高機能なカラフルQRコードが作成できる
ColorfulQRCodeMakerのソースプログラムのみ
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