السلام عليكم ورحمة الله
الحقيقة ده اول موضوع ليا في المنتدي وحبيت اشارك باداه عملتها بسيطة جدا لكن لذيذة وهي messagebox ببعض الامكانيات الخاصة من حركة والتحكم بها مثل الاتجاه X,Y ومعدل السرعةوالتحكم بالفونت الخاص بالرسالة من حجم ونوع وايضا بعض الاشكال الجميله اتمني ان تنول اعجابكم مع ملاحظة انها في طور التطوير
وانتظر منكم اي تعليقات عليها من اخطاء وغير ذلك
طريقة الاستخدام بسيطة للغاية وهي كالاتي :
اولا تعريف متغير عام بالخلية الخاصة بالاداه مثال
Dim mm As New HMessage.Message(Message.MSGBacKGroung.Theme6, True, True)
يوجد new structure في تعريف المتغير الخاص بها وبه ثلاث معاملات الاولي خاص بالشكل وبه مرقم به ثماني اشكال المعمل الثاني متغير منطقي وخاص بإتجاه الحركة لو true الحركة سوف تكون من X وتعني من اليسار الا اليمين و false سوف تكون من Y وتعني من فوق لتحت
والمعامل الاخير لتفعيل الحركة او لا تفعلها
نأتي لبعض الخصائص في الاداة كما يلي
ويوجد بالاداه ثلاث خصائص و structure كما يلي
mm.Effectss.AnimateDirction = Message.Effectss.AnimatDir.YDirction خاص بالاتجاه'
mm.Effectss.AnimateRate = 20 خاص بمعدل سرعة الحركة'
mm.Effectss.DoEffects = True خاص بتفعيل الحركة'
mm.MSGBackGround = Message.MSGBacKGroung.Theme7 خاص بشكل الاداة'
mm.MSGFont = New Font("arial", 12, FontStyle.Bold) نوع الخط وخصائصة'
mm.MSGForeColor = Color.Blue لون خط الرسالة'
وفي الاخر اتمني ان تنفع البعض منكم ان شاء الله
