+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : الرسائل والتايمر (/showthread.php?tid=7131)
الصفحات:
1
2
الرسائل والتايمر - عبدالله الصافي - 26-11-12
عندي مشروع يحوي تايمر يعمل طالما البرنامج مفتوح.
ولكن عند ظهور رسائل تنبيهية(msgbox) يقف عمل التايمر حتي يتم الضغط علي زر (ok) أو أي نوع من الرسائل حتي (inputbox) تعمل أيضا علي إيقاف عمل التايمر , حتي يتم الغائها فيعمل التايمر من جديد.
سؤالي هنا:: كيف أجعل التايمر يعمل حتي مع ظهور صناديق الرسائل وصناديق الأدخال؟؟؟؟؟؟
وفقكم الله للمساعدة
الرسائل والتايمر - ابو ابراهيم - 26-11-12
مرحبا اخي عبدالله الصافي
اخي عملتك مثال بال 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 سمية أظهر الرسالة
كود :
MsgBox("Test")اللحين في حدث Button4_Click سمية خروج
كود :
Endقبل ما تشغل تأكد من أن ضبط التايمر على النحو التالي
كود :
Timer1.Interval = 100
Timer1.Enabled = Falseوراح ارفقلك المثال بالدوت نت
وشكرا
الرسائل والتايمر - عبدالله الصافي - 26-11-12
شكرا لأستجابتك ومحاولة مساعدتي أخي الكريم,
ولكن سؤالي هو: أني أريد أن يظل التايمر يعمل أثناء ظهور صناديق الرسائل أو صناديق الأدخال.
أرجو أن يكون طلبي واضح للجميع.
لأنك أخي الكريم عند ظهور (Msgbox , Inputbox) يتوقف التايمر عن العمل حتي تتعامل مع الرسالة وتختفي.
وأنا أريد عكس ذلك , أريد التايمر يستمر في العمل حتي مع ظهور (Msgbox , Inputbox).
الرسائل والتايمر - 3amo - 26-11-12
السلام عليكم ورحمة الله
مثال لاستمرار عمل البرنامج اثناء عرض رسائل تنبيهية(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
الرسائل والتايمر - عبدالله الصافي - 26-11-12
بارك الله فيك أخي الفاضل وزادك علما وحسن الخلق وجعله في ميزان حسناتك.
وماذا بالنسبة لصناديق الأدخال(inputbox) هي الأخري , أليس هناك دالة أخري .
ولك جزيل الشكر والعرفان
الرسائل والتايمر - VB_Coder - 27-11-12
اهلا اخي الكريم
اذا تم حل مشكلة المسج بوكس فبالنسبه للإنبوت بوكس تستطيع ان تستبدلها بفورم عادي علي شكل إنبوت بوكس .
الرسائل والتايمر - عبدالله الصافي - 27-11-12
VB_Coder كتب :اهلا اخي الكريم
اذا تم حل مشكلة المسج بوكس فبالنسبه للإنبوت بوكس تستطيع ان تستبدلها بفورم عادي علي شكل إنبوت بوكس .
نعم أخي الكريم ممكن عمل ذلك , ولكن التعلم شيء جديد يرتقي بعملك ويحسن من أدائك.
الرسائل والتايمر - 3amo - 27-11-12
عبدالله الصافي كتب :بارك الله فيك أخي الفاضل وزادك علما وحسن الخلق وجعله في ميزان حسناتك.بارك الله فيك أخي الفاضل وزادك من علمه
وماذا بالنسبة لصناديق الأدخال(inputbox) هي الأخري , أليس هناك دالة أخري .
ولك جزيل الشكر والعرفان
هذا ما وجدته و جاري البحث,و ان وجدت دالة أخريل(inputbox) سأضعا هنا
بالتوفيق
الرسائل والتايمر - 3amo - 27-11-12
السلام عليكم ورحمة الله
مثال لعرض رسائل صناديق الأدخال(inputbox)
المثال بالمرفقاتمثال لعرض رسائل صناديق الأدخال(inputbox)
اتمنى لك التوفيق
الرسائل والتايمر - عبدالله الصافي - 27-11-12
كلمة شكرا لا تكفي ولا تجزيك حقك , إنما أترك مكافأتك لله وحده.
فعلا موضوع غني جدا جعله الله في ميزان حسناتك.