vb6에서 마이그레이션 했습니다. 이해가 안되는 에러가 발생하네요.

vb6 마이그레이션 했습니다.

'--------------------Module 부분-------------------------

 Public Sub OpenRlquid_init(ByRef frmTmp As System.Windows.Forms.Form)

  Dim tmpLI As System.Windows.Forms.ListViewItem
  Dim clmX As System.Windows.Forms.ColumnHeader '헤드를 정의 한다
  Dim ColumWidth As Single
  'UPGRADE_NOTE: Str이(가) Str_Renamed(으)로 업그레이드되었습니다. 자세한 내용은 다음을 참조하십시오. 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'
  Dim Str_Renamed As String
  Dim i As Short
  Dim Scnt As Short
  Dim DevRlquid(5) As String
  Dim headCnt As Short
  Dim RecordCnt As Short

 

 

with frmTmp ---> 전달받은 폼

     tmpLI = .LstRlquidInfo.Items.Add(TrimCStr(1))  ---->LstRlquidInfo 에 에러가 나네요   

end with

 

 

LstRlquidInfo : 호출폼에 있는  Listview 컨트롤입니다.

다른 폼에서 모듈에 있는 공통처리 OpenRlquid_init(frmtestconf) 를 호출합니다.

 

소스 첨부하였습니다.

위의 질문에 대해서 의문이 생겨서 답변을 하였습니다.

[제 답변]

단 전체적으로 말씀드리자면,

폼의 오브젝트가 제대로 넘어오지 않아서, 형변환 캐스팅이 필요했습니다.

 

1. 파라메터의 type을 수정해봤습니다.

그리고, 두번째문제.. 

기동은 그리하여 문제없이 빌드통과 하였는데, 응?? 그다음 뭘 하자는거지??

가만보니 Module 에서 string1 을 넣어주고 있네요.

아아... 리스트에 넣으려고 하셨구나...

 

2. 해당폼을 강제 호출해 보았습니다.

★제가 일본에 살아서(*일본OS를 쓰다보니), 한글이 깨집니다.

코멘트쪽이니 이해해주세요. 미안합니다.

진하게 처리한 부분이 수정부분입니다.

 

    Public Sub OpenRlquid_init(ByRef frmTmp As Form2)

        Dim tmpLI As System.Windows.Forms.ListViewItem

        Dim clmX As System.Windows.Forms.ColumnHeader 'ﾇ・蟶ｦ ﾁ､ﾀﾇ ﾇﾑｴﾙ

        Dim ColumWidth As Single

        'UPGRADE_NOTE: Strﾀﾌ(ｰ｡) Str_Renamed(ﾀｸ)ｷﾎ ｾﾗｷｹﾀﾌｵ蠏ﾇｾ悅ﾀｴﾏｴﾙ. ﾀﾚｼｼﾇﾑ ｳｻｿ・ｺ ｴﾙﾀｽﾀｻ ﾂ・ｶﾇﾏｽﾊｽﾃｿﾀ. 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="A9E4979A-37FA-4718-9994-97DD76ED70A7"'

        Dim Str_Renamed As String

        Dim i As Short

        Dim Scnt As Short

        Dim DevRlquid(5) As String

        Dim headCnt As Short

        Dim RecordCnt As Short

 

        With frmTmp

            'UPGRADE_ISSUE: Control Lstlogﾀｺ(ｴﾂ) Form ﾀﾏｹﾝ ｳﾗﾀﾓｽｺﾆ菎ﾌｽｺ ｾﾈｿ｡ ﾀﾖﾀｸｹﾇｷﾎ ﾈｮﾀﾎﾇﾒ ｼ・ｾﾀｴﾏｴﾙ. ﾀﾚｼｼﾇﾑ ｳｻｿ・ｺ ｴﾙﾀｽﾀｻ ﾂ・ｶﾇﾏｽﾊｽﾃｿﾀ. 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="084D22AD-ECB1-400F-B4C7-418ECEC5E36E"'

            tmpLI = .ListView1.items.Add(Trim(CStr(1)))

 

        End With

 

        Form2.Show()

 

    End Sub

수정한 전체 소스코드를 첨부합니다.

WindowsApplication1.zip