View Full Version : سوال: خلاصه نوشتن کدهای مشابه
Hassan2500
سه شنبه 02 آبان 1391, 20:33 عصر
سلام
آیا میشه کدهای زیر رو بصورت خلاصه نوشت
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
محسن واژدی
سه شنبه 02 آبان 1391, 20:47 عصر
سلام علیکم
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
سه شنبه 02 آبان 1391, 20:53 عصر
جناب واژدی حالا کدتون باید چطوری تغییر کنه که اینطوری هم بشه
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
محسن واژدی
سه شنبه 02 آبان 1391, 21:06 عصر
خط زیر را هم به حلقه اضافه کنید:
oObj(2) = Replace(oObj(2), "+", "")
موفق باشید
Hassan2500
سه شنبه 02 آبان 1391, 21:10 عصر
حالا اگه بدون ایندکس باشن چطوری باید خلاصه نوشته بشن
Text1 = "-"
Text2 = "-"
Text3 = "-"
Text4 = "-"
Text5 = "-"
Text6 = "+"
Text7 = "+"
Text8 = "+"
Text9 = "+"
Text10 = "+"
محسن واژدی
سه شنبه 02 آبان 1391, 21:18 عصر
حالا اگه بدون ایندکس باشن چطوری باید خلاصه نوشته بشن
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.