تصميم قالب واجهة برنامج تسيير محلات تجارية

[Guest محمد ابو صهيب]

Option Explicit

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)           ' تصريح بالدالة Sleep على نظام التشغيل  Win32
Const Title As String = "برنامج المتجر العربي لتسيير المحلات التجارية"
Dim X, J As Integer

Sub Défil()
'تعريف بالمتغيرات
     With Sheet1                          ' الورقة1
        For X = 1 To 10000                'تكرار تنفد الخطوات من 1 الى  next
          DoEvents                        'تحريك النص
          For J = 1 To 60                 'حلقة تكرارية 
          DoEvents
         .[E1].FormulaR1C1 = Left([Title], J) ' تحريك النص من اليمين الى اليسار [E1]
         .[E1].Font.Color = QBColor(Rnd * 15) تلوين النص 
        Sleep (200)                          التوقف بمقدار أجزاء من الثانية
       Next J
     Next X
  End With
End Sub




Private Sub L1_Click()
ThisWorkbook.FollowHyperlink "http://www.facebook.com", , True
End Sub

Private Sub L1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If [E1] <> "" Then ActiveSheet.Shapes("L_1").Fill.ForeColor.RGB = RGB(68, 114, 196)
[Q4] = "فايس بوك"
[Q4].Font.Color = RGB(68, 114, 196)
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveSheet.Shapes("L_1").Fill.ForeColor.RGB = &HA6A6A6
[Q4] = ""

ActiveSheet.Shapes("L_2").Fill.ForeColor.RGB = &HA6A6A6
[Q7] = ""

ActiveSheet.Shapes("L_3").Fill.ForeColor.RGB = &HA6A6A6
[Q10] = ""
End Sub

Private Sub Label2_Click()
ThisWorkbook.FollowHyperlink "http:twitter.com/", , True
End Sub

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If [E1] <> "" Then ActiveSheet.Shapes("L_2").Fill.ForeColor.RGB = RGB(0, 176, 240)
[Q7] = "تويتر"
[Q7].Font.Color = RGB(0, 176, 240)
End Sub

Private Sub Label3_Click()
ThisWorkbook.FollowHyperlink "http:Youtube.com/", , True

End Sub

السلام عليكم ...حياكم الله .....أحببت ان اشاركم بقالب واجهة برنامج تسيير محلات تجارية ....هو عبارة عن سلسلة تدريبية لتصميم القوالب في الأكسل ....للمحترفين في البرمجة بدون أن ننسى مشاركتنا ليستفد منها المبتدئين والمحترفين معا ......

1- لا يخلوا برنامج الأكسل على غيره  من البرامج الأخرى كلها تصب في مصب واحد ....وهي البرمجة ...إلا أن برنامج الأكسل محدود السعة ....والبرامج الأخرى من Delphi-vbnet.java ...وغيرهم من البرامج البرمجة يكبون في نفس النهر ..وهو تصميم وبرمجة ......  

2- اسعملنا في هذا لتطبيق أدوات خاصة بالمكروسوفت أكسل ...لا غير 

3- استعملنا خطوط يحتوها البرنامج ....الا أحببت أن أضع داخل shape صور Wingdings 2...لنتعرف على هذه الخطوط وكيفية استعمالها في التطبيقات...

3- وضعات شريط تمرير في بداية البرنامج عند الافتتاح .....باستعمال دالة QBColor ....و دالة Rnd.ودالة Sleep....و دالة DoEvents

4- استعملنا بكل بساطة خاصية اللارتباط التشعبي لانتقال من صفحة الى صفحة....

5- الرجاء الغاء Heading لتكون الواجهة مبعئة بشكل الكامل 

ملاحظة : اذا اردت ان يكون عدد تكرار شريط تمرير أقل ....عليك باستبدال  For x = 1 to 2 ....لتنفيد العملية مرتين .....فقط وبقف تحريك النص ...هذا عل سبيل التطبيق ...المهم عرفنا عدد مرات تحريك الشريط

 

تصميم واجهة برنامج تسيير محلات تجارية.rar

تم تعديل يناير 23, 2017 بواسطه محمد ابو صهيب
زيادة صور في الملف