14-07-21, 08:39 PM
يتم تحويل النصوص الى QR فى حالة لو عدد الاحرف 100 حرف و فى حال اكثر من ذلك لم يتم التحوير .
انا اريد ان يتم التحويل الى QR لو عدد الاحرف من 200 حرف الى 250 حرف
Imports MessagingToolkit.QRCode.Codec
Public Class Form1
REM qr code generator
Private Sub qrcodeGen()
Try
Dim qrCode As New QRCodeEncoder
qrCode.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE
qrCode.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.L
Me.PictureBox1.Image = qrCode.Encode(Me.txtCode.Text, System.Text.Encoding.UTF8)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Call qrcodeGen()
End Sub
انا اريد ان يتم التحويل الى QR لو عدد الاحرف من 200 حرف الى 250 حرف
Imports MessagingToolkit.QRCode.Codec
Public Class Form1
REM qr code generator
Private Sub qrcodeGen()
Try
Dim qrCode As New QRCodeEncoder
qrCode.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE
qrCode.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.L
Me.PictureBox1.Image = qrCode.Encode(Me.txtCode.Text, System.Text.Encoding.UTF8)
Catch ex As Exception
MessageBox.Show(ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Call qrcodeGen()
End Sub