28,403
社区成员
发帖
与我相关
我的任务
分享进来看看就有分
如何用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
我用下面这个函数，写了一个组件，为什么在生成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
...全文
请发表友善的回复…
发表回复
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
%>
现在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)
请注意检查这个函数的名称和调用的函数是不是名称一样。
StrConv(STR, vbUnicode, &H804)
请注意检查这个函数的名称和调用的函数是不是名称一样。
chengcom 2004-12-06
- 打赏
- 举报
up
