none
에러(2013.1,28). RRS feed

  • 질문

  • Public Class IbIResult

        Private Sub btnLt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGt.Click

            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean

            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text

            fResult = iNum1 < iNum2  '두 변수를 비교한다
            Label1.Text = "<"  '< 연산자 표시

            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다

        End Sub


        Private Sub btnLe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGe.Click

            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean

            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text

            fResult = iNum1 <= iNum2  '두 변수를 비교한다
            Label1.Text = "<="  '<= 연산자 표시

            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
        Private Sub btnGt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLt.Click

            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean

            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text

            fResult = iNum1 > iNum2  '두 변수를 비교한다
            Label1.Text = ">"  '> 연산자 표시

            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
        Private Sub btnGe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLe.Click

            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean

            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text

            fResult = iNum1 >= iNum2  '두 변수를 비교한다
            Label1.Text = ">="  '>= 연산자 표시

            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
        Private Sub btnEq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEq.Click

            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean

            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text

            fResult = iNum1 = iNum2  '두 변수를 비교한다
            Label1.Text = "="  '= 연산자 표시

            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
        Private Sub btnNe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNe.Click

            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean

            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text

            fResult = iNum1 <> iNum2  '두 변수를 비교한다
            Label1.Text = "<>"  '<> 연산자 표시

            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
        Private Sub btnLike_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLike.Click

            Dim fResult As Boolean

            fResult = txtInput1.Text Like txtInput2.Text '두 문자열을 비교한다"
            Label1.Text = "Like" 'Like 연산자 표시

            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub

        Private Sub IbIResult_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

        End Sub
    End Class


    microsoft visual studio 2008의 메뉴에서 파일/새로만들기/프로젝트를 선택하여 visual studio안에 있는 "새 프로젝트"화면을 열고 프로젝트를 실행하였으나 선언되지 않았습니다.왕초보입니다. form1폼을 활성화하여 크기를 적당하게 만들고, 그 폼에 도구상자의 공용 컨트롤트리의 button 컨트롤을 추가한다. button 컨트롤을 클릭해서 활성화하고 속성창에서 text 속성(property)을 "x + 44의 값은 ="으로 하고 name 속성은 btnsum으로 입력한다. button을 더블클릭하여 코드창을 연다. btnsum_click 이벤트 서브 프로시저에 다음코드를 입력한다. dim x as interger x = 16 x = x + 44의 messagebox.show(" x + 44값의값은" & x, "변수") (문제) 포로젝트를 실행하였으나 아무런 대답이 없습니다. error이 됩니다.

    2013년 1월 28일 월요일 오전 5:44

