首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB中的INET控件有关问题~ 高手赐教!多谢

2012-02-01 
VB中的INET控件问题~ 高手赐教!!谢谢!PrivateSubForm_Load()DimnowverAsStringnowverInet1.OpenURL( htt

VB中的INET控件问题~ 高手赐教!!谢谢!
Private   Sub   Form_Load()  
Dim   nowver   As   String  
nowver   =   Inet1.OpenURL( "http://127.0.0.1/ver.txt ")  
End   Sub  

Private   Sub   Inet1_StateChanged(ByVal   State   As   Integer)  
On   Error   Resume   Next  
Select   Case   State  
Case   12  
MsgBox   "123 "  
End   Select  
End   Sub  
为什么会没反应呢?

[解决办法]
State
是你想要的么?



[解决办法]
12表示 "该请求已经完成,并且所有数据均已接收到。 " ,没反应是因为你根本没有连接到服务器, nowver =Inet1.OpenURL( "http://127.0.0.1/ver.txt ") 这不对,下载文件要用get方法,查查msdn

热点排行