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

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

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



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


الملفات المرفقة
.rar   NotifyIcon.rar (الحجم : 13.86 ك ب / التحميلات : 89)
الرد }}}
تم الشكر بواسطة:
#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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 293 27-02-24, 09:38 PM
آخر رد: aljzazy
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [VB.NET] كيف يمكنني استظافة سوفت وير برنامج ادارة جهاز السي بي سي في المختبر الى برنامجي الحزين اليماني 2 282 15-01-24, 10:39 PM
آخر رد: الحزين اليماني
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  برنامج لحفظ اكوادي samsunggears 2 385 05-01-24, 12:57 AM
آخر رد: HALIM ELEULMA
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 266 29-12-23, 10:44 PM
آخر رد: Kamil
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  [VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير visualist2015 6 6,358 29-09-23, 03:09 AM
آخر رد: Taha Okla
  انشاء واجهات برنامج شؤون الموظفين والرواتب شمسـ لا تغيب 5 12,846 27-09-23, 10:05 PM
آخر رد: melad2002

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


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