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

[فتى الوادي]

السلام عليكم

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

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

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

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

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

[ظل السراب]

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

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

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

و الله اعلم

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

[alshadwi]

Dim C As Control

For Each C In Controls

If TypeOf C Is TextBox And IsNull© Then

C.SetFocus

C.Value = 0

End If

Next

تم تعديل ديسمبر 29, 2004 بواسطه alshadwi

[فتى الوادي]

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