[nabil.1710]

يتم تحويل النصوص الى 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