ผู้เขียน หัวข้อ: การคัดลอกซอสโค้สมาไว้ในเวิร์ดหรือโน้ตแพทไม่ให้เป็นภาษาต่างด้าว  (อ่าน 3741 ครั้ง)

admin

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



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

โค๊ด: [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

« แก้ไขครั้งสุดท้าย: ธันวาคม 24, 2011, 12:25:42 PM โดย admin »