الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

احترت معcheckbox

مغلق
بدأه فؤاد سعد في 27 ديسمبر 2007 · 14 رد · 984 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

انا احترت مع الاداه Checkbox

انا عندي تايمر فيه كود وعاوز اول ما احط علامه صح على checkbox ينفز العمليه في التايمر الي فيه الكود

يعني التايمر ميشتغلش طلقائي الا بعد النقر على الشيك بوكس اولا

تحياتي.........................

فؤاد سعد

#2

أخي الكريم عليك إستخدام حدث الـ Click للشيك بوكس

----------------------------------------------------

Private sub ChkMain_Click()
 TmrMain.Enabled = True
end Sub

Private Sub TmrMain_Timer()
 Beep
End Sub

وعليك في البدء جعل التايمر غير ممكن من خاصية Enabled وعند الضغط على الشك بوكس يتفعل

يمكنك أيضاَ جعل التايمر يتوقف أيضاَ مع تغيير الحلية بتغيير True إلى ChkMain.value

وبهذا يكون تمكين التايمر مربوط بقيمة الشك بوكس

#3

شكرا لك اخي وجزاك الله كل خير

تحياتي~........................

فؤاد يعد

#4

للاسف خطا

التايمر ما زال يعمل وبعدين يعمل خطا

انا عاوز كود اول ما ادوس على شيك التايمر ينفز الكود الي بداخله

تحياتي.........................

فؤاد سعد

#5

السلام عليكم :

أخي الكريم يكمنك استعمال الحدث الذي استخدمه الخ الفاضل وانصحك باضافة شرط

مثال :

if chechbox1.value=1 the
timer1.enable=true
else
timer1n.enable=false
end if

لا اله الا الله وحده لا شريك له

#6

طيب ليه ما تستخدم

TmrMain.enabled = cbool(ChkMain.Value)

"لاحظ أن أسماء التايمر والشك متغيره"

#7

سواني هجرب وارد عليكو

#8

if chechbox1.value=1 the

يوجد خطا في هذا الكود

#9

للاسف ولا كود نفع يريت مثال لذلك بالسورس

#10

مرحباً أخي الكريم:

قد تكون لم تضبط الخاصة Interval للتايمر, على كل حال ,اجعل الخاصية Enabled = false في التايمر و لا تنسى ضبط الخاصية interval,وجرب الكود التالي:

Private Sub Check1_Click()

If Check1.Value = 0 Then

Timer1.Enabled = False

Else

Timer1.Enabled = True

End If

End Sub

Doried Abd Allah

Prelware D&D Association

Lattakia/Syria

#11

تفضل أخي كود :

Private Sub Check1_Click()
If Timer1.Interval = 0 Then
Timer1.Interval = 10
Else
Timer1.Interval = 0
End If
End Sub

ضعة في check .

الكود الثاني ضعة في التايمر :

Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 25
End Sub

هنا في هذا المثال تحتاج label + check + timer

بالتوفيق ان شاء الله

فلسطين .. سوريا ..بورما ......وماذا بعد ؟!

سابقا

medo_programming

موقعي : www.alkhayat-it.com

مواضيع مهمه

-----------------------------------------------:

تعلم كل شىء عن الTriggers

#12

اوك هجرب

شكككككككككككككككككككككرا لكم نجت العمليه اخر كودين الاتنين شغالين وشكرا لكم

تحياتي.....................

فؤاد سعد

#13

السلام عليكم

انا عملت مثال صغير .بس مش عارف هادى طلبك

Timer.zip

Timer.rar

#14

شكككككككككككككككككككرا اخي سلمان مجهود جميل منك يا اخي والله

تحياتي...................

فؤاد سعد

#15

الخطأ الذي يحصل معك أخي الكريم يحصل بسبب أسماء الأدوات التي تكتب بالكود والتي تقوم أنت بإنشائها :yes:

*-----------------------------

والحمد لله أنك قد وفقك لما تريد

هذا الموضوع مغلق.

مواضيع مشابهة