none
VB6 코드를 VB.NET 코드로 변환 RRS feed

  • 질문

  • 아래 VB6 코드를 VB.NET 코드로 변환 부탁드립니다.

    감사합니다.

    -----------------------------------------------------

    Private Sub Command1_Click()

       Static errorCode As Long

       e = StartServer(Form1.hWnd, errorCode&)

    End Sub

    Private Sub Command2_Click()

        Static errorCode As Long

        e = StopServer(errorCode&)

    End Sub

    Private Sub Command3_Click()
       Static errorCode As Long
       Static price As Long

       Static year, month, day, hour, min, sec As Variant

       Static dateTime As Date

       dateTime = Date

       year1 = year(Date)
       month1 = month(Date)
       day1 = day(Date)
       hour1 = hour(Time)
       min1 = minute(Time)
       sec1 = second(Time)

       e = SendTrade("test", 10, 9, 11, 8, 10, 7, 100, 1000, 10000, year1, month1, day1, hour1, min1, sec1, errorCode&)

    End Sub

    2012년 8월 10일 금요일 오전 5:34

답변

  • 이전 버전의 Visual Studio에서는 VB 6.0 프로젝트 파일을  클릭하면 마법사가 구동되지만

    현재버전이나 성능적인 측면에서는 VB.NET을 알고 직접 변환하셔야 할것 같습니다.

    아래는 전체 코드나 로직을 알수 없어 간략히 변환한 내용이니 참고만 하십시오

    Private Sub Command1_Click()

            Dim errorCode As Long

            e = StartServer(Form1.hWnd, errorCode&)

        End Sub


        Private Sub Command2_Click()

            Dim errorCode As Long

            e = StopServer(errorCode&)

        End Sub


        Private Sub Command3_Click()
            Dim errorCode As Long
            Dim price As Long

            Dim year1, month1, day1, hour1, min1, sec1 As Integer

            Dim dateTime As Date

            dateTime = Date.Now


            year1 = dateTime.Year

            month1 = dateTime.Month

            day1 = dateTime.Day

            hour1 = dateTime.Hour

            min1 = dateTime.Minute

            sec1 = dateTime.Second


            e = SendTrade("test", 10, 9, 11, 8, 10, 7, 100, 1000, 10000, year1, month1, day1, hour1, min1, sec1, errorCode&)

        End Sub


    Hong-ju

    2012년 8월 14일 화요일 오전 12:17