عندي مشروع يحوي تايمر يعمل طالما البرنامج مفتوح.
ولكن عند ظهور رسائل تنبيهية(msgbox) يقف عمل التايمر حتي يتم الضغط علي زر (ok) أو أي نوع من الرسائل حتي (inputbox) تعمل أيضا علي إيقاف عمل التايمر , حتي يتم الغائها فيعمل التايمر من جديد.
سؤالي هنا:: كيف أجعل التايمر يعمل حتي مع ظهور صناديق الرسائل وصناديق الأدخال؟؟؟؟؟؟
وفقكم الله للمساعدة
مرحبا اخي عبدالله الصافي
اخي عملتك مثال بال vb.net 2010 ولم انتبه انك تستفسر عن vb6
لاكن الفكرة سهلة طبق اخي مع هالخطوات
أعمل فروم جديد
وأدرج التالي
كود :
Timer1
ProgressBar1
Button1
Button2
Button3
Button4
في حدث الفروم لود
Form1_Load
كود :
If Me.Timer1.Enabled = True Then
Me.Timer1.Enabled = False
End If
ثم في حدث التايمر
Timer1_Tick
كود :
If Me.ProgressBar1.Value < Me.ProgressBar1.Maximum Then
Me.ProgressBar1.Value += 1
If Me.ProgressBar1.Value = Me.ProgressBar1.Maximum Then
Me.ProgressBar1.Value = 0
Me.Timer1.Enabled = False
End If
Else
Me.Timer1.Enabled = False
End If
اللحين في حدث Button1_Click سمية تشغيل
كود :
If Me.Timer1.Enabled = False Then
Me.Timer1.Enabled = True
End If
اللحين في حدث Button2_Click سمية ايقاف
كود :
If Me.Timer1.Enabled = True Then
Me.Timer1.Enabled = False
End If
اللحين في حدث Button3_Click سمية أظهر الرسالة
اللحين في حدث Button4_Click سمية خروج
قبل ما تشغل تأكد من أن ضبط التايمر على النحو التالي
كود :
Timer1.Interval = 100
Timer1.Enabled = False
وراح ارفقلك المثال بالدوت نت
وشكرا
شكرا لأستجابتك ومحاولة مساعدتي أخي الكريم,
ولكن سؤالي هو: أني أريد أن يظل التايمر يعمل أثناء ظهور صناديق الرسائل أو صناديق الأدخال.
أرجو أن يكون طلبي واضح للجميع.
لأنك أخي الكريم عند ظهور (Msgbox , Inputbox) يتوقف التايمر عن العمل حتي تتعامل مع الرسالة وتختفي.
وأنا أريد عكس ذلك , أريد التايمر يستمر في العمل حتي مع ظهور (Msgbox , Inputbox).
السلام عليكم ورحمة الله
مثال لاستمرار عمل البرنامج اثناء عرض رسائل تنبيهية(msgbox)
كود :
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As _Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As _
Long) As Long
Private Sub Command1_Click()
MsgBox "The Timer STOPS!"
End Sub
Private Sub Command2_Click()
MessageBox Me.hwnd, "Notice the timer does not stop!", "API Call", _
vbOKOnly + vbExclamation
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
ارجوا لك التوفيق
بارك الله فيك أخي الفاضل وزادك علما وحسن الخلق وجعله في ميزان حسناتك.
وماذا بالنسبة لصناديق الأدخال(inputbox) هي الأخري , أليس هناك دالة أخري .
ولك جزيل الشكر والعرفان
اهلا اخي الكريم
اذا تم حل مشكلة المسج بوكس فبالنسبه للإنبوت بوكس تستطيع ان تستبدلها بفورم عادي علي شكل إنبوت بوكس .
VB_Coder كتب :اهلا اخي الكريم
اذا تم حل مشكلة المسج بوكس فبالنسبه للإنبوت بوكس تستطيع ان تستبدلها بفورم عادي علي شكل إنبوت بوكس .
نعم أخي الكريم ممكن عمل ذلك , ولكن التعلم شيء جديد يرتقي بعملك ويحسن من أدائك.
عبدالله الصافي كتب :بارك الله فيك أخي الفاضل وزادك علما وحسن الخلق وجعله في ميزان حسناتك.
وماذا بالنسبة لصناديق الأدخال(inputbox) هي الأخري , أليس هناك دالة أخري .
ولك جزيل الشكر والعرفان
بارك الله فيك أخي الفاضل وزادك من علمه
هذا ما وجدته و جاري البحث,و ان وجدت
دالة أخريل(inputbox) سأضعا هنا
بالتوفيق
السلام عليكم ورحمة الله
مثال لعرض رسائل صناديق الأدخال(inputbox)
المثال بالمرفقات
اتمنى لك التوفيق
كلمة شكرا لا تكفي ولا تجزيك حقك , إنما أترك مكافأتك لله وحده.
فعلا موضوع غني جدا جعله الله في ميزان حسناتك.