04-13-2012، 10:09 PM
من این کد رو نوشتم. قسمت اولش کار میکنه یعنی بیشتر از 5 تا نمیگیره ولی قسمت دوم که اگه کمتر از 5 بود پیام خطا بده درست کار نمیکنه. ایرادش کجاست؟
کد:
Private Sub Form_Load()
Text1(0).MaxLength = 5
If Text1(0).MaxLength < 5 Then
MsgBox ("˜Ï æÇÑÏ ÔÏå äÇÏÑÓÊ ÇÓÊ")
End If
End Sub
سرمشق های آب بابا یادمان رفت
رسم نوشتن با قلم ها یادمان رفت
شعر خدای مهربان را حفظ کردیم
اما خدای مهربان را یادمان رفت
----------------------------------------------------------
معرفت درّ گرانی است که به هر کس ندهند.
رسم نوشتن با قلم ها یادمان رفت
شعر خدای مهربان را حفظ کردیم
اما خدای مهربان را یادمان رفت
----------------------------------------------------------
معرفت درّ گرانی است که به هر کس ندهند.
