خلاصه نوشتن کدهای مشابه

[Hassan2500]

سلام

آیا میشه کدهای زیر رو بصورت خلاصه نوشت


Private Sub Command1_Click()
Text1(1) = Replace(Text1(1), "-", "")
Text2(1) = Replace(Text2(1), "-", "")
Text3(1) = Replace(Text3(1), "-", "")
Text4(1) = Replace(Text4(1), "-", "")
Text5(1) = Replace(Text5(1), "-", "")
End Sub


مثلاً تکست1 با ایندکس 1 تا 5 خلاصه اش که یکی از دوستان برام نوشته اینطوری میشه


Private Sub Command1_Click()
Dim i
For i = Text1.LBound To Text1.UBound
Text1(i) = Replace(Text1(i), "-", "")
Next i
End Sub

[محسن واژدی]

سلام علیکم
Private Sub Command1_Click()
Dim i, oObj
For i = 1 To 5
Set oObj = Controls("Text" & i)
oObj(1) = Replace(oObj(1), "-", "")
Next
End Sub

موفق باشید

[Hassan2500]

جناب واژدی حالا کدتون باید چطوری تغییر کنه که اینطوری هم بشه

Private Sub Command1_Click()
Text1(1) = Replace(Text1(1), "-", "")
Text2(1) = Replace(Text2(1), "-", "")
Text3(1) = Replace(Text3(1), "-", "")
Text4(1) = Replace(Text4(1), "-", "")
Text5(1) = Replace(Text5(1), "-", "")
Text1(2) = Replace(Text1(2), "+", "")
Text2(2) = Replace(Text2(2), "+", "")
Text3(2) = Replace(Text3(2), "+", "")
Text4(2) = Replace(Text4(2), "+", "")
Text5(2) = Replace(Text5(2), "+", "")
End Sub

[محسن واژدی]

خط زیر را هم به حلقه اضافه کنید:
oObj(2) = Replace(oObj(2), "+", "")

موفق باشید

[Hassan2500]

حالا اگه بدون ایندکس باشن چطوری باید خلاصه نوشته بشن

Text1 = "-"
Text2 = "-"
Text3 = "-"
Text4 = "-"
Text5 = "-"
Text6 = "+"
Text7 = "+"
Text8 = "+"
Text9 = "+"
Text10 = "+"

[محسن واژدی]

حالا اگه بدون ایندکس باشن چطوری باید خلاصه نوشته بشن

Text1 = "-"
Text2 = "-"
Text3 = "-"
Text4 = "-"
Text5 = "-"
Text6 = "+"
Text7 = "+"
Text8 = "+"
Text9 = "+"
Text10 = "+"


Private Sub Command1_Click()

Dim i, oObj

For i = 1 To 10
Set oObj = Controls("Text" & i)

If i <= 5 Then
oObj.Text = "-"
Else
oObj.Text = "+"
End If

Next

End Sub