[هيما 2013]

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

السلام عليكم ورحمة الله وبركاتة

لو سمحتوا اخواني انا كنت اريد كود اظهار الفورم مثل الصورة دي



والسلام عليكم ورحمة الله وبركاتة

[ismail2012]

يتم ذلك عن طريق الأداة NotifyIcon
مرفق مثال الأداة من ميكروسفت

[هيما 2013]

اولا شكرا علي ردك اخي ismail2012

لكن انا محتاج الفورم نفسو يظهر من تحت التاسك بار الي الاعلي


وشكرا

[الشاكي لله]

rat ؟؟


يبدو ان الشغلة فيها هكر :d

[هيما 2013]

[url="http://vb4arb.com/vb/member.php?454-%C7%E1%D4%C7%DF%ED-%E1%E1%E5"]الشاكي لله
[/url]
والله يا باشا انا مش هستخدم الكود في حاجة تغضب ربنا لكن الصورة اانا جايبها من برنامج رات بس والله انا مش بستخدمة كل الحكاية ان انا احتجت الكود دا ضروري

[الشاكي لله]

هيما 2013 كتب :[url="http://vb4arb.com/vb/member.php?454-%c7%e1%d4%c7%df%ed-%e1%e1%e5"]الشاكي لله
[/url]
والله يا باشا انا مش هستخدم الكود في حاجة تغضب ربنا لكن الصورة اانا جايبها من برنامج رات بس والله انا مش بستخدمة كل الحكاية ان انا احتجت الكود دا ضروري

هههه عادي

مايخصني انا حتى لو كنت تستخدم برنامج rat

المهم اصبر علي شوي اكتب لك كود عشان يظهر النافذة المطلووبة

[الشاكي لله]

تفضل اخي كتبت لك دالة تفعل ماتريده

PHP كود :

Public Sub ShowMiniWindow(ByRef Frm As Form)

        Dim miniFrm As Form = Frm
        miniFrm.Location = New Point(Screen.PrimaryScreen.Bounds.Width - miniFrm.Width, Screen.PrimaryScreen.Bounds.Height)
        miniFrm.ControlBox = False
        miniFrm.Text = ""
        miniFrm.ShowInTaskbar = False
        miniFrm.StartPosition = FormStartPosition.Manual
        miniFrm.TopMost = True
        miniFrm.Show()
        miniFrm.Activate()




        Dim TaskBarHeight As Integer = Screen.PrimaryScreen.Bounds.Height - Screen.PrimaryScreen.WorkingArea.Height

        While miniFrm.Location.Y > Screen.PrimaryScreen.Bounds.Height - miniFrm.Height - TaskBarHeight
            Dim speed As Integer = 1
            'سرعة الانميشن'
            Application.DoEvents()
            miniFrm.Location = New Point(miniFrm.Location.X, miniFrm.Location.Y - speed)
        End While






        Dim hideTimer As New System.Windows.Forms.Timer()
        hideTimer.Interval = 5000
        'الوقت المطلوب لإختفاء الفورم'
        hideTimer.Start()
        AddHandler hideTimer.Tick, Sub()
                                       While miniFrm.Location.Y < Screen.PrimaryScreen.Bounds.Height
                                           Dim speed As Integer = 1
                                           'سرعة الانميشن'
                                           Application.DoEvents()
                                           miniFrm.Location = New Point(miniFrm.Location.X, miniFrm.Location.Y + speed)
                                       End While
                                       miniFrm.Dispose()
                                       hideTimer.[Stop]()

                                   End Sub

    End Sub 


سي شارب لإفادة الجميع :

PHP كود :

public void ShowMiniWindow(Form frm)
        {

            #region FormProperties
            Form miniFrm = frm;
            miniFrm.Location = new Point(Screen.PrimaryScreen.Bounds.Width - miniFrm.Width, Screen.PrimaryScreen.Bounds.Height);
            miniFrm.ControlBox = false;
            miniFrm.Text = "";
            miniFrm.StartPosition = FormStartPosition.Manual;
            miniFrm.TopMost = true;
            miniFrm.Show();
            miniFrm.Activate();
            #endregion


            
            #region AnimateMiniFormToUP

            int TaskBarHeight = Screen.PrimaryScreen.Bounds.Height - Screen.PrimaryScreen.WorkingArea.Height;

            while (miniFrm.Location.Y > Screen.PrimaryScreen.Bounds.Height - miniFrm.Height - TaskBarHeight)
            {
                int speed = 1; //سرعة الانميشن
                Application.DoEvents();
                miniFrm.Location = new Point(miniFrm.Location.X, miniFrm.Location.Y - speed);
            }

            #endregion



            #region "AnimateMiniFormToDOWN"

            System.Windows.Forms.Timer hideTimer = new System.Windows.Forms.Timer();
            hideTimer.Interval = 5000;      //الوقت المطلوب لإختفاء الفورم
            hideTimer.Start();
            hideTimer.Tick +=new EventHandler(delegate
            {
                while (miniFrm.Location.Y < Screen.PrimaryScreen.Bounds.Height)
                {
                    int speed = 1; //سرعة الانميشن
                    Application.DoEvents();
                    miniFrm.Location = new Point(miniFrm.Location.X, miniFrm.Location.Y + speed);
                }
                miniFrm.Dispose();
                hideTimer.Stop();
            });

            #endregion

        } 


--


وطريقة استخدام الدالة كالتالي :

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim frm As New Form() 'تقدر تمحي هذا الكود وتخلي بدالة اي فورم تعجبك'
        frm.Size = New Size(310, 168) 'تقدر تمحي هذا الكود وتخلي اي فورم يعجبك'
        ShowMiniWindow(frm) 'مثلا تقدر تخلي فورم 2


        "ShowMiniWindow(New Form2()) مثلا لو كان عندنا فورم جاهز"
    End Sub 


[MSDOS]

بارك الله فيك أخي الشاكي لله

انظر هذا الموضوع أيضا (تحديد مكان ظهور الفورم على سطح المكتب)

[هيما 2013]

الف شكر اخي الشاكي لله كودك يعمل بنجاح

والف شكر للاعضاء الكرام اللي ردوا ع الموضوع

[سعود]

اخي الشاكي ممكن ايضاح الفرق بين الكود الذي اضفته وبين كود

كود :

[color=blue]My[/color].Computer.Screen.WorkingArea