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



+ Recent posts