View Full Version : پیداکردن تعداد تکست های مخفی شده
samiasoft
شنبه 11 مرداد 1393, 17:38 عصر
فرض کنید n تا تکست باکس در فرم داریم که تعدادی از انها visible شان true و بقیه هم false هستند.
میخواستم بدونم چگونه میشه تعداد تکست های مخفی رو پیدا کرد؟
Mori Bone
شنبه 11 مرداد 1393, 17:59 عصر
سلام.
اگه اون کدی که تو این تاپیک (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
شنبه 11 مرداد 1393, 18:02 عصر
من کدرو نگذاشتم تا نخوام لقمرو جوییده شده بذارم تو دهن شما.
خواستم دستت را بیوفته:لبخند::قلب:
samiasoft
شنبه 11 مرداد 1393, 18:21 عصر
ممنون ازت در واقع مشکل من در قسمت مشخص شده زیر هست
http://www.samisoft.ir/1/images/64Max.jpg
که میخوام به جای این این رو قرار بدم
same = Text1.Count - تعداد تکست باکس مخفي
Mori Bone
شنبه 11 مرداد 1393, 18:27 عصر
اون متغیر 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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.