السلام عليكم شباب
عندي مشكلة في البرنامج ان ال 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
عندي مشكلة في البرنامج ان ال 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