การคัดลอกซอสโค้สมาไว้ในเวิร์ดหรือโน้ตแพทไม่ให้เป็นภาษาต่างด้าว

[admin]

ทำได้โดยก่อนการคลุมดำในส่วนที่ต้องการคัดลอก
ต้องกดคีย์เปลี่ยนให้เป็นภาษาไทยก่อน
แล้วถึง คลุมดำ-> คัดลอก -> วาง



หากไม่ทำ..ผลจะได้

โค๊ด: [Select]

Private Sub Text1_KeyPress(KeyAscii As Integer)        ' µÃǨÊͺ¡Òûé͹µÑÇàÅ¢ â´ÂãËéãÊèµÑÇàÅ¢ä´éà·èÒ¹Ñé¹
     If KeyAscii < 48 Or KeyAscii > 57 Then                   ' àÅ¢ 0 ÁÕÃËÑÊáÍÊ¡Õè 48 áÅÐàÅ¢ 9 ÁÕÃËÑÊáÍÊ¡Õè 57
          MsgBox ".»é͹µÑÇàÅ¢à·èÒ¹Ñé¹"
          Text1.Text = ""
          KeyAscii = 0                                                          ' źµÑÇÍÑ¡É÷Õè¾ÔÁ¾ìà¢éÒÁÒ
     End If
End Sub

ทำการกดเปลี่ยนภาษาก่อน

ผลจะได้

โค๊ด: [Select]

Private Sub Text1_KeyPress(KeyAscii As Integer)        ' ตรวจสอบการป้อนตัวเลข โดยให้ใส่ตัวเลขได้เท่านั้น
     If KeyAscii < 48 Or KeyAscii > 57 Then                   ' เลข 0 มีรหัสแอสกี่ 48 และเลข 9 มีรหัสแอสกี่ 57
          MsgBox ".ป้อนตัวเลขเท่านั้น"
          Text1.Text = ""
          KeyAscii = 0                                                          ' ลบตัวอักษรที่พิมพ์เข้ามา
     End If
End Sub