[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
المهم اصبر علي شوي اكتب لك كود عشان يظهر النافذة المطلووبة
29-08-13, 05:55 PM (آخر تعديل لهذه المشاركة : 29-08-13, 06:49 PM {2} بواسطة hussein.)
تفضل اخي كتبت لك دالة تفعل ماتريده
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]()
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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير