تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الرسائل والتايمر
#1
عندي مشروع يحوي تايمر يعمل طالما البرنامج مفتوح.

ولكن عند ظهور رسائل تنبيهية(msgbox) يقف عمل التايمر حتي يتم الضغط علي زر (ok) أو أي نوع من الرسائل حتي (inputbox) تعمل أيضا علي إيقاف عمل التايمر , حتي يتم الغائها فيعمل التايمر من جديد.

سؤالي هنا:: كيف أجعل التايمر يعمل حتي مع ظهور صناديق الرسائل وصناديق الأدخال؟؟؟؟؟؟

وفقكم الله للمساعدة
الرد }}}
تم الشكر بواسطة:
#2
مرحبا اخي عبدالله الصافي

اخي عملتك مثال بال 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

وراح ارفقلك المثال بالدوت نت
وشكرا


الملفات المرفقة
.rar   Test_001.rar (الحجم : 15.02 ك ب / التحميلات : 66)
الرد }}}
تم الشكر بواسطة:
#3
شكرا لأستجابتك ومحاولة مساعدتي أخي الكريم,

ولكن سؤالي هو: أني أريد أن يظل التايمر يعمل أثناء ظهور صناديق الرسائل أو صناديق الأدخال.

أرجو أن يكون طلبي واضح للجميع.

لأنك أخي الكريم عند ظهور (Msgbox , Inputbox) يتوقف التايمر عن العمل حتي تتعامل مع الرسالة وتختفي.

وأنا أريد عكس ذلك , أريد التايمر يستمر في العمل حتي مع ظهور (Msgbox , Inputbox).
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله
مثال لاستمرار عمل البرنامج اثناء عرض رسائل تنبيهية(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
ارجوا لك التوفيقCool
الرد }}}
تم الشكر بواسطة:
#5
بارك الله فيك أخي الفاضل وزادك علما وحسن الخلق وجعله في ميزان حسناتك.

وماذا بالنسبة لصناديق الأدخال(inputbox) هي الأخري , أليس هناك دالة أخري .
ولك جزيل الشكر والعرفان
الرد }}}
تم الشكر بواسطة:
#6
اهلا اخي الكريم

اذا تم حل مشكلة المسج بوكس فبالنسبه للإنبوت بوكس تستطيع ان تستبدلها بفورم عادي علي شكل إنبوت بوكس .
الرد }}}
تم الشكر بواسطة:
#7
VB_Coder كتب :اهلا اخي الكريم

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

نعم أخي الكريم ممكن عمل ذلك , ولكن التعلم شيء جديد يرتقي بعملك ويحسن من أدائك.
الرد }}}
تم الشكر بواسطة:
#8
عبدالله الصافي كتب :بارك الله فيك أخي الفاضل وزادك علما وحسن الخلق وجعله في ميزان حسناتك.

وماذا بالنسبة لصناديق الأدخال(inputbox) هي الأخري , أليس هناك دالة أخري .
ولك جزيل الشكر والعرفان
بارك الله فيك أخي الفاضل وزادك من علمه
هذا ما وجدته و جاري البحث,و ان وجدت دالة أخريل(inputbox) سأضعا هنا
بالتوفيق
الرد }}}
تم الشكر بواسطة:
#9
السلام عليكم ورحمة الله
مثال لعرض
رسائل صناديق الأدخال(inputbox)Wink
المثال بالمرفقات
اتمنى لك التوفيقCool


الملفات المرفقة
.zip   inputbox.zip (الحجم : 12.13 ك ب / التحميلات : 56)
الرد }}}
تم الشكر بواسطة:
#10
كلمة شكرا لا تكفي ولا تجزيك حقك , إنما أترك مكافأتك لله وحده.

فعلا موضوع غني جدا جعله الله في ميزان حسناتك.
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم