پیداکردن تعداد تکست های مخفی شده

[samiasoft]

فرض کنید n تا تکست باکس در فرم داریم که تعدادی از انها visible شان true و بقیه هم false هستند.

میخواستم بدونم چگونه میشه تعداد تکست های مخفی رو پیدا کرد؟

[Mori Bone]

سلام.
اگه اون کدی که تو این تاپیک (http://barnamenevis.org/showthread.php?462968-%D8%A8%D8%B1%D8%B1%D8%B3%DB%8C-%D8%A8%D8%B1%D8%A7%D8%A8%D8%B1-%D8%A8%D9%88%D8%AF%D9%86-%D9%85%D9%82%D8%A7%D8%AF%DB%8C%D8%B1-%D8%AA%DA%A9%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D9%87%D8%A7)
رو ببینی، یه شمارنده گذاشتم که اگه باهم برابر بون یدونه به شمارنده اضافه کن. اینم مثه همونه فقط باید مده زیر رو جایگذاری کنی:
If text1(a).visible Then

دگ else هم نمی خواد

[Mori Bone]

من کدرو نگذاشتم تا نخوام لقمرو جوییده شده بذارم تو دهن شما.
خواستم دستت را بیوفته:لبخند::قلب:

[samiasoft]

ممنون ازت در واقع مشکل من در قسمت مشخص شده زیر هست

http://www.samisoft.ir/1/images/64Max.jpg



که میخوام به جای این این رو قرار بدم


same = Text1.Count - تعداد تکست باکس مخفي

[Mori Bone]

اون متغیر same تعداد اونایی رو بهت میده که visible اونها true هستش.
dim visibled%
For i=0 to text1.UBound
If text1(i).Visible Then visibled = visibled +1
Next
تعداد تکس باکس هایی که Visible true دارند درون متغیر
visible
و false ها : text1.Count - visible