إخراج برنامج اكسيل

[elfarok]

كيف يمكن إخراج الشكل النهائى لبرنامج اكسيل بهذا الشكل الرائع ...الرجاء افيدونا

[ياسر خليل أبو البراء]

سؤال يحتاج لسنوات من التعلم والإبداع المطلق

[شوقي ربيع]

السلام عليكم

لفعل ذلك اولا لازم يكون لديك تصور للمشروع الذي تعمل عليه

ثم تقوم بتصميم الازر  وخلفية الفورم بالفوتوشوب مثلا

ومن بعدها تحتاج الى تعلم الاكواد الازمة لربط الصور بالفورم

مثال بسيط

هذا المثال يعرظ الازرار بشكل اجمل

Option Explicit

Sub ImgSH(X As Byte)
Dim pth As String
pth = ThisWorkbook.Path & "\Image\B" & X & ".bmp"
Me.Frame1.Picture = LoadPicture(pth)
End Sub

Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): ImgSH 1: End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): ImgSH 2: End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): ImgSH 3: End Sub
Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): ImgSH 4: End Sub
Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single): ImgSH 5: End Sub

تم استخدام مجموعة صور للازرار

وليبلات في تنفيذ ذلك

ملاحظة يجب ان يكون ملف الصور في نفس المجلد مع الملف

 

 

مثال.rar

[ياسر خليل أبو البراء]

بارك الله فيك أخي الرائع شوقي ربيع (المتمكن)

[محمد الورفلي1]

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

 

سؤال الاخ الفاروق :: هو ليس بغريب بل من شدة الاعجاب بفورم الاخوين شوقي ربيع والاخ ضاحي الغريب  فهذا السؤال راودني واعتقد راود كثير من منتسبي هذا الصرح فا أنا لم اكن اعتقد انه يوجد في الاكسل القدرة بعدم ظهور الشيت او بمعني اخفاء الشيت تماماً ::::::: اريد ان اسئال لمن لدية اجابة كيف يتم اخفاء الشيت وعدم ظهورة نهائى ....

وكما قال الاخ ياسر خليل يحتاج مثابرة ووقت لتعلم ذالك

وشكراً على الابداع فليس غريب عليكم