▶ 뭉충닷컴
 
mungchung.com login
Site Search
My Space
주절주절...
공부방
쥔장소개
Board
자유게시판
유용한 정보
자료실
Programming
강좌 & Articles
Spring 3.0
프로그래밍 Tip
   -ASP
   -PHP
   -JavaScript
   -HTML
   -Java/JSP
   -Database
   -Crystal Report
   -Visual Basic
   -이클립스
   -리눅스
   -기타
Windows API (VB)
Spread Sheet 7.0
컴퓨터활용 Tip
Other things
StarCraft 전략
StarCraft 문서
김용(金庸)
Son Q & Dieda

배열이 몇차원인지 알아내는 방법

VB 조회 수 6948 추천 수 0 2006.12.02 01:30:48
Option Explicit

Private NoDim
Private dim1(1 To 10)
Private dim2(1 To 10, 1 To 9)
Private dim3(1 To 10, 1 To 9, 1 To 7)
Private dim4(1 To 10, 1 To 9, 1 To 7, 1 To 6) As Object

Private Sub Command1_Click()
    Debug.Print CheckDim(NoDim) & "차원 배열, 0인경우는 배열아님"
    Debug.Print CheckDim(dim1) & "차원 배열, 0인경우는 배열아님"
    Debug.Print CheckDim(dim2) & "차원 배열, 0인경우는 배열아님"
    Debug.Print CheckDim(dim3) & "차원 배열, 0인경우는 배열아님"
    Debug.Print CheckDim(dim4) & "차원 배열, 0인경우는 배열아님"
End Sub

Private Function CheckDim(dimN As Variant) As Long
    Dim i As Long
    On Error GoTo End_CheckDim
    i = 1
    While UBound(dimN, i)
        i = i + 1
    Wend
End_CheckDim:
    Err.Clear
    CheckDim = i - 1
End Function



출처 : http://www.devpia.com/Forum/BoardView.aspx?no=189708&ref=189708&page=6&forumname=VB_QA
문서 첨부 제한 : 0Byte/ 2.00MB
파일 크기 제한 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수