vb adodb.stream write写入网页代码为utf8编码的问题
从网页通过inet控件的Inet1.GetChunk读取其代码，然后想转换为汉字，转换代码如下
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strRecText As String
Dim strBuffer As String
Select Case State
Case 1
StatusBar1.Panels(2) = "正在查询主机的IP"
Case 2
StatusBar1.Panels(2) = "成功找到主机的IP"
Case 3
StatusBar1.Panels(2) = "正在于主机链接"
Case 4
StatusBar1.Panels(2) = "与主机链接成功"
Case 5
StatusBar1.Panels(2) = "正在向主机传送命令"
Case 6
StatusBar1.Panels(2) = "成功向主机传送命令"
Case 7
StatusBar1.Panels(2) = "正在接收主机的响应"
Case 8
StatusBar1.Panels(2) = "成功接收主机的响应"
Case 11
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
function multi(a as integer,b as integer,optional third)
dim n as integer
n = a * b
if not ismissing (third) then
n = n * thid
end if
multi = n
end fu ......
一个程序，两个窗口，一个用来更改access表数据（Form1）,另一个窗口有个combo1用来显示数据(Form2)。form2有一个按钮(command1)用来打开form1。现在我先打开form2，combo1读取出数据，点击command1打开form1,更改数 ......
