يمكنك باستخدام Checkbox
أولآ اجعل خاصيه
FormBorderStyle = None
من الخصائص
او بى هذا الكود
كود :
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
ثم هذا الكود لى تحريك الفرم او لا
كود :
Dim Chck As Integer
Dim mouseMovx As Integer
Dim mouseMovy As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
Chck = True
mouseMovx = Windows.Forms.Cursor.Position.X - Me.Left
mouseMovy = Windows.Forms.Cursor.Position.Y - Me.Top
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If Chck = True And CheckBox1.Checked = True Then
Me.Top = Windows.Forms.Cursor.Position.Y - mouseMovy
Me.Left = Windows.Forms.Cursor.Position.X - mouseMovx
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Chck = False
End Sub
(02-02-14, 10:51 PM)أسامة كتب : [ -> ]يمكنك باستخدام Checkbox
أولآ اجعل خاصيه
FormBorderStyle = None
من الخصائص
او بى هذا الكود
كود :
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
ثم هذا الكود لى تحريك الفرم او لا
كود :
Dim Chck As Integer
Dim mouseMovx As Integer
Dim mouseMovy As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
Chck = True
mouseMovx = Windows.Forms.Cursor.Position.X - Me.Left
mouseMovy = Windows.Forms.Cursor.Position.Y - Me.Top
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If Chck = True And CheckBox1.Checked = True Then
Me.Top = Windows.Forms.Cursor.Position.Y - mouseMovy
Me.Left = Windows.Forms.Cursor.Position.X - mouseMovx
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Chck = False
End Sub
جاري التجربة وشكرا
أخي الكريم اشكرك على هذا الكود
لكن الكود يعمل من حيث التحريك
لكن اخي كنت اقصد ان يتم وضع الفورم على الديسك توب
بحيث انه لا يتنقل بين النوافذ مثل الساعة المرفقة في الأعلى حيث لا تنتقل من على الديسك توب لكن يمكنها التحرك من موضع على الديسك توب الى موضع اخر على الديسك توب
و اعيد شكري لك للمساعدة

اللي بالصورة ادوات ذكية ولها برمجة خاصة.
(03-02-14, 10:35 AM)سعود كتب : [ -> ]اللي بالصورة ادوات ذكية ولها برمجة خاصة.
لكن اخي الكريم انظر لهذا مثلاً
الصورة من جهازي
هذا البرنامج يدعى Icon Groups
و هو مسئول عن تنظيم الأيكونات من سطح المكتب
كما انه عندما كنت اعمل على Windows XP يابقا كان لدي برنامج يضع لي ساعة على سطح المكتب
اذا الأمر ليس صعبا كثيراً ؟
فان كان هؤلاء قد فعلوا فعمالقة المنتدى بالتأكيد يمكنهنم المساعدة

(03-02-14, 03:28 PM)Easy4ever كتب : [ -> ]وعليكم السلام ورحمة الله وبركاتة
أخي الكريم أنظر لهذا الفيديو قد يفيدك
http://www.youtube.com/watch?v=PpGe_WhmSlM
هو لم يصنع ساعه حقيقية بل استعان بصورة حتى يصل لك الفكرة بكيفية صنع أداة ذكية على سطح المكتب
من الفكرة هذي تستطيع برمجة اي شيء
-------
وأنظر لهذا الرابط قد يفيدك
فهو وضع بين يديك برنامج مفتوح المصدر لحاوية برامج ذكية
صورة من البرنامج
الرابط
http://www.startimes.com/f.aspx?t=31917796
بالتوفيق اخي الكريم
جاري التجربة و شكرا
صديقي العزيز اشكرك جزيل الشكر على المحاولة

لكن هذين الطريقتين يحققان ما اريد فيماعدا انها ليست على الديسك توب
فكيف اجعلها على الديسك توب بحيث الا تتحرك من عليه ؟
اي مثلا عندما افتح المتصقح لا اراها
عنما افتح احد البرامج لا اراها
لا اراها الا على الديسك توب

و اشكرك على محاولتك
اخوتي لدي فكرة
ماذا اذا قلت له عندما يكون الديسكتوب موجودا ME.Show
وعند الذهاب الى اي برنامج اخر(الخروج من الديسكتوب) ME.Hide
لكني لا اعرف كيف اكودها ؟
(03-02-14, 03:56 PM)الشاكي لله كتب : [ -> ]ماتسعى اليه يسمى Gadget وكما قال الاخ سعود له برمجة خاصة
في العادة تبرمج بعدة لغات (#HTML, XML, CSS, JAVASCRRIPT , C#(Script
هناك دورة كاملة في mdsn تشرح كيفية برمجة الGadget
http://msdn.microsoft.com/en-us/library/...85%29.aspx
موفق
اخي الكريم كيف عميت ان ارى اجابتك
اسفغ جدا لم ارها
اجرب الآن
أخي الكريم
ال Gadget موجودة على ويندوز 7 فقط و ليست موجودة على اي ويندوز قبله او بعده
وبالتالي فهي غير مفيدة