تكبير وتصغير الصورة داخل الفورم - طلب الاخ ريان

[ضاحي الغريب]

 

أستفسر الأخ الكريم // ريان

 

في موضوع (( برنامج متكامل للصادر والوارد )) علي الرابط التالي

 

http://www.officena.net/ib/index.php?showtopic=46813&page=4

 

المشاركة رقم "67" عن كيفية التحكم في الصورة داخل الفورم

تكبيرها او تصغيرها

......................... 

فاحببت ان تكون المشاركة في موضوع جديد

حسب سياسة المنتدي ولتعميم الفائدة ولسهولة البحث

 

 

 

الملف بالمرفقات Office 2010

 

Rayan Image.rar

[عبدالله باقشير]

السلام عليكم

احسنت اخي الحبيب ضاحي الغريب

جزاكم ربي خيرا وبارك فيكم

 

تقبلوا تحياتي وشكري

[أبو عبد الرحمن سعيد]

جزاكم الله خيرا أخى ضاحى

عما تقدمه بخالص نيه صافيه

جعلكم الله تعالى من الامنين من عذابه

يوم لاينفع مالا ولابنين إلا من أتى الله بقلب سليم

تحياتى لشخصكم النبيل ..... جزاكم الله خيرا

[ريان أحمد]

السلام عليكم  أستاذي صاحي شكرا جزيلا وزادك الله في علمك

 

جربت الكود على البرنامج ونجح لكن هناك ملاحظة ستجدها في المرفق

 

44.rar

[ضاحي الغريب]

عبدالله باقشير قال فى 06 اكتوبر 2013 - 6:27 PM :

السلام عليكم

احسنت اخي الحبيب ضاحي الغريب

جزاكم ربي خيرا وبارك فيكم

 

تقبلوا تحياتي وشكري

أخي الحبيب ومعلمنا وأستاذنا القدير // عبدالله باقشير

بارك الله فيك علي دعمك المتواصل لنا

وعلي عطاءك المثمر وعلي وجودك دائما بجوارنا تدعمنا علي طول الدرب

جزاك الله خيرا علي دعائك الكريم 

تقبل الله منا ومنكم صالح الاعمال

وكل عام وانتم بخير اليوم غرة ذو الحجة

اعادها الله علينا وعليكم وعلي الامة الاسلامية بالخير واليمن والبركات

تقبل تحياتي واحترامي 

[ضاحي الغريب]

جزاكم الله خيرا أخى ضاحى

عما تقدمه بخالص نيه صافيه

جعلكم الله تعالى من الامنين من عذابه

يوم لاينفع مالا ولابنين إلا من أتى الله بقلب سليم

تحياتى لشخصكم النبيل ..... جزاكم الله خيرا

اخي الحبيب الخلوق صاحب الظل والروح الخفيفة // أبو سلمي وعبدالرحمن

بارك الله فيك علي دعائك الطيب الكريم بكرم شخصكم وطيب اخلاقكم

واللهم جعلنا واياكم وجميع المسلمين من الأمنين من عذابه 

تقبل الله منا ومنكم صالح الاعمال

وكل عام وانتم بخير اليوم غرة ذو الحجة اعادها الله علينا وعليكم وعلي الامة الاسلامية بالخير

وعلي مصر واهلها وشعبها بالامن والامان والاستقرار ويولي فينا من يصلح

تقبل تحياتي واحترامي

[ضاحي الغريب]

السلام عليكم  أستاذي صاحي شكرا جزيلا وزادك الله في علمك

 

جربت الكود على البرنامج ونجح لكن هناك ملاحظة ستجدها في المرفق

اخي الكريم // ريان

وعليكم السلام ورحمة الله وبركاته

كل عام وانتم بخير 

احمد الله تعالي ان العمل افادك وحقق مطلبك

بالنسبة للتعديل انك تريد عمل زووم معين لجزء من الصورة او تحريك الصورة

والتحكم فيها اثناء التكبير ان شاء الله تعالي يسر الامور وارفعها لك

تقبل تحياتي

[الـعيدروس]

السلام عليكم

 

شاهد المرفق

 

كود من اعمال العلامه عبدالله باقشير ( خبور خير )

Copie de Xl0000053.rar

[ضاحي الغريب]

السلام عليكم

 

شاهد المرفق

 

كود من اعمال العلامه عبدالله باقشير ( خبور خير )

أخي الحبيب واستاذنا // عباد

ماشاء الله

كود رائع بروعة استاذنا الحبيب ومعلمنا القدير ابو علي أ/ عبداالله باقشير

وبروعة شخصكم الكريم

جزاكم الله خيرا وبارك لكم

كل عام وانتم بخير

وهنيئا للاخ ريان بتحقيق مبتغاه

ووفقنا الله واياكم للصالحات

تقبلوا تحياتي

[ريان أحمد]

السلام عليكم

 

 

درر المنتدى  الأستاذ خبور والأستاذ عباد والأستاذضاحي شكرا جزيلا لكم 

 

عندما طبقت الكود الرائع تعارص مع كود آخر هو

 

كود الأستاذ خبور Private Sub UserForm_Activate()
 Mov
End Sub

  تعارص مع كود في الفورم الأصلي

 

 

 

Private Sub UserForm_Activate()
Dim r As Integer
    For r = 1 To 9
        Me.Controls("Label" & r).Caption = Sheet1.Cells(1, r).text
       rabie_NDcharge
    Next
   
    For r = 1 To 6
        Me.Controls("Labe" & r).Caption = Sheet2.Cells(1, r).text
       rabie_NDcharge
    Next
rabie_NDcharge
MultiPage1.Pages(3).Visible = False
Application.EnableCancelKey = xlDisabled
Application.Visible = False

End Sub

[الـعيدروس]

بيكون بهذا الشكل

مع دمج الاثنين

Private Sub UserForm_Activate()
Dim r As Integer
'****
Mov
'****
    For r = 1 To 9
        Me.Controls("Label" & r).Caption = Sheet1.Cells(1, r).Text
       rabie_NDcharge
    Next
   
    For r = 1 To 6
        Me.Controls("Labe" & r).Caption = Sheet2.Cells(1, r).Text
       rabie_NDcharge
    Next
rabie_NDcharge
MultiPage1.Pages(3).Visible = False
Application.EnableCancelKey = xlDisabled
Application.Visible = False
End Sub

[إبراهيم ابوليله]

الاخ ضاحى

مشكورا على الهديه

ومجهود رائع

بارك الله فيك

[ريان أحمد]

السلام عليكم

 

أستاذي عندما غيرتالكود

 

ظهر الخطأ الذي في الصورة التي في المرفق

 

Sans titre.rar

[عبدالله باقشير]

السلام عليكم

 

جرب المرفق 2003

Copie de Xl0000053.rar

[الـعيدروس]

تأكد من المتغير العام 

Private MyMov As New ClassMove

[ريان أحمد]

السلام عليك أستاذي  خبور طبقت  الملف في  برنامجي ونجحت الفكرة وهي مختصرة جزاك الله كل خير

 

أستاذي عباد الكود  يعمل بشكل جيد ونفس نتيجة ملف الأستاذ خبور

 

الخطأ كان أن الكود وصعته في الأسفل لكن عندما وصعت الكود في البداية  نجحت 100 ب100

 

جزاكم الله كل خير

[ريان أحمد]

السلام عليك أستاذي  خبور طبقت  الملف في  برنامجي ونجحت الفكرة وهي مختصرة جزاك الله كل خير

 

أستاذي عباد الكود  يعمل بشكل جيد ونفس نتيجة ملف الأستاذ خبور

 

الخطأ كان أن الكود وصعته في الأسفل لكن عندما وصعت الكود في البداية  نجحت 100 ب100

 

جزاكم الله كل خير

[ضاحي الغريب]

الاخ ضاحى

مشكورا على الهديه

ومجهود رائع

بارك الله فيك

أخي الكريم آ/ ابراهيم ابولية

بارك الله فيك وجزاك خيرا علي مرورك العطر

تقبل تحياتي واحترامي

[ضاحي الغريب]

أخي الحبيب ومعلمنا القدير// عبدالله باقشير (أبوعلي)

أخي الحبيب أستاذنا القدير // عباد (أبونصار)

بارك الله فيكم وجزاكم خيرا علي التعديلات الرائعة والفنية والمثمرة

 

تقبلوا تحياتي واحترامي

[عبدالله باقشير]

السلام عليكم

 

لاثراء الموضوع هذه طريقة اخرى لتكبير وتصغير الصورة

المرفق 2003

تكبير وتصغير الصورة.rar