| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
免费IT实战开发视频教程合集分享千里之行 始于足下
共有 137 人关注过本帖
标题:VB块Else没有End If
只看楼主 加入收藏
leziyi
Rank: 1
等 级:新手上路
帖 子:39
专家分:0
注 册:2016-10-30
结帖率:100%
  问题点数:0  回复次数:3   
VB块Else没有End If
Private Sub Com_Send_Click()
Dim h
If Com_Send.Caption = "发送文件" Then
        If FileLen > 0 And FilePath <> "" Then
           For h = 0 To Winsock2.UBound
               Winsock2(h).SendData UTF8_Encode("101")
               Winsock2(h).SendData UTF8_Encode(filename)
               Com_Send.Caption = "取消发送"
               SendFile.Text = "正在等待对方响应......"
               FileSend = True
        Else-----------------------------------此行出错
            MsgBox "尚未选择文件或文件长度为零", 64, "提示"
        End If
    Else
        MsgBox "请先建立连接!", 64, "提示"
Else
    Winsock2.SendData UTF8_Encode("255")
    FileSend = False
    Com_Send.Caption = "发送文件"
    Label4 = "工作状态:空闲"
End If
End Sub
2018-11-03 22:10
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:227
帖 子:4301
专家分:26251
注 册:2008-10-15
  得分:0 
for 循环没结束。

授人于鱼,不如授人于渔
早已停用QQ了
2018-11-04 09:21
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:74
帖 子:765
专家分:4045
注 册:2016-5-10
  得分:0 
Private Sub Com_Send_Click()
Dim h
If Com_Send.Caption = "发送文件" Then
        If FileLen > 0 And FilePath <> "" Then
           For h = 0 To Winsock2.UBound
               Winsock2(h).SendData UTF8_Encode("101")
               Winsock2(h).SendData UTF8_Encode(filename)
               Com_Send.Caption = "取消发送"
               SendFile.Text = "正在等待对方响应......"
               FileSend = True
            '这里没有循环结束语句 Next h
        Else-----------------------------------此行出错
            MsgBox "尚未选择文件或文件长度为零", 64, "提示"
        End If
    Else    '这个 Else 没有对应的 If 及 End If 语句
        MsgBox "请先建立连接!", 64, "提示"
Else
    Winsock2.SendData UTF8_Encode("255")
    FileSend = False
    Com_Send.Caption = "发送文件"
    Label4 = "工作状态:空闲"
End If
End Sub
2018-11-04 11:13
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:18
帖 子:1750
专家分:3642
注 册:2011-3-24
  得分:0 
有个VB外挂程式他会帮你把每个区块用线串起来

不要選我當版主
2018-11-06 15:20







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

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