수다닷컴

Private Sub Text1_KeyPress(KeyAscii As Integer)
If GetAsyncKeyState(vbKeyInsert) Then Text1.Text = Inesrt
End Sub이럴경우 INSERT키를 한번 누르고 백스페이스를 눌러줘야 text1에 Insert가 표시가되구요.Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If GetAsyncKeyState(vbKeyInsert) Then Text1.Text = Inesrt
If GetAsyncKeyState(vbKeyNumpad0) Then Text1.Text = numpad 0
End Sub
KeyDown을 쓸경우 INSERT키를 누를경우 잘 표시가됩니다. 하지만넘버패드0을 눌럿을경우 0numpad 0 이렇게 표시가됩니다.Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If GetAsyncKeyState(vbKeyInsert) Then Text1.Text = Inesrt
If GetAsyncKeyState(vbKeyNumpad0) Then Text1.Text = numpad 0
If GetAsyncKeyState(vbKeyNumlock) Then Text1.Text = Num Lock
End Sub
KeyUp을 쓸경우 키를 떼야지 표시가됩니다. (이제 제일 좋긴한데 넘버패드0을 쭉누르고잇으면 000000000000000000000이렇게 표시가되서 안좋아요 ㅠ)Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyInsert) Then Text1.Text = Inesrt
If GetAsyncKeyState(vbKeyNumpad0) Then Text1.Text = numpad 0
If GetAsyncKeyState(vbKeyNumlock) Then Text1.Text = Num LockEnd Sub네 역시 타이머를 이용할경우 Text1.Text 뿐만아니라 Text2.text에도 영향이 미치기때문에.. Private Sub Text1_Change()If GetAsyncKeyState(vbKeyInsert) Then Text1.Text = Inesrt
If GetAsyncKeyState(vbKeyNumpad0) Then Text1.Text = numpad 0
If GetAsyncKeyState(vbKeyNumlock) Then Text1.Text = Num LockEnd SubText1_Change() 이게 제일 좋은것같은데 왜 제일좋냐면..넘버패드로 예를들면 넘버패드 0을 쭉 누르고잇어도 0numpad 0 이렇게 표시가절대안대요그냥 numpad 0 이상태로잇어서..타이머를이용할경우 가끔 0numpad 0 이렇게 보엿다 사라지는게 잇어서[이해가안될시 직접해보면 도움이 아주 잘대요]이건Insert키가 먹히질 않아서...도와주세요 @..@

신청하기