منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : PopupMessage Example
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم

مثال لمحــــــاكاه الرسائل الجانبية التى تظهر لك في الماسنجر .

تحياتي .
مشكور يعطيك العافيه يالغالي ،، كود جميل
بارك الله فيك وجزاك الله خيرا
جميل جداً
كيف يمكنني عمل نفس الشيئ مع قواعد البيانات؟
مثلا كيف يمكنني عمل رسائل التنبيه عند وصول قيمة في جدول إلى قيمة معينة؟
جزاك الله خيراً
إقتباس : مثلا كيف يمكنني عمل رسائل التنبيه عند وصول قيمة في جدول إلى قيمة معينة؟

ضع أستفسارك في قسم قواعد البيانات مع مثال بسيط ,,,,, واح نجيب عليك أن شاء الله
لكن الحل مبدئيا : يعتمد على تايمر يقوم بالتشييك على الجدول والاستعلام عن القيم ويعود لك بالنتيجة المباشرة ..
بارك الله فيك
مثال جميل

جزاك الله خير
عدل الكود

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = New Point(1, J)
        Timer1.Enabled = True
        Timer1.Interval = 30
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 20
        ProgressBar1.Visible = False
    End Sub

الى

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim workingRectangle As System.Drawing.Rectangle = Screen.PrimaryScreen.WorkingArea
        J = workingRectangle.Height
        Me.Location = New Point(1, J)
        Timer1.Enabled = True
        Timer1.Interval = 30
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 20
        ProgressBar1.Visible = False
    End Sub

تعديل مشكلة دقة العرض المختلفة
جزاك الله خير أخي طرح مميز و مهم جدا