수다닷컴

- 이소스는 수다님 소스입니다 -
private sub text1_change()
dim i as integer, temp as string
for i = 1 to len(text1.text)

temp = mid(text1.text, 1, i)
if mid(temp, i, 1) = a then
text2.text = text2.text & b
elseif mid(temp, i, 1) = b then
text2.text = text2.text & f
end if
next i
end sub이런식으로 쓰면요

텍스트1에 ab라고 적으면

텍스트박스2에 bf라 안나오고 bbf라 나오는데요

이거 bf로 나오게 할수잇는 방법 잇을까요?

저도 왜그런지 이해는 가는데 bf라고 나오게 하는 방법을 모르겟어요
for문으로 가능하지는 않을거 같구

다른 함수를 쓰면 될까요?

신청하기