none
변수 선언 RRS feed

  • 질문

  • vb.net 
            '업체에따라 변수의 배열이 틀려야 하는데
            '이렇게 하니 선언이 안되 있다고 합니다.
            '업체에 따라 변수 배열 선언
            Select Case 업체
                Case "A"
                    Dim DL_X(0 To 10) As Double
                    Dim DL_Y(0 To 10) As Double
                Case "B", "C"
                    Dim DL_X(0 To 20) As Double
                    Dim DL_Y(0 To 20) As Double
            End Select
            .
            .
            .

            For I = 0 To UBound(DL_X)
                Point(0) = DL_X(I) < -에러
                Point(1) = DL_Y(I)
            Next I


    2022년 5월 10일 화요일 오전 5:37

답변

  • 안녕하십니까, 박희철 님
    포럼에 질문 주셔서 감사합니다.
    다음 코드를 사용하여 select case로 인해 발생할 수 있는 이중 선언/선언되지 않은 변수 오류를 피면할 수 있습니다.
    잘못된 결과가 나오지 않도록 'Select Else'에 'Return'을 추가하세요.
    Point(Int32, Int32)를 사용하여 새 Point를 구성하거나 기존 Point의 X, Y에 값을 할당합니다.

            Dim a As Integer = 1
            Select Case Company
                Case "A"
                    a = 10
                Case "B", "C"
                    a = 20
                Case Else
                    MsgBox("Wrong company name.")
            End Select
            Dim DL_X(0 To a) As Double
           Dim DL_Y(0 To a) As Double
    
            Dim points(UBound(DL_X)) As Point
            For I = 0 To UBound(DL_X)
                points(I).X = DL_X(I)
                points(I).Y = DL_Y(I)
            Next I
    

    답변이 도움이 되였으면 합니다, 문제 해결이 되지 않아서 정확한 답변을 원하는 경우에는 문제의 정보를 더 자세하게 답변으로 제공해 주시기 바랍니다.
    감사합니다.

    MSDN Community Support Elin

     다른 커뮤니티 멤버에게 도움이 될 수 있게 문제를 해결 한 답변을 '답변으로 표시'를 클릭하시고 그렇지 않은 경우 '답변으로 표시 취소'를 클릭하시기 바랍니다. MSDN 서포트에 대한 의견이나 불만이 있을 경우 MSDNFSF@microsoft.com 으로 연락하시기 바랍니다.

    • 답변으로 표시됨 박희철 2022년 5월 11일 수요일 오후 12:19
    2022년 5월 11일 수요일 오전 6:58
    중재자