15-03-13, 11:55 PM
1- ممكن كود لتوسيط اداة الصور في وسط الفورم
2- ممكن كود لجعل الصورة بحجم الاداة وليس الاداة بحجم الفورم
2- ممكن كود لجعل الصورة بحجم الاداة وليس الاداة بحجم الفورم
اداة picture
|
15-03-13, 11:55 PM
1- ممكن كود لتوسيط اداة الصور في وسط الفورم
2- ممكن كود لجعل الصورة بحجم الاداة وليس الاداة بحجم الفورم
السلام عليكم...
1. السؤال الأول حول التوسيط: * إذا كنت تريد فقط توسيط مكون واحد (مثلاً Picture1) في Form واحدة فاكتب السطرين التاليين في الحدث Form_Resize: كود : Private Sub Form_Resize() * أما إذا كنت تريد نفس الأمر مع أكثر من مكون واحد و في أكثر من Form فاكتب الإجراء التالي في Module: كود : Public Sub CenterControl(AForm As Form, AControl As Control) ثم قم باستدعائه من الحدث Form_Resize للـ Form المعنية، مثلاً: كود : CenterControl Me, Picture1 2. السؤال الثاني حول تكبير الصورة حسب حجم المكون: * يمكنك استعمال المكون Image مع ضبط الخاصية Stretch على True، حيث ستأخذ الصورة حجم المكون Image مهما غيرت حجمه. * أما إذا كان من الضروري استعمال المكون PictureBox فضع الصورة في مكون Image مخفي (Visible = False) ثم اكتب الكود التالي في الحدث Paint الخاص بالـ PictureBox: كود : Private Sub Picture1_Paint() حيث نقوم بنسخ الصورة من الـ Image إلى الـ PictureBox مع تمديدها أو تقليصها حسب حجم الـ PictureBox. *** للفائدة: يمكننا استعمال الوظيفة PaintPicture لقلب الصورة أفقياً و / أو رأسياً و ذلك باستعمال إحداثيات النهاية كإحداثيات بداية و استعمال قيمة سالبة للأبعاد. مثلاً لقلب الصورة أفقياً: كود : Private Sub Picture1_Paint() نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
16-03-13, 12:54 AM
جزاك الله خيرا وزادك من علمه
25-06-13, 11:16 PM
السلام عليكم المشكلة اخ ناجي إبراهيم
اذا استعملت الموديول وخاصية تحجيم الفورم فسيكون كل الادوات في الوسط والذي اريده هو توسيط كل الادوات كجزء لا يتجزء وشكر جزيل الشكر
01-07-13, 08:08 PM
|
|