هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

مُساهمة من طرف Microformt في الأحد أبريل 13, 2014 4:22 pm

الاخوه الكرام
 السلام عليكم ورحمة وبركاته
هل يوجد طريقه في إدرج ايقونه  في زر الامر من الايقونات المجوده على سطح الفوم بدون  تقسيم الصوره الى أجزا  ؟؟
نامل المساعده في برنامجي المرفق  على الرابط التالي
http://zakyshny.eu5.org/kleeja/uploads/egy-tech13974061171.rar
والله يحفظكم ويرعاكم
 ويجعل الجنه داركم الاخير
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

مُساهمة من طرف السنى في الإثنين أبريل 14, 2014 7:37 am

هل هذا ما تريدة

http://zakyshny.eu5.org/kleeja/uploads/egy-tech13974610201.rar
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

مُساهمة من طرف Microformt في الإثنين أبريل 14, 2014 11:36 am

السنى كتب:هل هذا ما تريدة

http://zakyshny.eu5.org/kleeja/uploads/egy-tech13974610201.rar
 اخي العزيز
 السلام عليكم ورحمة وبركاته
 إجابه غير موافقة !

انا اريد إدراج كل ايقونه في زر امر بدون تقسيم الصوره ؟؟

ملاحظه إجابتك  هذه اعرفها
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

مُساهمة من طرف NEXT في الإثنين أبريل 14, 2014 6:18 pm

الحل على النحو التالى :

http://zakyshny.eu5.org/kleeja/uploads/egy-tech13974995131.rar
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 265
النقاط : 380
التقيم : 9
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

مُساهمة من طرف Microformt في الثلاثاء أبريل 15, 2014 1:54 pm

NEXT كتب:الحل على النحو التالى :

http://zakyshny.eu5.org/kleeja/uploads/egy-tech13974995131.rar
اخي اعزيز
 سوال  هام جداً
 عندما اريد تغير الايقون الى ايقونه اخرى  كيف يتم التعديل على الكود ؟؟
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

مُساهمة من طرف NEXT في الثلاثاء أبريل 15, 2014 3:01 pm


اخي اعزيز
سوال هام جداً
عندما اريد تغير الايقون الى ايقونه اخرى كيف يتم التعديل على الكود ؟؟

يتم ذلك عن طريق تحديد خصائص 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

وهكذا بالنسبة لباقى الايقونات

avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 265
النقاط : 380
التقيم : 9
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

مُساهمة من طرف NEXT في الثلاثاء أبريل 15, 2014 3:12 pm


كما يوجد طريقة اخرى افضل من السابقة و هى ان نقوم بتقسيم الصورة النقطية إلى عدد معين من الصفوف والأعمدة.لخلق خلايا ومن ثم يمكن الوصول إليها باستخدام رقم فهرس. حيث يتم فهرسة الخلايا ابتداء من 0 والزيادة من اليسار إلى اليمين

فمثلا سنقوم بتقسم الصورة التى بالمثال الى 8 اعمدة لانها تحتوى على 8 ايقونات و صف واحد و يتم الوصول لكل صورة بالرقم المفهرس باستخدام الخاصية GraphicCell على النحو التالى :

الكود:
With PictureClip1
.Cols = 8
.Rows = 1

Command1.Picture = .GraphicCell(0)
End With

حيث الرقم 0 يعبر عن اول ايقونة من اليسار فى الصورة ....و للحصول على الايقونة الثانية يمكنك التعبير بالرقم 1 بدلا من صفر وهكذا حتى الرقم 8 و الذى يعبر عن اخر ايقونة من اليسار فى الصور مثالك
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 265
النقاط : 380
التقيم : 9
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

مُساهمة من طرف Microformt في الثلاثاء أبريل 15, 2014 5:53 pm

NEXT كتب:
كما يوجد طريقة اخرى افضل من السابقة و هى ان نقوم بتقسيم الصورة النقطية إلى عدد معين من الصفوف والأعمدة.لخلق خلايا ومن ثم يمكن الوصول إليها باستخدام رقم فهرس. حيث يتم فهرسة الخلايا ابتداء من 0 والزيادة من اليسار إلى اليمين

فمثلا سنقوم بتقسم الصورة التى بالمثال الى 8 اعمدة لانها تحتوى على 8 ايقونات و صف واحد و يتم الوصول لكل صورة بالرقم المفهرس باستخدام الخاصية GraphicCell على النحو التالى :

الكود:
With PictureClip1
.Cols = 8
.Rows = 1

Command1.Picture = .GraphicCell(0)
End With

حيث الرقم 0 يعبر عن اول ايقونة من اليسار فى الصورة ....و للحصول على الايقونة الثانية يمكنك التعبير بالرقم 1 بدلا من صفر وهكذا حتى الرقم 8 و الذى يعبر عن اخر ايقونة من اليسار فى الصور مثالك
اخي الكريم
 السلام عليكم ورحمة وبركاته
وإذا كانت الصوره  بشكل عمودي كيف يصبح شكل الكود ؟؟
 يحفظكم ويرعاكم
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

مُساهمة من طرف NEXT في الثلاثاء أبريل 22, 2014 7:18 am


عشان حضرتك عدلت المشاركة فلم يظهر فى المواضيع الجديدة و بالتالى لم افهم منك أنك تريد الاستفسار على سؤال اخر

على اى حالة بالنسبة للاستفسار ....فى حالة ان الصورة فى شكل عمودى سيكون الكود على النحو التالى :
الكود:

With PictureClip1
.Cols = 1
.Rows = 8

Command1.Picture = .GraphicCell(0)
End With


 Very Happy Very Happy 
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 265
النقاط : 380
التقيم : 9
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: هل يوجد طريقه في إدرج ايقونه في زر الامر من الايقونات المجوده على سطح الفوم بدون تقسيم الصوره الى أجزا ؟؟

مُساهمة من طرف Microformt في الأربعاء أبريل 23, 2014 8:33 am

NEXT كتب:
عشان حضرتك عدلت المشاركة فلم يظهر فى المواضيع الجديدة و بالتالى لم افهم منك أنك تريد الاستفسار على سؤال اخر

على اى حالة بالنسبة للاستفسار ....فى حالة ان الصورة فى شكل عمودى سيكون الكود على النحو التالى :
الكود:

With PictureClip1
.Cols = 1
.Rows = 8

Command1.Picture = .GraphicCell(0)
End With


 Very Happy Very Happy 
اخي العزيز
السﻻم عليكم ورحمة وبركاته 
لك مني الف شكر وتقدير والله يحفظكم ويرعاكم
avatar
Microformt
.....
.....

تاريخ التسجيل : 10/11/2013
المساهمات : 91
النقاط : 171
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى