订阅vb如何判断文件是否已加载成功
来源：网络收集 点击： 时间：2024-05-17部分代码如下： IfClient_Controls_Loaded(Index)=TrueThen Client_Controls_Loaded(Index)=False UnloadWskClient(Index) EndIf LoadWskClient(Index) Client_Controls_Loaded(Index)=True
2/6PrivateSubCommand1_Click() OnErrorResumeNext LoadWinsock1(1) IfErr.Number=360ThenMsgBox对象已存在,,错误 OnErrorGoTo0 EndSub 注意INDEX
3/6在没有执行Command1_Click()之前执行了Command2_Click()，但得到的消息却是“已加载”，这是为何呢？ PrivateSubCommand1_Click() LoadWinsock1(1) EndSub PrivateSubCommand2_Click() IfNotMe.Winsock1(1)IsNothingThen MsgBox已加载 Else MsgBox没有加载 EndIf EndSub
4/6PrivateSubWinsock1_Error(IndexAsInteger,ByValNumberAsInteger,DescriptionAsString,ByValScodeAsLong,ByValSourceAsString,ByValHelpFileAsString,ByValHelpContextAsLong,CancelDisplayAsBoolean)
5/6PrivateSubCommand2_Click() IfNotMe.Winsock1(1)IsNothingThen MsgBox已加载
6/6Else LoadWinsock1(1) EndIf EndSub
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_786692.html
