سلام من میخواستم یک فرم طراحی کنم که بعد از نوشتن عدد مورد نظر در text1 خودش براش \ بزنه
مثلا من داخل صفحه تکست تایپ میکنم 5000000 بعد از رفتن به تکست بعدی خودش تایپ کنه000/000/5
کسی هست که بتونه به من کمک کنه
سلام من میخواستم یک فرم طراحی کنم که بعد از نوشتن عدد مورد نظر در text1 خودش براش \ بزنه
مثلا من داخل صفحه تکست تایپ میکنم 5000000 بعد از رفتن به تکست بعدی خودش تایپ کنه000/000/5
کسی هست که بتونه به من کمک کنه
در رویداد GotFocus تکست باکس بعدی بنویس :
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
خودم پیدا کردم و گفتم شاید کسی دیگه هم لازمش باشه براتون میزارم
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
دوستان اگه میشه گه گداری سری به ما هم بزنید یه کمک هایی هم به ما بکنید
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)