• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

请教大家两个小问题

SmallMummy 2005-03-09 07:51:20
问题一：我写了一个程序，是用httpwebrequset和httpwebresponse类收发信息的，下面是运行的结果，怎么会有那么多“未加载符号”和“线程 '<无名称>' (0xc5c) 已退出”？

“DefaultDomain”: 已加载“c:\windows\microsoft.net\framework\v1.1.4322\mscorlib.dll”，未加载符号。
“test_126”: 已加载“C:\Documents and Settings\h_cat\My Documents\Visual Studio Projects\test_126\bin\test_126.exe”，未加载符号。
“test_126.exe”: 已加载“c:\windows\assembly\gac\system.windows.forms\1.0.5000.0__b77a5c561934e089\system.windows.forms.dll”，未加载符号。
“test_126.exe”: 已加载“c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll”，未加载符号。
“test_126.exe”: 已加载“c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll”，未加载符号。
“test_126.exe”: 已加载“c:\windows\assembly\gac\microsoft.visualbasic\7.0.5000.0__b03f5f7f11d50a3a\microsoft.visualbasic.dll”，未加载符号。
“test_126.exe”: 已加载“c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll”，未加载符号。
“test_126.exe”: 已加载“c:\windows\assembly\gac\system.resources\1.0.5000.0_zh-chs_b77a5c561934e089\system.resources.dll”，未加载符号。

线程 '<无名称>' (0xc5c) 已退出，返回值为 0 (0x0)。
线程 '<无名称>' (0xd5c) 已退出，返回值为 0 (0x0)。
线程 '<无名称>' (0x8bc) 已退出，返回值为 0 (0x0)。
线程 '<无名称>' (0x56c) 已退出，返回值为 0 (0x0)。
线程 '<无名称>' (0xdec) 已退出，返回值为 0 (0x0)。
线程 '<无名称>' (0xd84) 已退出，返回值为 0 (0x0)。
线程 '<无名称>' (0xf2c) 已退出，返回值为 0 (0x0)。

问题二：我从网页中接收的源代码，我想对有的字符串进行解码，用到的是server.htmldecode 但是这是asp.net的写法，我在vb.net中，是这样用的： Dim server As HttpServerUtility
server.HtmlDecode(Str)
运行的时候他说 未将对象引用设置到对象的实例。我应该怎么正确使用这个server类？
...全文
91 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
landlordh 2005-03-10
还是那个收发的程序吧，这几天要外出，没有时间来回你

1.基本没有什么大碍，一些调试信息而已

2.当然你直接引用是可以，注意实例化，你总觉得引用一些效率低或是别的，不想引用可以这样

function HTMLEncode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
'...
HTMLEncode = fString
end function

function HTMLDecode(fString)
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString," ",chr(32))
fString = Replace(fString,""",chr(34))
fString = Replace(fString,"'",chr(39))
fString = Replace(fString, "", CHR(13))
fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
fString = Replace(fString, "<BR>", CHR(10))
'...
HTMLDecode = fString
end function
 回复 赞
SmallMummy 2005-03-10
框架有问题，能不能再具体一点，或者举个例子看看
 回复 赞
SmallMummy 2005-03-10
to : Night_Elf(风暴虫) 问题2，运行的时候说 (143): 没有“New”是可访问的，因此重载决策失败。

 回复 赞
lonelydreamsym 2005-03-10
估计你的框架有问题了
 回复 赞
Night_Elf 2005-03-10
问题1：是不是框架坏了，或是版本的问题
问题2：
Dim server As new HttpServerUtility 'NEW
server.HtmlDecode(Str)
 回复 赞
SmallMummy 2005-03-10
server.HtmlDecode(Str),这个怎么直接引用？好像没法实例化阿？
Dim server As New HttpServerUtility 这样也不行啊
 回复 赞
DeltaCat 2005-03-09
那没关系
 回复 赞
SmallMummy 2005-03-09
我的程序用的都是panel,button,label,textbox这些最普通的控件了，程序里面就有一个我自己的线程，程序是向服务器post和接收信息的，有的时候并没有那么多的“线程已退出”，运行速度也较快，但有的时候运行，有很多的“线程已退出”，速度也很慢
不知道是什么原因
 回复 赞
xiaopai20 2005-03-09
1.是不是用了某个控件, 但它的连接库没装好
 回复 赞
发帖
VB
创建于2007-09-28

1.6w+

社区成员

11.0w+

社区内容

VB技术相关讨论，主要为经典vb，即VB6.0
申请成为版主
帖子事件
创建了帖子
2005-03-09 07:51
社区公告
暂无公告