我写了一个函数从ORACLE函数内取出一个数据集.将数据集的第二个字段做为Collection的KEY 第三个字段做为Collection的VALUE 将Collection返回出去. 在外面NEW一个Collection来接收这个Collection 在取值的时候发现COUNT有98 当我a.Item("xh")取值时则出现异常. RUNTIME ERROR为3420 错误信息是对象不� ......
我现在想通过vb写个程序来针对特定的扩展名修改文件的属性。
例如：.txt文件，我想修改它的属性，把这个文件弄成隐藏，又可以把这种扩展名的文件，全部显示。
主要是针对特定的扩展名.
好像不行。
得用Shell扩展，或者Hook系统API当中的FindFile() FindNextFile()
学习
如果你就是设置一个文件的属性的 ......
小弟最近给医保做接口,对方提代的DLL是用好像是用Dephi写的,并且提供了Dephi的声明
对方的dephi声明
function checkuser(OperID: PChar; var returnMessage: pchar):Integer;stdcall; external 'zdtlmti.dll';
我写的VB声明
Public Declare Function checkuser Lib "zdtlmti.dll" (ByVal ......
在VC中回调函数为：
C/C++ code:
typedef VOID (__stdcall *DL_AUTOCALLBACK )( DWORD dw1, DWORD dw2, LPVOID lpContext );
int Set( IN HANDLE hCamera, IN BOOL bAE,
IN BYTE btTarget, IN DL_AUTOCALLBACK pfCallback, IN LPVOID lpContext );
Vb中我声明为：
VB code:
Public Declare Function Se ......
我学的是C# 现在工作需要要学习VB 大家给我推荐一个好的视频教程，好的书本教材也推荐一些
http://download.csdn.net/source/1371398
http://download.csdn.net/source/1627094
http://download.csdn.net/source/1627065
http://download.csdn.net/source/1469194
http://download.csdn.net/source/1638 ......
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 ......
最新文章 : vb