منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم شباب
عندي مشكلة في البرنامج ان ال  QR يعمل فقط مع اللغه الانجليزية بشكل جيد ولكن عن تغير الكتابة الى اللغه العربية يظهر معي العربي على شكل رموز
علما اني قمت باضافة هذا الملف JLSQRCode.dll لكي يشتغل معي ال QR
ارجوا النصيحة لو تكرمتم اخواني

---

(08-11-21, 03:49 PM)nawiha كتب : [ -> ]السلام عليكم شباب
عندي مشكلة في البرنامج ان ال  QR يعمل فقط مع اللغه الانجليزية بشكل جيد ولكن عن تغير الكتابة الى اللغه العربية يظهر معي العربي على شكل رموز
علما اني قمت باضافة هذا الملف JLSQRCode.dll لكي يشتغل معي ال QR
ارجوا النصيحة لو تكرمتم اخواني

هذا هوه الكود

Option Explicit
Dim actualwidth As Long
Dim actualheight As Long

Private Sub generateQRCode()
QRCode1.Data = txtmessage.Text
End Sub
Private Sub command1_click()
Image1.Picture = Picture1.Picture
SavePicture Image1, App.Path & "\" & Text1.Text & ".jpg"
End Sub
Private Sub command2_click()
QRCode1.Data = txtmessage.Text
QRCode1.CopyToClipboard
End Sub
Private Sub form_load()
generateQRCode
End Sub
Private Sub textmessage_change()
If Len(txtmessage.Text) > 255 Then
txtmessage.Text.SelStart = Len(txtmessage.Text)
label12.ForeColor = vbRed
Exit Sub
End If
Label2.ForeColor = vbBlack
Label2.Caption = "length: " & Len(txtmessage.Text) & "/255"
Picture1.Picture = LoadPicture("")
Call generateQRCode
QRCode1.GetActualwidht True, vbNull, actualwidth, actuaheight
QRCode1.Width = actualwidth + 2500
QRCode1.Height = actualheight + 2500
QRCode1.CopyToClipboard
Picture1.Picture = Clipboard.GetData
Image1.Picture = LoadPicture("")
End Sub

وعليكم السلام:
ممكن ارفاق برنامج مصغر (المشروع) تكون فيه المشكلة واضحة 
وارفق معه ملف الـ Dll أو الـ OCX المستخدم ؟؟

وعليكم السلام ورحمة الله وبركاته
الرجاء ارفاق الملف JLSQRCode.dll ولك جزيل الشكر