키보드제한 본문

[PL]/VB & VB.NET

키보드제한

객과 함께. 2012. 12. 5. 00:23

private sub txtText_KeyPress(index as integer, keyascii as integer)

selec:t case keyascii

case vbKeyReturn

sleect case index

case  0: text1.setFocus

case 1: text2.setFocus

end select

case Asc("0") to Asc("9")

case vbKeyBack

case else

           KeyAscii = 0

end select

end sub

 

텍스트 박스의 입력을 제한 하느 프로시저