vb如何判断文件是否已加载成功

1、部分代码如下： IfClient_Controls_Loaded(Index)=TrueThen Client_Controls_Loaded(Index)=False UnloadWskClient(Index) EndIf LoadWskClient(Index) Client_Controls_Loaded(Index)=True

2、PrivateSubCommand1_Click() OnErrorResumeNext LoadWinsock1(1) IfErr.Number=360ThenMsgBox"对象已存在",,"错误" OnErrorGoTo0 EndSub 注意INDEX

3、在没有执行Command1_Click()之前执行了Command2_Click(拘七呷憎)，但得到的消息却是“已加载”，这是为何呢？ PrivateSubCommand1_Click() LoadWinsock1(1) EndSub PrivateSubCommand2_Click() IfNotMe.Winsock1(1)IsNothingThen MsgBox"已加载" Else MsgBox"没有加载" EndIf EndSub

4、PrivateSubWinsock1_Error(IndexAsInteger,ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean)

5、PrivateSubCommand2_Click() IfNotMe.Winsock1(1)IsNothingThen MsgBox"已加载"

6、Else LoadWinsock1(1) EndIf EndSub