15-07-19, 09:07 PM
فعلا عملية الاستبدال غير واضحة
هذا الكود
مثل هذه تماما
استبدل : محمد بـ محمد ؟؟؟؟
---------------------
لكن يمكنك ايضا الاستفاده من هذه الطريقة ان تم تصحيح عملية الاستبدال
هذا الكود
كود :
Dim Src = "Label" & i
Sot = Sot.Replace(Src, Label1.Text)مثل هذه تماما
كود :
Sot = Sot.Replace(Label1.Text, Label1.Text)استبدل : محمد بـ محمد ؟؟؟؟
---------------------
لكن يمكنك ايضا الاستفاده من هذه الطريقة ان تم تصحيح عملية الاستبدال
كود :
Dim Sot As String
Sot = Label28.Text
Dim Lbl As Label
For x As Integer = 1 To 26
Lbl = CType(Controls("Label" & x), Label)
Dim Src As String = Lbl.Text
Sot = Sot.Replace(Src, Src)
Next