[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