Jyui

결론부터 말하면 그런방법은 없다.
있는 줄 알고 계속 찾다보니 외국 포럼에 있는 애들이 다른 대안을 제시해주었다;;
-------------------------------------------------------------
    Dim c As New Collection
    Dim 학생(6) As New Student
    Dim t_학생 As New Student
   
    On Error Resume Next
    For i = 1 To 3
        j = i * 2 - 1
        학생(j).이름 = "학생" + CStr(j)
        학생(j).번호 = j
       
        Set t_학생 = c.Item(학생(j).이름)
        If Err <> 0 Then
            '에러발생
        End If
        c.Add Item:=학생(j), Key:=학생(j).이름
       
        j = i * 2
        학생(j).이름 = "학생" + CStr(j)
        학생(j).번호 = j
        Set t_학생 = c.Item(학생(j).이름)
        If Err <> 0 Then
            '에러발생
        End If
        c.Add Item:=학생(j), Key:=학생(j).이름
    Next
    
    For i = 1 To c.Count
        Set t_학생 = c.Item(i)
        Debug.Print "이름= " + t_학생.이름 + ", 번호= " + CStr(t_학생.번호)
    Next
    Debug.Print
   
    For i = 1 To 6
        Set 학생(i) = Nothing
    Next
    Set t_학생 = Nothing
    Set c = Nothing
-------------------------------------------------------------

위의 소스는 콜렉션 객체 c에
("학생1", 1), ("학생2", 2), ("학생3", 3), ... ("학생6", 6) 을 넣는 예제이다.

한 프로시저에서 두 개 이상의 에러가 기대될 때, (에러가 기대되는 지점은 노란색으로 표시했다)
On Error Goto Err1, On Error Goto Err2 이런식으로 따로 쓴다면 에러가 난다.

꼼수는 On Error Resume Next 를 써줘서 에러가 났을 때 에러를 무시하고 바로 다음줄로 가게 하는 것이다. 에러처리는 If Error <> 0 Then 으로 처리할 수 있을 것이다.

참고로 위의 소스는 Visual Basic 6.0을 바탕으로 만들었다.
별로 예쁜 소스는 아니니 태클은 금지 ( ..)

계절학기 끝난 기념으로
집에 오는 길에 거품나는 입욕제를 샀다.

뜨거운 물 받아놓고 들어가서,
 CSI를 즐겁게 감상했다는..
그리고 잠을 좀 잤다.

하지만, 스킨푸드에서 산 이 입욕제는
'거품나는 입욕제 주세요' 라는 내 말을 뭘로 들었는지 알 수 없는
스킨푸드 아르바이트생 때문에 향만 났다-_-;
사실 욕조에 집어넣기 전에는 향이 엄청 강했는데
넣자마자 물과 엄청난 반응을 일으키더니
수십초간 거품을 보글보글 내다가 사라져버렸다...=_=

다 녹고 나니까,
처음에는 나던 향도 그나마 나지 않았다.
제길슨...ㅜㅜ

향은 괜찮았다-_-

꼭 달걀같은 느낌이었지만-_-a

바디샵에서 나온 장미향 거품 입욕제를 얼른갖고 싶다 흙흙 ㅜ_ㅜ
그런데 바디샵 홈페이지 가니까 매장보다 훨씬 싸네...
(왠지 머릿속에서 '넌 이미 지르고 있다' 라는 대사가 들리는듯;;;;)
조만간 지르면 어쩌지 ㄷㄷㄷ

아래는 장미향은 아니지만 괜츈해 보이는 '거품나는 입욕제'

아 집에 좀 월풀 욕조도 있었으면 좋겠(.. );;;;

p.s. 히어로즈를 보기 시작했다. 주말을 이용해서 시즌1을 해치웠....-_-;;;;