[مساعدة]

السلام عليكم


لدعم الأحرف العربية مع المكتبة MessagingToolkit.QRCode يجب استخدام الترميز System.Text.Encoding.UTF8

لتحويل النص إلى تشفير QR يكون الكود كالتالي

كود :

Dim code As String = Me.TextBox1.Text
Dim enc As New QRCodeEncoder()
enc.QRCodeVersion = 0
Me.PictureBox1.Image = enc.Encode(code, System.Text.Encoding.UTF8)

ولتحويل ملف صورة QR إلى نص يكون الكود كالتالي

كود :

Dim dec As New QRCodeDecoder()
Dim img As QRCodeImage = New QRCodeBitmapImage(Image.FromFile("img.png"))
Dim code As String = dec.decode(img, System.Text.Encoding.UTF8)
Me.TextBox1.Text = code

---

تم إضافة المكتبة في المرفقات لمن يحتاجها