PDA

View Full Version : یک سوأل درمورده MaxLength


vb2005
پنج شنبه 28 اردیبهشت 1385, 12:43 عصر
سلام دوستان من میخوام وقتی کاربر بیشتر از10 حرف در Text وارد کرد یه پیغام ظاهر بشه واجازه وارد کردن بیش از 10 حرف نده.:متفکر:
لطفاً کد زیر رو ببینیدچه مشکلی داره که کارنمیکنه؟
ممنون.

()Private Sub XPText2_Change
If XPText2.MaxLength = 10 Then
"تست" MsgBox
End If
End Sub
mahdi_farhani
جمعه 29 اردیبهشت 1385, 10:30 صبح
خاصیت MaxLength برای چک کردن نیست . فقط برای دادن MaxLength است که بیشتر وارد Text نشه . شما با استفاده از تابع Len می تونی اینکارو انجام بدی .
داخل رویداد Change این شرط را بزار .


if len(text1.text) = 10 Then
msgbox "Test"
endif
vb2005
جمعه 29 اردیبهشت 1385, 12:46 عصر
مهدی جان خیلی خیلی ممنونم.
Hossein Bazyan
جمعه 29 اردیبهشت 1385, 20:28 عصر
هنگام طراحی در خاصیت MaxLength بنویس 10 . در هنگام اجرای برنامه خود VB اجازه تایپ بیشتر از 10 کاراکتر را نمیدهد . البته با کد نویسی هم میتوانی هنگام Load شدن فرم کد زیر را بنویسی که هیچ فرقی با بالایی ندارد .


Text1.MaxLength=10
vb2005
جمعه 29 اردیبهشت 1385, 23:21 عصر
حسین جان ازشما هم ممنونم کارم راه افتاده.قربانت.
mahdi_farhani
شنبه 30 اردیبهشت 1385, 04:19 صبح
حسین جان ایشون می خواستن بعد از تایپ 10 کارکتر یه پیغام ظاهر بشه . ...
vb2005
شنبه 30 اردیبهشت 1385, 10:28 صبح
حسین جان ایشون می خواستن بعد از تایپ 10 کارکتر یه پیغام ظاهر بشه . ...
بله دقیقاً.
Hossein Bazyan
شنبه 30 اردیبهشت 1385, 12:18 عصر
حق با شماست و من سوال را کاملا نخوانده بودم
:خجالت: http://qsmile.com/qsimages/105.gif http://qsmile.com/qsimages/223.gif