إضافة صفر إلى مربعات النصوص الفارغة

فتى الوادي · ديسمبر 29, 2004

السلام عليكم

عندي نموذج لا يستند إلى جدول .. وفيه مربعات نص كثيرة كما تشاهدون في الصورة ..

المطلوب أن أجعل أي مربع نص فارغ أن يحمل رقم ( 0 ) ..

إذا أستخدما كود لكل مربع .. فأنه سيكون عندنا كود طويل جداً ومكرراً ..

فهل هناك كود يصلح أن يحل هذه المشكلة !!؟؟

www.drr.cc/files/pic/de5/zero.jpg

**ظل السراب** · ديسمبر 29, 2004

السلام عليكم ورحمة الله بركاته

اذا كان تقصد انه يكون في مربع النص (0 )

اختار من خصائص مربع النص اجعل القيم الافتراضيه ( 0 )

و الله اعلم

والسلام عليكم

alshadwi · ديسمبر 29, 2004

Dim C As Control

For Each C In Controls

C.SetFocus

C.Value = 0

End If

فتى الوادي · ديسمبر 30, 2004

شكراً لكم جميعاً ...

الردود الموصى بها