본문 바로가기

Visual Basic 6.0

(2)
VB(비주얼 베이직)에서 배열을 매개변수로 넘기기 Private Sub Form_Load() Dim tP(1 To 4) As Integer Dim i As Integer i = Test(tP) Debug.Print tP(1), tP(2), tP(3), tP(4) End Sub Private Function Test( ByRef t_arr As Variant ) As Integer t_arr(1) = 4 t_arr(2) = 3 t_arr(3) = 2 t_arr(4) = 1 Test = 1 End Function 2가지만 주의하면 됩니다. 배열을 매개변수로 받은 Sub 함수에서 Variant 형으로 선언하는 것과 Integer 는 아니지만 Return 형이 꼭 있어야 합니다. 아무것도 Return을 안해주면 Sub 함수에서 변경한 값이 적용이 되지 않더군요.
비주얼 베이직 (Visual Basic) 예외처리시 오류번호 코드 메시지 3 GoSub가 없는 Return입니다 5 프로시저 호출이 잘못되었습니다 6 숫자가 너무 큽니다 7 메모리가 부족합니다 9 아래 첨자 사용이 잘못되었습니다 10 이 배열은 고정되었거나 일시적으로 잠금 상태입니다 11 0으로 나누었습니다 13 형식이 일치하지 않습니다 14 문자열 공간이 부족합니다 16 식이 너무 복잡합니다 17 요청된 작업을 수행할 수 없습니다 18 사용자 인터럽트가 발생하였습니다 20 오류 없는 Resume입니다 28 스택 공간이 부족합니다 35 Sub, Function 또는 Property가 정의되지 않았습니다 47 DLL 응용 프로그램 클라이언트가 너무 많습니다 48 DLL을 로드하는 중 오류가 발생하였습니다 49 DLL 호출 규정이 잘못되었습니다 51 내부 오류입ㄱ니다..