[DK-x]

مرحبا 

ممكن اختصار للكود وشكرا 

كود :

Dim Sot As String
       Sot = Label28.Text
       For i = 1 To 26
           Dim Src = "Label" & i
           Select Case i
               Case 1
                   Sot = Sot.Replace(Src, Label1.Text)
               Case 2
                   Sot = Sot.Replace(Src, Label2.Text)
               Case 3
                   Sot = Sot.Replace(Src, Label3.Text)
               Case 4
                   Sot = Sot.Replace(Src, Label4.Text)
               Case 5
                   Sot = Sot.Replace(Src, Label5.Text)
               Case 6
                   Sot = Sot.Replace(Src, Label6.Text)
               Case 7
                   Sot = Sot.Replace(Src, Label7.Text)
               Case 8
                   Sot = Sot.Replace(Src, Label8.Text)
               Case 9
                   Sot = Sot.Replace(Src, Label9.Text)
               Case 10
                   Sot = Sot.Replace(Src, Label10.Text)
               Case 11
                   Sot = Sot.Replace(Src, Label11.Text)
               Case 12
                   Sot = Sot.Replace(Src, Label12.Text)
               Case 13
                   Sot = Sot.Replace(Src, Label13.Text)
               Case 14
                   Sot = Sot.Replace(Src, Label14.Text)
               Case 15
                   Sot = Sot.Replace(Src, Label15.Text)
               Case 16
                   Sot = Sot.Replace(Src, Label16.Text)
               Case 17
                   Sot = Sot.Replace(Src, Label17.Text)
               Case 18
                   Sot = Sot.Replace(Src, Label18.Text)
               Case 19
                   Sot = Sot.Replace(Src, Label19.Text)
               Case 20
                   Sot = Sot.Replace(Src, Label20.Text)
               Case 21
                   Sot = Sot.Replace(Src, Label21.Text)
               Case 22
                   Sot = Sot.Replace(Src, Label22.Text)
               Case 23
                   Sot = Sot.Replace(Src, Label23.Text)
               Case 24
                   Sot = Sot.Replace(Src, Label24.Text)
               Case 25
                   Sot = Sot.Replace(Src, Label25.Text)
           End Select
       Next
       Label28.Text = Sot

[asemshahen5]

بصراحة انا لم افهم ما تريد من النتيجة اختصار الكود ببساطة :

PHP كود :

   Sub LoopLabel()
        Dim Sot As String
        Sot = Label28.Text
        Dim i As Integer = 0
        For Each Lbl As Control In Me.Controls
            Dim Src = "Label" & i
            If TypeOf Lbl Is Label Then
                If Not Lbl.Name = "Label26" Or Not Lbl.Name = "Label27" Then
                    Select Case i
                        Case i
                            Sot = Sot.Replace(Src, Lbl.Text)
                    End Select
                End If
            End If
            i += 1
        Next
        Label29.Text = Sot
    End Sub 


لكن الافضل وضع مثال مع توضيح المطلوب .

[سامي محمد]

فعلا عملية الاستبدال غير واضحة 


هذا الكود

كود :

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