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

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

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



والسلام عليكم ورحمة الله وبركاتة
الرد }}}}
تم الشكر بواسطة:
#2
يتم ذلك عن طريق الأداة NotifyIcon
مرفق مثال الأداة من ميكروسفت


الملفات المرفقة
.rar   NotifyIcon.rar (الحجم : 13.86 ك ب / التحميلات : 65)
الرد }}}}
تم الشكر بواسطة:
#3
اولا شكرا علي ردك اخي ismail2012

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


وشكرا
الرد }}}}
تم الشكر بواسطة:
#4
rat ؟؟


يبدو ان الشغلة فيها هكر :d
الرد }}}}
تم الشكر بواسطة:
#5
[url="http://vb4arb.com/vb/member.php?454-%C7%E1%D4%C7%DF%ED-%E1%E1%E5"]الشاكي لله
[/url]
والله يا باشا انا مش هستخدم الكود في حاجة تغضب ربنا لكن الصورة اانا جايبها من برنامج رات بس والله انا مش بستخدمة كل الحكاية ان انا احتجت الكود دا ضروري
الرد }}}}
تم الشكر بواسطة:
#6
هيما 2013 كتب :[url="http://vb4arb.com/vb/member.php?454-%c7%e1%d4%c7%df%ed-%e1%e1%e5"]الشاكي لله
[/url]
والله يا باشا انا مش هستخدم الكود في حاجة تغضب ربنا لكن الصورة اانا جايبها من برنامج رات بس والله انا مش بستخدمة كل الحكاية ان انا احتجت الكود دا ضروري


هههه عادي

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

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

الرد }}}}
تم الشكر بواسطة:
#7
تفضل اخي كتبت لك دالة تفعل ماتريده

PHP كود :
Public Sub ShowMiniWindow(ByRef Frm As Form)

        
Dim miniFrm As Form Frm
        miniFrm
.Location = New Point(Screen.PrimaryScreen.Bounds.Width miniFrm.WidthScreen.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.Screen.PrimaryScreen.Bounds.Height miniFrm.Height TaskBarHeight
            Dim speed 
As Integer 1
            
'سرعة الانميشن'
            
Application.DoEvents()
            
miniFrm.Location = New Point(miniFrm.Location.XminiFrm.Location.speed)
        
End While






        
Dim hideTimer As New System.Windows.Forms.Timer()
        
hideTimer.Interval 5000
        
'الوقت المطلوب لإختفاء الفورم'
        
hideTimer.Start()
        
AddHandler hideTimer.TickSub()
                                       While 
miniFrm.Location.Screen.PrimaryScreen.Bounds.Height
                                           Dim speed 
As Integer 1
                                           
'سرعة الانميشن'
                                           
Application.DoEvents()
                                           
miniFrm.Location = New Point(miniFrm.Location.XminiFrm.Location.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.WidthScreen.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.Screen.PrimaryScreen.Bounds.Height miniFrm.Height TaskBarHeight)
            {
                
int speed 1//سرعة الانميشن
                
Application.DoEvents();
                
miniFrm.Location = new Point(miniFrm.Location.XminiFrm.Location.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.Screen.PrimaryScreen.Bounds.Height)
                {
                    
int speed 1//سرعة الانميشن
                    
Application.DoEvents();
                    
miniFrm.Location = new Point(miniFrm.Location.XminiFrm.Location.speed);
                }
                
miniFrm.Dispose();
                
hideTimer.Stop();
            });

            
#endregion

        



--


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

PHP كود :
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        Dim frm 
As New Form() 'تقدر تمحي هذا الكود وتخلي بدالة اي فورم تعجبك'
        
frm.Size = New Size(310168'تقدر تمحي هذا الكود وتخلي اي فورم يعجبك'
        
ShowMiniWindow(frm'مثلا تقدر تخلي فورم 2


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




الرد }}}}
تم الشكر بواسطة:
#8
بارك الله فيك أخي الشاكي لله

انظر هذا الموضوع أيضا (تحديد مكان ظهور الفورم على سطح المكتب)
الرد }}}}
تم الشكر بواسطة:
#9
الف شكر اخي الشاكي لله كودك يعمل بنجاح

والف شكر للاعضاء الكرام اللي ردوا ع الموضوع
الرد }}}}
تم الشكر بواسطة:
#10
اخي الشاكي ممكن ايضاح الفرق بين الكود الذي اضفته وبين كود

كود :
[color=blue]My[/color].Computer.Screen.WorkingArea
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة تفعيل ظهور checkbox في الفورم عامر الجبوري 4 87 21-05-17, 02:22 PM
آخر رد: alma2
  كيف تتحقق من وجود برنامج مثبت وان لم يكن مثبت تثبته محمد بن عطية 1 58 20-05-17, 09:26 PM
آخر رد: محمود بكرى
  تشغيل برنامج دون الحاجه للاقلاع ببرامج اخري medoddd 0 35 19-05-17, 12:46 PM
آخر رد: medoddd
  افكاركم بخصوص برنامج ادارة محلات بلاي ستيشن Basil Abdallah 3 78 18-05-17, 07:49 PM
آخر رد: Basil Abdallah
  لماذا يختفي الفورم عند النقر على اي زر كومند samawi 0 35 16-05-17, 10:30 PM
آخر رد: samawi
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 107 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  كيفية غلق هذا الفورم ان نفذ جملة شرط soper 4 72 13-05-17, 09:41 PM
آخر رد: العواد الصغير
  طلب برنامج .NET Reactor مع التفعيل OakenShield 0 33 13-05-17, 01:28 PM
آخر رد: OakenShield
  [VB.NET] مشكلة بسيطة في برنامج بسيط يعتمد على( Multi-Threading) أبو نقطة 5 140 13-05-17, 07:41 AM
آخر رد: أبو نقطة
  مساعدة في ربط برنامج بالسكنر zinab ali 3 80 09-05-17, 10:55 PM
آخر رد: mansoor

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


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