PDA

View Full Version : شمارش تعداد كاركتر هاي باقيمانده


mehdi_952
شنبه 26 تیر 1389, 10:46 صبح
با سلام
من دو تا فيلد دارم و براي يك فيلد محدوديت تعداد كاركتر گذاشته ام . مي خواهم با نوشتن در يك فيلد در فيلد ديگر همزمان تعداد كاركترهاي باقيمانده را نشان دهد.
amirzazadeh
شنبه 26 تیر 1389, 13:44 عصر
با سلام
من دو تا فيلد دارم و براي يك فيلد محدوديت تعداد كاركتر گذاشته ام . مي خواهم با نوشتن در يك فيلد در فيلد ديگر همزمان تعداد كاركترهاي باقيمانده را نشان دهد.
سلام
شما ميتونيد از اين كدها استفاده كنيد:

Private Sub Text1_Change()
Dim x As Integer
Me.Refresh
x = Len(Text1)
Me.Text3 = 50 - x
Me.Text1.SetFocus
Text1.SelStart = x
End Sub

فرض براين بوده كه محدويت 50 كاراكتر بوده است.
..............................
موفق باشيد
mehdi_952
شنبه 26 تیر 1389, 15:00 عصر
سلام
شما ميتونيد از اين كدها استفاده كنيد:

Private Sub Text1_Change()
Dim x As Integer
Me.Refresh
x = Len(Text1)
Me.Text3 = 50 - x
Me.Text1.SetFocus
Text1.SelStart = x
End Sub

فرض براين بوده كه محدويت 50 كاراكتر بوده است.
..............................
موفق باشيد
با سلام
خوب بود ولي كاراكتر space جواب نمي دهد (كلمات بهم چسبيده مي شود)
alirezabahrami
شنبه 26 تیر 1389, 15:25 عصر
با سلام
خوب بود ولي كاراكتر space جواب نمي دهد (كلمات بهم چسبيده مي شود)
سلام
نمونه ضميمه را ببين!
موفق باشيد