+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سورس كود برنامج يعطيك Ascii Code لاي زر "ممتاز" (/showthread.php?tid=8260)
سورس كود برنامج يعطيك Ascii Code لاي زر "ممتاز" - علاء الاكرمي - 31-03-13
السلام عليكم ورحمة الله تعالى وبركاته
مشان ما اطيل عليكم
نفوت بالموضوع
أولا
ضع الادوات الاتية
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والسلام عليكم ورحمة الله تعالى وبركاته
سورس كود برنامج يعطيك Ascii Code لاي زر "ممتاز" - VB_Coder - 31-03-13
وعليكم السلام
- مشكور أخي الكريم . جزاك الله خير .
- تحياتي لك .
سورس كود برنامج يعطيك Ascii Code لاي زر "ممتاز" - علاء الاكرمي - 31-03-13
شكراً على المرور
سورس كود برنامج يعطيك Ascii Code لاي زر "ممتاز" - ناجي إبراهيم - 31-03-13
السلام عليكم...
شكراً على الكود، و لكن ليس من الصواب استعمال الـ Timer في هذا الغرض (المحافظة على توسيط الـ Label) خاصة و أن الكود سيتم تنفيذه 1000 مرة في الثانية الواحدة - على الأقل نظرياً.
* يكفي وضع نفس الكود في الحدث Form_Resize لتنفيذه فقط عندما يتغير حجم (أبعاد) النافذة.
شكراً مرة أخرى و السلام عليكم.
سورس كود برنامج يعطيك Ascii Code لاي زر "ممتاز" - علاء الاكرمي - 02-04-13
هههههه معك حق
شكراً على المرور
سورس كود برنامج يعطيك Ascii Code لاي زر "ممتاز" - زكريا النابهي - 02-04-13
علاء الاكرمي كتب :هههههه معك حق
شكراً على المرور
هذا كود بأستخدام vb9
اولا قم بأضافة 2 Text box
في حدث KeyPress للتكست الاول
اكتب الكود :
txt2.Text=e.KeyCode.ToString