+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اختصار الكود (/showthread.php?tid=30287)
اختصار الكود - DK-x - 15-07-19
مرحبا
ممكن اختصار للكود وشكرا 
كود :
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 = SotRE: اختصار الكود - asemshahen5 - 15-07-19
بصراحة انا لم افهم ما تريد من النتيجة اختصار الكود ببساطة :
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
لكن الافضل وضع مثال مع توضيح المطلوب .
RE: اختصار الكود - سامي محمد - 15-07-19
فعلا عملية الاستبدال غير واضحة
هذا الكود
كود :
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