| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 725 人关注过本帖
标题:VB错误35600
只看楼主 加入收藏
leziyi
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2016-10-30
结帖率:85.71%
收藏
已结贴  问题点数:10 回复次数:2 
VB错误35600
Private Sub Timer1_Timer()

   If ListView1.ListItems(0).SubItems(0) = "" Then----------------------------------------此行出错
   
      Exit Sub
      
   End If

   Select Case Winsock2(ListView1.SelectedItem.Index).State
   
          Case 0
         
               Label4.Caption = "工作状态:" & "未连接"
               
          Case 2
         
               Label4.Caption = "工作状态:" & "正在监听......"
               
          Case 4
         
               Label4.Caption = "工作状态:" & "正在解析域名......"
               
          Case 6
         
               Label4.Caption = "工作状态:" & "正在连接......"
               
          Case 7
         
               Label4.Caption = "工作状态:" & "已连接"
               
          Case 8
         
               Label4.Caption = "工作状态:" & "对方正在关闭连接......"
               
          Case 9
         
               Label4.Caption = "工作状态:" & "连接错误"
               
   End Select

End Sub
搜索更多相关主题的帖子: Case Caption 工作 状态 连接 
2018-11-04 10:42
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:120
帖 子:1015
专家分:5459
注 册:2016-5-10
收藏
得分:10 
记得 ListView1 的索引是从 1 开始的吧。

请不要选我做版主,不要选我做版主,不要选我做版主,不要选我做版主!!!
2018-11-04 11:00
leziyi
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2016-10-30
收藏
得分:0 
索引设成0,1都错
2018-11-04 14:18
快速回复:VB错误35600
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.078828 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved