进来看看就有分

suscom 2004-12-06 10:06:40
如何用VB写一个组件,实现简繁体中文相互转换?
我用下面这个函数,写了一个组件,为什么在生成DLL时出现,未知的过程或变量StrConv的错误提示
Function GBBIG5(sStr As String, iConver As Integer) As String
On Error Resume Next
Dim STR
If iConver = 1 Then 'BIG5-->GB
STR = StrConv(sStr, vbFromUnicode, &H804)
GBBIG5 = StrConv(STR, vbUnicode, &H404)
ElseIf iConver = 2 Then 'GB-->BIG5
STR = StrConv(sStr, vbFromUnicode, &H404)
GBBIG5 = StrConv(STR, vbUnicode, &H804)
End If

End Function
...全文
87 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
centerstar 2004-12-06
看看有没有转成功,测试一下
回复
cdsun 2004-12-06
错误修正了就改阿
回复
tpf9000 2004-12-06
up
回复
fangq 2004-12-06
顶!观注!
回复
sdts 2004-12-06
来学习学习
回复
daikaiming 2004-12-06
顶一下,狂学中!
回复
DARKNESSFALL 2004-12-06
顶一下
回复
suscom 2004-12-06
错误提示,我已经知道了,是因为工程的名称StrConv和关键字冲突了
现在DLL已经成功生成,但是转换的结果是乱码,ASP代码如下
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<%
set myConv=server.CreateObject("myStrConv.GBTOBIG")
Response.write myConv.GBBIG5("产品介绍",2)
set myConv=nothing
%>
回复
honghe1 2004-12-06
你定义这个函数了吗?

StrConv(STR, vbUnicode, &H804)

请注意检查这个函数的名称和调用的函数是不是名称一样。
回复
chengcom 2004-12-06
up
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-12-06 10:06
社区公告
暂无公告