未分類

2016年3月10日 at 6:09 PM

VB6.0->VB2008へコンバート:型’Integer’の値を’System.Windows.Forms.ListViewItem’に変換出来ません

整数型は取り扱えないので、ListView型に変換する

 

【修正前】

Public WithEvents LstVwSaleSyohin As ListView

 

        Dim i As Integer

        i = 1
        Do
            ‘UPGRADE_WARNING: オブジェクト LstVwSaleSyohin.ListItems の既定プロパティを解決できませんでした。 詳細については、’ms-help://MS.VSCC.v90/dv_commoner/local /redirect.htm?keyword=”6A50421D-15FE-4896-8A1B-2EC21E9037B2″‘ をクリックしてください。
            If LstVwSaleSyohin.Items.Item(i).Selected = True Then          
                ‘UPGRADE_WARNING: オブジェクト LstVwSaleSyohin.ListItems の既定プロパティを解決できませんでした。 詳細については、’ms-help://MS.VSCC.v90/dv_commoner/local /redirect.htm?keyword=”6A50421D-15FE-4896-8A1B-2EC21E9037B2″‘ をクリックしてください。
                LstVwSaleSyohin.ListItems.Remove(i)                        ’20160310 VB移行 コメントアウト
            Else
                i = i + 1
            End If
            ‘UPGRADE_WARNING: オブジェクト LstVwSaleSyohin.ListItems の既定プロパティを解決できませんでした。 詳細については、’ms-help://MS.VSCC.v90/dv_commoner/local /redirect.htm?keyword=”6A50421D-15FE-4896-8A1B-2EC21E9037B2″‘ をクリックしてください。
            If LstVwSaleSyohin.ListItems.Count < i Then Exit Do          
        Loop

 

 

 

【修正後】

Public WithEvents LstVwSaleSyohin As ListView

 

        Dim i As Integer
        Dim listItem As ListViewItem                                  

        i = 1
        Do
            ‘UPGRADE_WARNING: オブジェクト LstVwSaleSyohin.ListItems の既定プロパティを解決できませんでした。 詳細については、’ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=”6A50421D-15FE-4896-8A1B-2EC21E9037B2″‘ をクリックしてください。
            If LstVwSaleSyohin.Items.Item(i).Selected = True Then         
                ‘UPGRADE_WARNING: オブジェクト LstVwSaleSyohin.ListItems の既定プロパティを解決できませんでした。 詳細については、’ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=”6A50421D-15FE-4896-8A1B-2EC21E9037B2″‘ をクリックしてください。
                listItem = LstVwSaleSyohin.Items(i)                      
                LstVwSaleSyohin.Items.Remove(listItem)                   
            Else
                i = i + 1
            End If
            ‘UPGRADE_WARNING: オブジェクト LstVwSaleSyohin.ListItems の既定プロパティを解決できませんでした。 詳細については、’ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=”6A50421D-15FE-4896-8A1B-2EC21E9037B2″‘ をクリックしてください。
            If LstVwSaleSyohin.Items.Count < i Then Exit Do
        Loop

Leave a Reply

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

*

次のHTML タグと属性が使えます: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>



こちらの関連記事もオススメ!