هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
الاخوه الكرام
السلام عليكم ورحمة وبركاته
هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
نامل المساعده في برنامجي المرفق على الرابط التالي
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
والله يحفظكم ويرعاكم
ويجعل الجنه داركم الاخير
السلام عليكم ورحمة وبركاته
هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
نامل المساعده في برنامجي المرفق على الرابط التالي
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
والله يحفظكم ويرعاكم
ويجعل الجنه داركم الاخير
Microformt- .....
- تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة :
الجنس :
السنى- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس :
رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
اخي العزيز
السلام عليكم ورحمة وبركاته
إجابه غير موافقة !
انا اريد إدراج كل ايقونه في زر امر بدون تقسيم الصوره ؟؟
ملاحظه إجابتك هذه اعرفها
Microformt- .....
- تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة :
الجنس :
رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
اخي اعزيز
سوال هام جداً
عندما اريد تغير الايقون الى ايقونه اخرى كيف يتم التعديل على الكود ؟؟
Microformt- .....
- تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة :
الجنس :
رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
اخي اعزيز
سوال هام جداً
عندما اريد تغير الايقون الى ايقونه اخرى كيف يتم التعديل على الكود ؟؟
يتم ذلك عن طريق تحديد خصائص ClipX وClipY لتحديد المستوى الافقى و الرأسى من المنطقة فى الصورة وخصائص ClipHeight وClipWidth لتحديد حجم الجزء المراد عرضة
وبما ان الايقونات التى فى الصورة فى مثالك على مستوى أفقى واحد و بالتالى فان :
ClipY = 0
اما على المستوى الرأسى فكل ايقونة تأخذ مستوى معين و بالتالى فإن اول ايقونة تبدأ
ClipX = 1
وحجم كل ايقونة بيساوى حوالى 20*20 بيسكل ويوجد فرق ما بين كل ايقونة حوالى 10 بيسكل و بالتالى فانه يجب ان يكون المستوى الرائسى للايقونة الثانية حوالى 30 (20 حجم الايقونة الاولة + 10 حجم الفراغ بين الايقونة الاولى و الثانية ) ....و يتم تمثليها فى الكود على النحو التالى :
.ClipX = 30
و الكود الكامل الاظهار الايقونة الثانية على النحو التالى :
- الكود:
With PictureClip1
.ClipX = 30
.ClipY = 0
.ClipHeight = 20
.ClipWidth = 20
Command1.Picture = .Clip
End With
ولاظهار الايقونة الثالثة سيتم حساب على النحو التالى ( 20 حجم الايقونة الاولى +20 حجم الايقونة الثانية +10 الفراغ ما بين الاولى و الثانية + 10 الفراغ ما بين الثانية و الثالثة ) اذن المستوى الراسى للايقونة الثالثة على النحو التالى :
ClipX = 60
وهكذا بالنسبة لباقى الايقونات
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
كما يوجد طريقة اخرى افضل من السابقة و هى ان نقوم بتقسيم الصورة النقطية إلى عدد معين من الصفوف والأعمدة.لخلق خلايا ومن ثم يمكن الوصول إليها باستخدام رقم فهرس. حيث يتم فهرسة الخلايا ابتداء من 0 والزيادة من اليسار إلى اليمين
فمثلا سنقوم بتقسم الصورة التى بالمثال الى 8 اعمدة لانها تحتوى على 8 ايقونات و صف واحد و يتم الوصول لكل صورة بالرقم المفهرس باستخدام الخاصية GraphicCell على النحو التالى :
- الكود:
With PictureClip1
.Cols = 8
.Rows = 1
Command1.Picture = .GraphicCell(0)
End With
حيث الرقم 0 يعبر عن اول ايقونة من اليسار فى الصورة ....و للحصول على الايقونة الثانية يمكنك التعبير بالرقم 1 بدلا من صفر وهكذا حتى الرقم 8 و الذى يعبر عن اخر ايقونة من اليسار فى الصور مثالك
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
اخي الكريمNEXT كتب:
كما يوجد طريقة اخرى افضل من السابقة و هى ان نقوم بتقسيم الصورة النقطية إلى عدد معين من الصفوف والأعمدة.لخلق خلايا ومن ثم يمكن الوصول إليها باستخدام رقم فهرس. حيث يتم فهرسة الخلايا ابتداء من 0 والزيادة من اليسار إلى اليمين
فمثلا سنقوم بتقسم الصورة التى بالمثال الى 8 اعمدة لانها تحتوى على 8 ايقونات و صف واحد و يتم الوصول لكل صورة بالرقم المفهرس باستخدام الخاصية GraphicCell على النحو التالى :
- الكود:
With PictureClip1
.Cols = 8
.Rows = 1
Command1.Picture = .GraphicCell(0)
End With
حيث الرقم 0 يعبر عن اول ايقونة من اليسار فى الصورة ....و للحصول على الايقونة الثانية يمكنك التعبير بالرقم 1 بدلا من صفر وهكذا حتى الرقم 8 و الذى يعبر عن اخر ايقونة من اليسار فى الصور مثالك
السلام عليكم ورحمة وبركاته
وإذا كانت الصوره بشكل عمودي كيف يصبح شكل الكود ؟؟
يحفظكم ويرعاكم
Microformt- .....
- تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة :
الجنس :
رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
عشان حضرتك عدلت المشاركة فلم يظهر فى المواضيع الجديدة و بالتالى لم افهم منك أنك تريد الاستفسار على سؤال اخر
على اى حالة بالنسبة للاستفسار ....فى حالة ان الصورة فى شكل عمودى سيكون الكود على النحو التالى :
- الكود:
With PictureClip1
.Cols = 1
.Rows = 8
Command1.Picture = .GraphicCell(0)
End With
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟
اخي العزيزNEXT كتب:
عشان حضرتك عدلت المشاركة فلم يظهر فى المواضيع الجديدة و بالتالى لم افهم منك أنك تريد الاستفسار على سؤال اخر
على اى حالة بالنسبة للاستفسار ....فى حالة ان الصورة فى شكل عمودى سيكون الكود على النحو التالى :
- الكود:
With PictureClip1
.Cols = 1
.Rows = 8
Command1.Picture = .GraphicCell(0)
End With
السﻻم عليكم ورحمة وبركاته
لك مني الف شكر وتقدير والله يحفظكم ويرعاكم
Microformt- .....
- تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد