易截截图软件、单文件、免安装、纯绿色、仅160KB

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
         


相关问答:

VB中有无TApplication对应类型

我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好,用instance不是就可以了&# ......

vb打印问题

大家好,问个vb打印问题


printer.print "dsff"
.....
....


Printer.EndDoc


打印成功后我将执行

sqlstr = "update vc_yh set pr=' 已打印 ', ......

vb如何调用Illustrator(此前Illustrator未启动)?

请教一下:我用vb写了一个调用Illustrator的测试程序,代码很简单:Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

用VB创建了一个空Access表,不能添加记录

用ADO创建了一个空Access表,并添加了多个字段名。
但现在问题是,不能向空表中添加记录。
每次添加都会出现“BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录”

......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号