تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود استخراج العلامات الخاصة
#2
وعليكم السلام ورحمة الله وبركاته

محارف الكيبورد هي من نوع بايت -- أي عددها 256 محرف 
تبدأ بـ 0 وتنتهي بـ 255
في حال غيرت اللغة تتغير بعض المحارف المخزنة .. 
إذا أردت استعراض تلك المحارف وما تمثله من قيم وما يقابل تلك القيم من محارف 
استخدم الكود التالي : 
كود :
   Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       For i = 0 To 255
           ListBox1.Items.Add(i)
           ListBox2.Items.Add(Chr(i))
       Next
   End Sub

   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       ListBox2.SelectedIndex = ListBox1.SelectedIndex
   End Sub

   Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
       ListBox1.SelectedIndex = ListBox2.SelectedIndex
   End Sub


في حال النقر على أي محرف أو كود سيعطيك المقابل له ...
الفراغ أو المربعات الظاهرة في بعض المحارف - هي دليل على أن اللغة التي يتعامل بها هذا الاصدار من الفيجول ولغة الـ Listbox1 لا تغطي تلك المحارف 
في الـ Vb6.0 كانت تظهر أغلب تلك المحارف ..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: asmarsou , حسن الجلب , سعود , سعود


الردود في هذا الموضوع
RE: كود استخراج العلامات الخاصة - بواسطة Taha Okla - 09-08-22, 03:32 PM


التنقل السريع :


يقوم بقرائة الموضوع: