Hassan2500
دوشنبه 05 تیر 1391, 22:08 عصر
سلام
وقتی این کدها رو در Command1_Click مینویسم برنامه از قسمت NextCh: ایراد میگیره مشکلش چیه
Private Sub Text10_Change()
Dim a() As String
Dim X As Long
Dim Y As Long
Dim num As Long
Dim s As Long
Dim yy As Long
If Text11 = Empty Then Exit Sub
Text12 = Empty
ReDim a(1 To Len(Text11))
For X = 1 To Len(Text11)
a(X) = Mid(Text11, X, 1)
Next X
For X = 1 To Len(Text10)
num = CLng(Mid(Text10, X, 1))
Y = Y + num
Do While Y > Len(Text11)
Y = Y - Len(Text11)
Loop
yy = Y
Y = Y - 1
For s = yy To UBound(a)
Y = Y + 1
If a(s) <> Empty Then Text12 = Text12 & a(s): a(s) = Empty: GoTo NextCh
Next s
For s = 1 To yy - 1
Y = Y + 1
If a(s) <> Empty Then Text12 = Text12 & a(s): a(s) = Empty: GoTo NextCh
Next s
NextCh:
Next X
'--------------------------------------------------------------------------------------'
If Text14 = Empty Then Exit Sub
Text15 = Empty
ReDim a(1 To Len(Text14))
For X = 1 To Len(Text14)
a(X) = Mid(Text14, X, 1)
Next X
For X = 1 To Len(Text13)
num = CLng(Mid(Text13, X, 1))
Y = Y + num
Do While Y > Len(Text14)
Y = Y - Len(Text14)
Loop
yy = Y
Y = Y - 1
For s = yy To UBound(a)
Y = Y + 1
If a(s) <> Empty Then Text15 = Text15 & a(s): a(s) = Empty: GoTo NextCh
Next s
For s = 1 To yy - 1
Y = Y + 1
If a(s) <> Empty Then Text15 = Text15 & a(s): a(s) = Empty: GoTo NextCh
Next s
NextCh:
Next X
End Sub
وقتی این کدها رو در Command1_Click مینویسم برنامه از قسمت NextCh: ایراد میگیره مشکلش چیه
Private Sub Text10_Change()
Dim a() As String
Dim X As Long
Dim Y As Long
Dim num As Long
Dim s As Long
Dim yy As Long
If Text11 = Empty Then Exit Sub
Text12 = Empty
ReDim a(1 To Len(Text11))
For X = 1 To Len(Text11)
a(X) = Mid(Text11, X, 1)
Next X
For X = 1 To Len(Text10)
num = CLng(Mid(Text10, X, 1))
Y = Y + num
Do While Y > Len(Text11)
Y = Y - Len(Text11)
Loop
yy = Y
Y = Y - 1
For s = yy To UBound(a)
Y = Y + 1
If a(s) <> Empty Then Text12 = Text12 & a(s): a(s) = Empty: GoTo NextCh
Next s
For s = 1 To yy - 1
Y = Y + 1
If a(s) <> Empty Then Text12 = Text12 & a(s): a(s) = Empty: GoTo NextCh
Next s
NextCh:
Next X
'--------------------------------------------------------------------------------------'
If Text14 = Empty Then Exit Sub
Text15 = Empty
ReDim a(1 To Len(Text14))
For X = 1 To Len(Text14)
a(X) = Mid(Text14, X, 1)
Next X
For X = 1 To Len(Text13)
num = CLng(Mid(Text13, X, 1))
Y = Y + num
Do While Y > Len(Text14)
Y = Y - Len(Text14)
Loop
yy = Y
Y = Y - 1
For s = yy To UBound(a)
Y = Y + 1
If a(s) <> Empty Then Text15 = Text15 & a(s): a(s) = Empty: GoTo NextCh
Next s
For s = 1 To yy - 1
Y = Y + 1
If a(s) <> Empty Then Text15 = Text15 & a(s): a(s) = Empty: GoTo NextCh
Next s
NextCh:
Next X
End Sub