|
|
|
|
وعليكُم السلام ورحمةُ اللـهِ وبركاتُه ..
أهلاً بِكَ أخي حُسام ^__^ ،
بحثت ووجدت لكَ هذا الرابط :
http://www.vb4arab.com/vb/showpost.php?p=111670&postcount=3
أرجو أن يُفيدك ^^" ،
بالتوفيق وبانتظار أول البرامج ^_^ .
|
|
سلمت يداك أبا سامي ^_^...
لا هنت
|
|
مشكورين
...
|
|
ممكن هالكتاب مترجم عربي؟؟
Programming in Visual Basic 2008
|
|
>> بطلب من عمنا اسلام 2006 :P
لانه يقول ان هذا ممكن ناس تسأل عليه .. فهو يعني مش هنقول انه بيكسل ينسخه ويضعه في نوت باد .. ويلصقه لمن يسأله عنه .. !! << كف xP
لا هو قال لي اني اضعه هنا عشان يستفيد منه الأعضاء جميعا ويعم الخير على المسلمين ^^"
لغة البرمجة : فيجوال بيسك ... بلاش فلسفة لا دوت نيت ولا دوت كوم xD
السؤال : ..
هنالك صورة تم برمجتها على انها تكون بلا فريم .. يعني لا يوجد لها شريط عنوان ...
امممم بالتالي كيف نقوم بتحريكها من مكانها ؟
هذا أمر سهل جدا .. سنقوم بوضع الأبعاد الثنائية كمتغيرات X , Y .. ومن ثم نقوم بطرح بعض الأشياء من بعضها ههه وشوية خرابيط كذا .. وفجأه نجد الفورم قد تحرك .. انها عملية النقر والسحب والافلات هع
كيف نكتب الكود اذا ؟؟ هذا ماسيخبرنا به عمكم اسلام 2006 ..
طيب وبما انك راح تيجي تجاوب .. وتكّود شوية .. اكتب لنا مشكورا بالمرة .. الكود حق زر التصغير في شريط المهام ^_^
ونأسف للازعاج ..
وشكرا جزيلا لك اسلامو ^^"
|
|
:S
لمض كالعادة :P
بما انك تتفلسف كنت سأضع لك مثال متكامل برفع بروجيكت صغير متكامل لعمل المطلوب وزيادة لكني لن أفعل الان xDDDDD
سأضع لك الأكواد التي طبتها تحديدا فقط xP
كود:Private _mouseDown As Boolean = False Private _formMousePos As Point Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown _mouseDown = True _formMousePos = Me.PointToClient(Cursor.Position) End Sub Private Sub Form1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp _mouseDown = False End Sub Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove If _mouseDown Then Dim newPos As Point = Cursor.Position newPos.Offset(-_formMousePos.X, -_formMousePos.Y) Location = newPos End If End Sub
طبعا عليك باستخراج المطلوب منها بنفسك xPPP
اذا لم تفهم شيئا اسأل ^^
|
|
|
|
التصغير لشريط المهام لا يحتاج لكود معقد...ببساطة:
^_^كود:Form1.WindowState=Minimized
|
|
وضع الكود على حسب ما تنوي عمله بالضبطنفع :P
وبعدين انا مااتفلسفت هع
بس هذا على أي مكان فـ الفورم .. البرنامج يعني ..
لذا انا قمت بالتعديل ع الكود .. ليعمل على " صورة " ^_^"
يمكنك الإستغناء عن استخدام picturebox ووضع الصورة كخلفية مباشرة في الفورم لكن لن تستطيع رؤية أي انيميشن في الصور التي بصيغة gif وفي تلك الحالة ستضع الكود كما هو
اما ان كنت ستستخدم picturebox وستجعل عرضه وارتفاعه بعرض وارتفاع الفورم فعندها ستعدل الكود ليعمل على الصورة نفسها
اما ان كانت ابعاد ال picturebox اقل من ابعاد الفورم فستستعمل هذا الكود كما هو وتنسخه كذلك مرة اخرى وتعدل فيه ليعمل على الصورة بحيث يعمل على الفورم والصورة معا