进来看看就有分

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

...全文

111 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

centerstar 2004-12-06

打赏
举报

看看有没有转成功，测试一下

cdsun 2004-12-06

打赏
举报

错误修正了就改阿

tpf9000 2004-12-06

打赏
举报

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
%>