VB6.0版本:  
For i = 1 To 60Retstr(i) = ReadFromIni(App.Path & "\PointTable2.ini", "Items", "Itm" & (i))Set oitem(i) = TheOPCitems.AddItem(Retstr(i), i)oitem(i).IsActive = TrueNext iVB.NET版本:
For i = 1 To 60
Retstr(i) = ReadFromIni(My.Application.Info.DirectoryPath & "\PointTable2.ini", "Items", "Itm" & (i))oitem(i) = TheOPCitems.AddItem(Retstr(i), i)oitem(i).IsActive = True

Next i

解决方案 »

  1.   


    for (int i = 1; i <= 60; i++)
                {                Retstr(i) = ReadFromIni(App.Path & @"\PointTable2.ini", "Items", "Itm" & (i));                oitem(i) = TheOPCitems.AddItem(Retstr(i), i);                oitem(i).IsActive = True;
                }
      

  2.   


    for(int i = 1;i <=60;i++)
    {
    Retstr(i) = ReadFromIni(My.Application.Info.DirectoryPath + "\PointTable2.ini", "Items", "Itm" + i.ToString());oitem(i) = TheOPCitems.AddItem(Retstr(i), i);oitem(i).IsActive = True;}
    大概是这样?
      

  3.   

    记错了,My.Application.Info这个似乎C#是用其它方法替代的……
    在Microsoft.VisualBasic.ApplicationServices下有个ApplicationBase类,可以实例一个代替My.Application。不过似乎有更好的方法。
      

  4.   

    http://www.developerfusion.com/tools/convert/vb-to-csharp/,没试过吗?
      

  5.   

                for (int i = 1; i <= 60; i++)
                {
                    Retstr[i] = ReadFromIni(System.IO.Path.Combine(Application.StartupPath, "PointTable2.ini"), "Items", "Itm" + i.ToString());                oitem[i] = TheOPCitems.AddItem(Retstr[i], i);                oitem[i].IsActive = true;
                }