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
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
解决方案 »
- 请问:有没有方法能够实现WORD内字体的高度值的读取,Thanks
- pictureBox和Canvas的区别
- 网络编程高手请进
- C# 合并数组
- Remoting中关于ClientSponsor类的使用
- 做程序时,为什么要生成dll文件呢?做成一个类文件,里面有方法,直接打包不行吗?
- InstallShield 10.5打包的软件,安装后,重新开机后经常又跳出软件继续安装的界面
- 在一个主窗体中通过点击左侧导航条上的按钮,在右侧显示不同的窗体
- 求一函數
- 如何用正则表达式实现如下?
- request多次tcp请求如何分开建立tcp连接呢?(同前一问题,解决者赠送50元话费)
- WebService不能返回虚拟类吗
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;
}
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;}
大概是这样?
在Microsoft.VisualBasic.ApplicationServices下有个ApplicationBase类,可以实例一个代替My.Application。不过似乎有更好的方法。
{
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;
}