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

[R2du-soft]

سلام دوستان :لبخندساده:

2 تا سوال دارم:

1- تو ویژوال میخوام چک بشه که اگه تکست باکس کاملا خالی بود یه پیغام نمایش داده بشه؟
2-اگه تکست باکس توش کوچکترین چیزی بود یه پیغام نمایش داده بشه؟

اگه میشه زود راهنمایی کنید عزیزان ، فوری هست.
یک دنیا ممنون دوستان

[as987498749874]

Private Sub Text1_Change()
If Len(Text1) = 0 Then MsgBox "Empity" Else MsgBox "This Text Not Empity"

End Sub

بفرما

[حمید محمودی]

میتونید بکمک "" با استفاده از = و <> هم اینکارو انجام بدین


1- تو ویژوال میخوام چک بشه که اگه تکست باکس کاملا خالی بود یه پیغام نمایش داده بشه؟
If text1.text="" then msgbox "khaaali"



2-اگه تکست باکس توش کوچکترین چیزی بود یه پیغام نمایش داده بشه؟
if text1.text<>"" then msgbox "khaali nist"

[مهرنوووش]

If Text1.Text = "" Then MsgBox ("textbox khalist") Else MsgBox (" textbox khali nis")

[m2011kh]

اگه میخواید هم که اصولی تر کار کنید کدتون ایجوری میشه:

If Text1.Text = Empty Then MsgBox (""textbox khalist"") Else MsgBox ("textbox khali nis")

فکر نکنم لازم باشه ولی یه روش دیگه:

if strcomp(text1.text,"",vbTextCompare) = 0 then MsgBox("Empty") else msgBox("Not")
و
If StrComp(Text1.Text, Empty, vbTextCompare) = 0 Then MsgBox "OK" Else MsgBox "not"
و
If Not StrComp(Text1.Text, Empty, vbTextCompare) = 0 Then MsgBox "not" Else MsgBox "OK"

ببخشید نمیخواستم اسپم داده باشم ولی خیلی دیدم که دوستان سر پاسخ سوالات ساده هی مانور میدن(رقابت میکنن) گفتم اکثر همه جوابارو(البته قطعا همه جوابارو نگفتم) بگم که دوستان دیگه اسپم ندن(پیشگیری)
امیدوارم اسپم نداده باشم ولی اینا هم یه نکته ان دیگه نه؟؟؟:کف:

روزتون روشن