تقييم الموضوع :
  • 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
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف ابطل زر tab فى برنامج على الفيجوال بيسك Mohamed371 1 23 اليوم, 02:11 AM
آخر رد: مساعدة
  فصل جزء من ايمج بلون محدد الى ايمج اخرى على الفورم samira20 3 69 أمس, 03:09 PM
آخر رد: silverlight
  ارجوا المساعدة في برنامج محاسبة فيجوال بيسك 2008 محمد بوقزاحة 8 171 أمس, 01:30 PM
آخر رد: محمد بوقزاحة
  [اقتراح] كيف ممنكن اتجاوز برنامج التجريبي 3asfa~mdmra 10 223 15-01-17, 04:00 AM
آخر رد: الماجيك مسعد
  برنامج شبية بالـTeemView Basil Abdallah 21 471 11-01-17, 11:05 PM
آخر رد: Basil Abdallah
  [VB.NET] برنامج يقوم بالفحص عن الجروبات المشترك فيها muhnnad002016 1 66 06-01-17, 02:19 PM
آخر رد: Basil Abdallah
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 0 82 05-01-17, 09:50 AM
آخر رد: malek369
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 8 2,841 04-01-17, 09:18 PM
آخر رد: jojo2014
  [VB.NET] تصميم برنامج معامل engmedomed@gmail.com 1 112 03-01-17, 03:51 PM
آخر رد: thevirus
  [VB.NET] فكرة عن برنامج 3asfa~mdmra 4 140 01-01-17, 09:15 AM
آخر رد: مساعدة

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


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