728x90
Private Sub Command1_Click()
Label1.Caption = ChangStr("고구마는 천재ㅇ였어요. ㄴ그러던ㅇ 어느날 3명인이 바s보로 만들었죠.", "ㅇㄴ3s", "zz")
End Sub
'ChangStr(전체글,바뀔문자,바꿀문자)
Private Function ChangStr(Allmsg As String, FindStrMsg As String, ChangeStrMsg As String)
Dim i As Long
For i = 1 To Len(FindStrMsg)
Allmsg = Replace(Allmsg, Mid(FindStrMsg, i, 1), ChangeStrMsg)
Next
ChangStr = Allmsg
End Function
'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글
| VB 강좌 ListBox 알아보기 (0) | 2009.01.09 |
|---|---|
| VB Join 함수 사용방법 (0) | 2009.01.05 |
| VB Split 함수 사용방법 (0) | 2009.01.05 |
| VB Beep API 강좌 (0) | 2009.01.05 |
| VB List에 중복추가 안되게 하기. (0) | 2009.01.02 |
| 싸이월드 스크랩 올리기 Returns Ver 1.8 (2) | 2008.12.31 |
| 싸이월드 스크랩 올리기 Returns Ver 1.7 (0) | 2008.12.20 |
| VB 기초 InputBox 알아보기! (0) | 2008.12.18 |
| VB 기초 MsgBox 알아보기! (0) | 2008.12.18 |