บทความประกอบการเรียนรู้ => เทคนิคการอินเตอร์เฟส Visual Basic => ข้อความที่เริ่มโดย: admin ที่ ตุลาคม 22, 2011, 05:50:46 PM

หัวข้อ: การคัดลอกซอสโค้สมาไว้ในเวิร์ดหรือโน้ตแพทไม่ให้เป็นภาษาต่างด้าว
เริ่มหัวข้อโดย: admin ที่ ตุลาคม 22, 2011, 05:50:46 PM

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

(http://image.free.in.th/z/iy/setthai1.png)

หากไม่ทำ..ผลจะได้
(http://image.free.in.th/z/iw/setthai2.png)

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

ทำการกดเปลี่ยนภาษาก่อน
(http://image.free.in.th/z/id/setthai3.png)
ผลจะได้
(http://image.free.in.th/z/io/setthai4.png)

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