29-06-16, 05:42 PM
الموديل طريقة عمله سهلة
عندما تنشئ موديل أدخل عليه
الموديل يعتمد في عمله على عمل إجراءات و دوال Sub And Function كدلك تعريف المتغيرات التي تريد عمل بها دون تكرار كتابتها كل مرة
المثال الدي أعطيتنا إياه سأقوم بعمله في إجراء Sub و هدا الاجراء يكتب داخل الموديل
public sub TxtReaOnly(txt1 as textbox,txt2 as textbox)
if txt1.text>15 then
txt2.readonly=false
else
txt2.readonly=true
end if
end sub
بعد دالك ادخل الى حدث TextBox11_TextChanged
بعد دلك قم باستدعاء الاجراء باسمه و قد أسميناه TxtReaOnly
هدا الاجراء ينتظر منك 2 برامترات و هي txt1 و txt2
txt1 هو textbox11
txt2 هو textbox 10
الاستدعاء سيكون كالاتي
TxtReaOnly(textbox11,textbox10)
أتمنى أن تكون إستفدت
عندما تنشئ موديل أدخل عليه
الموديل يعتمد في عمله على عمل إجراءات و دوال Sub And Function كدلك تعريف المتغيرات التي تريد عمل بها دون تكرار كتابتها كل مرة
المثال الدي أعطيتنا إياه سأقوم بعمله في إجراء Sub و هدا الاجراء يكتب داخل الموديل
public sub TxtReaOnly(txt1 as textbox,txt2 as textbox)
if txt1.text>15 then
txt2.readonly=false
else
txt2.readonly=true
end if
end sub
بعد دالك ادخل الى حدث TextBox11_TextChanged
بعد دلك قم باستدعاء الاجراء باسمه و قد أسميناه TxtReaOnly
هدا الاجراء ينتظر منك 2 برامترات و هي txt1 و txt2
txt1 هو textbox11
txt2 هو textbox 10
الاستدعاء سيكون كالاتي
TxtReaOnly(textbox11,textbox10)
أتمنى أن تكون إستفدت
التميز و الابداع شعاري

