VB6.0°æ±¾£º
For i = 1 To 60
Retstr(i) = ReadfromIni(App.Path & "\PointTable2.ini", "Items", "Itm" & (i))
Set oitem(i) = TheOPCitems.AddItem(Retstr(i), i)
oitem(i).IsActive = True
Next i
VB.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
http://labs.developerfusion.co.uk/convert/csharp-to-vb.aspx
C# code:
for (i = 1; i <= 60; i++) {
Retstr(i) = ReadfromIni(My.Application.Info.DirectoryPath + "\\PointTable2.ini", "Items", "Itm" + (i));
oitem(i) = TheOPCitems.AddItem(Retstr(i), i);
oitem(i).IsActive = true;
}
ÒýÓÃ C# codefor (i=1; i <=60; i++) { Retstr(i)= ReadfromIni(My.Application.Info.DirectoryPath+"\\PointTable2.ini","Items","Itm"+ (i)); oitem(i)= TheOPCitems.AddItem(Retstr(i), i);¡
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡ ²åÈë֮ǰselectһϰ¢¡£ »òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç IF not Exist( & ......