プログラム

2016年3月7日 at 7:39 PM

VB6.0->VB2008へコンバート:’ListItems’は’System.Windows.Forums.ListView’のメンバではありません

 

 

Public WithEvents LstVwSaleSyohin As ListView

 

【修正前】

                    With LstVwSaleSyohin.ListItems.Add(, , VB.Left(VB6.GetItemString(LstTmp, i), 6)) 
                        ‘UPGRADE_WARNING: オブジェクト LstVwSaleSyohin.ListItems の既定プロパティを解決できませんでした。 詳細については、’ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=”6A50421D-15FE-4896-8A1B-2EC21E9037B2″‘ をクリックしてください。
                        .SubItems(1) = PbFnSCODE2KNAME(DB, CStr(Val(CStr(SCODE)))) ‘商品名
                        ‘UPGRADE_WARNING: オブジェクト LstVwSaleSyohin.ListItems の既定プロパティを解決できませんでした。 詳細については、’ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=”6A50421D-15FE-4896-8A1B-2EC21E9037B2″‘ をクリックしてください。
                        .SubItems(2) = PbFnSCODE2MkName(DB, CStr(Val(CStr(SCODE)))) ‘メーカー
                    End With

 

 

【修正後】
                    LstVwSaleSyohin.Items.Add(VB.Left(VB6.GetItemString(LstTmp, i), 6))           ’2016/3/7 VB移行 追加
                    ‘UPGRADE_WARNING: オブジェクト LstVwSaleSyohin.ListItems の既定プロパティを解決できませんでした。 詳細については、’ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=”6A50421D-15FE-4896-8A1B-2EC21E9037B2″‘ をクリックしてください。
                    LstVwSaleSyohin.Items(1).SubItems.Add(PbFnSCODE2KNAME(DB, CStr(Val(CStr(SCODE)))))     ‘商品名
                    ‘UPGRADE_WARNING: オブジェクト LstVwSaleSyohin.ListItems の既定プロパティを解決できませんでした。 詳細については、’ms-help://MS.VSCC.v90/dv_commoner/local/redirect.htm?keyword=”6A50421D-15FE-4896-8A1B-2EC21E9037B2″‘ をクリックしてください。
                   LstVwSaleSyohin.Items(2).SubItems.Add(PbFnSCODE2MkName(DB, CStr(Val(CStr(SCODE)))))      ‘メーカー     

Leave a Reply

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

*

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



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