모든 응답

  • 안녕하세요.

    VB MVP 고성만 입니다.

    하려고 하시는것을 확인 및 테스트 해보았습니다.

    아래와 같이 하시면 됩니다.

     

    일본어판이라서 메뉴가 일본어로 나옵니다만,

    화면 디자인 및 컨트롤 배치는 위의 그림을 참고하세요.

    그리고, 실행화면은 아래와 같습니다.

     

    수정한 코드는 아래와 같습니다.

    Public Class clsResult
    
        Private Sub btnLt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGt.Click
    
            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean
    
            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text
    
            fResult = iNum1 < iNum2  '두 변수를 비교한다
            Label1.Text = "<"  '< 연산자 표시
    
            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
    
        End Sub
    
    
        Private Sub btnLe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGe.Click
    
            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean
    
            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text
    
            fResult = iNum1 <= iNum2  '두 변수를 비교한다
            Label1.Text = "<="  '<= 연산자 표시
    
            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
        Private Sub btnGt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGt.Click
    
            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean
    
            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text
    
            fResult = iNum1 > iNum2  '두 변수를 비교한다
            Label1.Text = ">"  '> 연산자 표시
    
            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
        Private Sub btnGe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLe.Click
    
            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean
    
            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text
    
            fResult = iNum1 >= iNum2  '두 변수를 비교한다
            Label1.Text = ">="  '>= 연산자 표시
    
            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
        Private Sub btnEq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEq.Click
    
            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean
    
            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text
    
            fResult = iNum1 = iNum2  '두 변수를 비교한다
            Label1.Text = "="  '= 연산자 표시
    
            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
        Private Sub btnNe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNe.Click
    
            Dim iNum1, iNum2 As Integer '변수의 정수형 선언'
            Dim fResult As Boolean
    
            iNum1 = txtInput1.Text  '텍스트 박스의 내용을 변수에 옮긴다
            iNum2 = txtInput2.Text
    
            fResult = iNum1 <> iNum2  '두 변수를 비교한다
            Label1.Text = "<>"  '<> 연산자 표시
    
            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
        Private Sub btnLike_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLike.Click
    
            Dim fResult As Boolean
    
            fResult = txtInput1.Text Like txtInput2.Text '두 문자열을 비교한다"
            Label1.Text = "Like" 'Like 연산자 표시
    
            IbIResult.Text = fResult 'Boolean 결과를 레이블에 출력한다
        End Sub
    
    End Class
    

     

    에러의 원인은 컨트롤의 이름과 클래스의 이름이 충돌이나서 입니다.

    클래스이름 : IbIResult

    컨트롤이름 : IbIResult

    중복되어서 VS에서 정확하게 대상을 지정하여, 컴파일을 하는데에 문제가 있었습니다.

    클래스의 경우에는 앞에 Class 를 줄여서 cls 를 많이 사용하니, 참고하시기 바랍니다.

    궁금한점 있으시면, 또 질문주세요.

    다음부터는 그림을 첨부해주시면, 제가 아니더라도 많은분들이 도움드릴수 있으리라 생각합니다.


    VB/VB.NET is my Life

    • 답변으로 표시됨 jung shi young 2013년 2월 1일 금요일 오전 2:12
    • 답변으로 표시 취소됨 jung shi young 2013년 2월 1일 금요일 오전 2:14
    2013년 1월 29일 화요일 오전 1:15
  • 고맙습니다. 종종 문의하면 응대하여 주시기 바랍니다.  감사합니다.


    microsoft visual studio 2008의 메뉴에서 파일/새로만들기/프로젝트를 선택하여 visual studio안에 있는 "새 프로젝트"화면을 열고 프로젝트를 실행하였으나 선언되지 않았습니다.왕초보입니다. form1폼을 활성화하여 크기를 적당하게 만들고, 그 폼에 도구상자의 공용 컨트롤트리의 button 컨트롤을 추가한다. button 컨트롤을 클릭해서 활성화하고 속성창에서 text 속성(property)을 "x + 44의 값은 ="으로 하고 name 속성은 btnsum으로 입력한다. button을 더블클릭하여 코드창을 연다. btnsum_click 이벤트 서브 프로시저에 다음코드를 입력한다. dim x as interger x = 16 x = x + 44의 messagebox.show(" x + 44값의값은" & x, "변수") (문제) 포로젝트를 실행하였으나 아무런 대답이 없습니다. error이 됩니다.

    2013년 2월 1일 금요일 오전 2:13
  • 고맙습니다.

    microsoft visual studio 2008의 메뉴에서 파일/새로만들기/프로젝트를 선택하여 visual studio안에 있는 "새 프로젝트"화면을 열고 프로젝트를 실행하였으나 선언되지 않았습니다.왕초보입니다. form1폼을 활성화하여 크기를 적당하게 만들고, 그 폼에 도구상자의 공용 컨트롤트리의 button 컨트롤을 추가한다. button 컨트롤을 클릭해서 활성화하고 속성창에서 text 속성(property)을 "x + 44의 값은 ="으로 하고 name 속성은 btnsum으로 입력한다. button을 더블클릭하여 코드창을 연다. btnsum_click 이벤트 서브 프로시저에 다음코드를 입력한다. dim x as interger x = 16 x = x + 44의 messagebox.show(" x + 44값의값은" & x, "변수") (문제) 포로젝트를 실행하였으나 아무런 대답이 없습니다. error이 됩니다.

    2013년 2월 1일 금요일 오전 2:14