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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تثبيت التاريخ علي الفورم ddemed 2 46 منذ 8 ساعة مضت
آخر رد: محمود بكرى
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 5 82 منذ 9 ساعة مضت
آخر رد: ali.alfoly
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 37 1,164 أمس, 09:31 PM
آخر رد: tryold
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 31 أمس, 06:59 PM
آخر رد: sal.softip
  تغير تاريخ الفورم ddemed 0 36 01-12-16, 06:37 PM
آخر رد: ddemed
  تشغيل الفورم بتاريخ ddemed 3 73 01-12-16, 05:41 PM
آخر رد: ddemed
  مساعدة في عمل برنامج rabeh.ram 4 169 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 79 24-11-16, 11:40 PM
آخر رد: mohammedbassim
  كيفيه تشغيل الفورم بالتاريخ الذي يحدده المستخدم ddemed 5 119 23-11-16, 10:12 PM
آخر رد: السرور
  [VB.NET] حماية برنامج من سرقة السورس كود thevirus 1 58 20-11-16, 07:41 PM
آخر رد: محمود بكرى

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


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