수다닷컴

private sub command1_click()
clipboard.clear
clipboard.settext text3.text & text2.text & text4.text
end subprivate sub command2_click()
a.text = vbnullstring
b.text = vbnullstring
end subprivate sub form_load()
text3.locked = true
text4.locked = true
end subprivate sub text1_keypress(keyascii as integer)
if keyascii = 97 then
text1 = text1 & a
text2 = d67e & text2
elseif keyascii = 98 then
text1 = text1 & b
text2 = e67e & text2
elseif keyascii = 99 then
text1 = text1 & c
text2 = f67e & text2
elseif keyascii = 100 then
text1 = text1 & d
text2 = g67e & text2
elseif keyascii = 101 then
text1 = text1 & e
text2 = h67e & text2
elseif keyascii = 102 then
text1 = text1 & f
text2 = 147e & text2
elseif keyascii = 103 then
text1 = text1 & g
text2 = 867e & text2
elseif keyascii = 104 then
text1 = text1 & h
text2 = 967e & text2
elseif keyascii = 105 then
text1 = text1 & i
text2 = a67e & text2
elseif keyascii = 108 then
text1 = text1 & j
text2 = b67e & text2
elseif keyascii = 107 then
text1 = text1 & k
text2 = c67e & text2
elseif keyascii = 106 then
text1 = text1 & l
text2 = e37e & text2
elseif keyascii = 121 then
text1 = text1 & m
text2 = e67e & text2
elseif keyascii = 122 then
text1 = text1 & n
text2 = f67e & text2
elseif keyascii = 48 then
text1 = text1 & 0
text2 = a37e & text2
elseif keyascii = 49 then
text1 = text1 & 1
text2 = b37e & text2
elseif keyascii = 50 then
text1 = text1 & 2
text2 = c37e & text2
elseif keyascii = 51 then
text1 = text1 & 3
text2 = d37e & text2
elseif keyascii = 52 then
text1 = text1 & 4
text2 = 237e & text2
elseif keyascii = 53 then
text1 = text1 & 5
text2 = 337e & text2
elseif keyascii = 54 then
text1 = text1 & 6
text2 = 437e & text2
elseif keyascii = 55 then
text1 = text1 & 7
text2 = 537e & text2
elseif keyascii = 56 then
text1 = text1 & 8
text2 = 637e & text2
elseif keyascii = 57 then
text1 = text1 & 9
text2 = 047e & text2
elseif keyascii = 109 then
text1 = text1 & o
text2 = g67e & text2
elseif keyascii = 110 then
text1 = text1 & p
text2 = h67e & text2
elseif keyascii = 111 then
text1 = text1 & q
text2 = 737e & text2
elseif keyascii = 112 then
text1 = text1 & r
text2 = 837e & text2
elseif keyascii = 113 then
text1 = text1 & s
text2 = 937e & text2
elseif keyascii = 114 then
text1 = text1 & t
text2 = 967e & text2
elseif keyascii = 115 then
text1 = text1 & u
text2 = a67e & text2
elseif keyascii = 116 then
text1 = text1 & v
text2 = b67e & text2
elseif keyascii = 117 then
text1 = text1 & w
text2 = c67e & text2
elseif keyascii = 118 then
text1 = text1 & x
text2 = d67e & text2
elseif keyascii = 119 then
text1 = text1 & y
text2 = 037e & text2
elseif keyascii = 120 then
text1 = text1 & z
text2 = 137e & text2
end if
end sub
이게소스거든요 폼있고 커맨드박스2개잇고 텍스트박스 4개잇고 라벨은 3개있어요여기서 문제가텍스트박스1에다가요 글씨를치면 2개씩나오는거랑요텍스트박스1에 글씨를친게 안지워지게 해주세요그리고 커맨드박스2인 모든텍스트초기화를누르면 424런타임오류발생 개체가 필요합니다 라고 뜨네요 이3개가 문제네요 그리고 커맨드박스를 isbutton.ocx파일이 있는데 어떻게 적용시켜야하나요 진짜 수다님들 답변정확하게 해주세요 ㅠ.ㅠ. 첨부터 끝까지다 제가만들었는데비베 처음한건아니고 한두달 배워서 만든건데 잘못해요..고수님들알려주세요

신청하기