یاری در ساخت یک پروژه

[fateme_3979]

سلام من میخواستم یک فرم طراحی کنم که بعد از نوشتن عدد مورد نظر در text1 خودش براش \ بزنه
مثلا من داخل صفحه تکست تایپ میکنم 5000000 بعد از رفتن به تکست بعدی خودش تایپ کنه000/000/5
کسی هست که بتونه به من کمک کنه:20::11:

[M i L @ D]

در رویداد GotFocus تکست باکس بعدی بنویس :



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[fateme_3979]

خودم پیدا کردم و گفتم شاید کسی دیگه هم لازمش باشه براتون میزارم


Dim Old As String, Olx As String
Old = Text1
If Len(Old) > 3 Then

Do

Old = StrReverse(Old)

If Len(Mid$(Old, 4)) > 3 Then
Olx = Olx & Mid$(Old, 1, 3) & "/"
Old = StrReverse(Mid$(Old, 4))
Else
Olx = Olx & Mid$(Old, 1, 3) & "/" & Mid$(Old, 4)
Exit Do
End If
Loop
Text2 = StrReverse(Olx)
End If


دوستان اگه میشه گه گداری سری به ما هم بزنید یه کمک هایی هم به ما بکنید