Foxtable(狐表)用户栏目专家坐堂 → .net转为vb后提示错误


  共有5233人关注过本帖树形打印复制链接

主题:.net转为vb后提示错误

帅哥哟,离线,有人找我吗?
otterlike
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:103 积分:1228 威望:0 精华:0 注册:2017/5/16 22:42:00
.net转为vb后提示错误  发帖心情 Post By:2022/10/24 15:44:00 [只看该作者]

老师好!以下vb代码是用转换软件从.net转换过来的,但是在执行时提示“未知编译错误”,请问该如何修改?谢谢!

Try   
    Using stream As Stream = request.GetRequestStream()
        Dim data As Byte() = Encoding.UTF8.GetBytes(postBody)
        stream.Write(data, 0, data.Length)
    End Using
    
    Dim response As HttpWebResponse = TryCast(request.GetResponse(), HttpWebResponse)
    
    Using reader As StreamReader = New StreamReader(response.GetResponseStream(), Encoding.UTF8)
        Dim result As String = reader.ReadToEnd()
        Return result
    End Using
    
Catch ex As Exception
    Return ex.Message
End Try


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/24 15:45:00 [只看该作者]

1、代码不完整
2、类型没有写全命名空间

 回到顶部
帅哥哟,离线,有人找我吗?
otterlike
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:103 积分:1228 威望:0 精华:0 注册:2017/5/16 22:42:00
  发帖心情 Post By:2022/10/24 17:09:00 [只看该作者]

老师好!如果将下面的代码调整为正确的Vb代码该如何做了?

Using stream As Stream = request.GetRequestStream()
    Dim data As Byte() = Encoding.UTF8.GetBytes(postBody)
    stream.Write(data, 0, data.Length)
End Using

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/24 17:10:00 [只看该作者]

写全命名空间
Using stream As system.io.Stream = request.GetRequestStream()

 回到顶部
帅哥哟,离线,有人找我吗?
otterlike
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:103 积分:1228 威望:0 精华:0 注册:2017/5/16 22:42:00
  发帖心情 Post By:2022/10/25 11:15:00 [只看该作者]

老师好!我写全命名空间之后,仍然提示“未知编译错误”,麻烦看看如何修改,谢谢

Dim postBody As String = "{""pageNo"":""1"",""pageSize"":""2000""}"
Using stream As system.io.Stream = request.GetRequestStream()
    Dim data As Byte() = Encoding.UTF8.GetBytes(postBody)
    stream.Write(data, 0, data.Length)
End Using

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107730 积分:547983 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/25 11:19:00 [只看该作者]

注意项目名称,以及项目路径,如果有括号等特殊字符,全部去掉,重新测试代码就可以显示具体的错误提示

 回到顶部