31-03-13, 12:49 PM
السلام عليكم ورحمة الله تعالى وبركاته
مشان ما اطيل عليكم
نفوت بالموضوع
أولا
ضع الادوات الاتية
Timer
Label
وضع خاصية Name للتايمر Style
وضع خاصية Name للابيل AscCode
وضغطتين على الفورم وامحي كل شيء
وضع هذا الكود على السريع :
والسلام عليكم ورحمة الله تعالى وبركاته
مشان ما اطيل عليكم
نفوت بالموضوع
أولا
ضع الادوات الاتية
Timer
Label
وضع خاصية Name للتايمر Style
وضع خاصية Name للابيل AscCode
وضغطتين على الفورم وامحي كل شيء
وضع هذا الكود على السريع :
كود :
Private Sub Form_KeyPress(KeyAscii As Integer)
AscCode.Caption = "Asc [ " & Chr$(KeyAscii) & " ] <<=|=>> " & " ( " & (KeyAscii) & " ) " ' ليعطيك الاسي كود ل اي زر
End Sub
' The Code Created By Alaa Akrami
Private Sub Form_Load()
'لتنسيق الواجهة على اكمل وجه
Form1.Caption = "AsciiCode Explorer" ' ضبط العنوان الرئيسي للفورم
Form1.BackColor = vbBlack 'ضبط لون خلفية الفورم للاسود
AscCode.BackColor = vbBlack 'ضبط لون خلفية اليبل للاسود
AscCode.ForeColor = vbWhite 'ضبط لون الخط للابيض
AscCode.Caption = "{{ " & " Press Any Key " & " }}" ' عندما تشغل البرنامج يطبع في الليبل اضغط اي زر
AscCode.Font.Bold = True ' يجعل الخط في الليبل سميك
AscCode.Font.Name = "Arial" ' يحوال الخيط الى اريل
AscCode.Font.Size = "15" ' يحوال حجم الخط الى 15
AscCode.AutoSize = True ' لجعل الليبل يتغير حجمه حسب الخط الذي فيه "النص والحجم"
Style.Interval = 1 ' لجعل قيمة المؤقت 1 من 1000 من الثانية
End Sub
Private Sub Style_Timer()
'لتنسيق احداثيات الليبل
AscCode.Left = ((Form1.Width / 2 - AscCode.Width / 2)) ' لجعل الفورم اقرب للوسط
AscCode.Top = ((Form1.Height / 2 - AscCode.Height / 2)) ' لجعل الفورم اقرب للوسط
AscCode.Font.Size = ((Form1.Height + Form1.Width) / 500) ' لجعل الخط الموجود داخل الليبل يناسب الحجم
End Sub
والسلام عليكم ورحمة الله تعالى وبركاته