UC知道这个要怎样改呢?VB
来源：百度知道 编辑：UC知道 时间：2024/09/23 07:35:09
Private Sub Text1_Change()
Text2.Text = ZPY(Text1.Text)
End Sub
Public Function ZPY(ByVal xm As String) As String
length = Len(xm)
For i = 1 To length
Select Case Asc(Mid(xm, i, 1))
Case -20319 To -20318: CH = "a"
Case -20317 To -20305: CH = "ai"
'注意.......中间省略了一部分...因为大多贴不上
Case -10260 To -10257: CH = "zui"
Case -10256 To -10255: CH = "zun"
Case -10254 To -10251: CH = "zuo"
Case Else
msgbox "转换错误"
End Select
TempStr = CH
Next
ZPY = TempStr '函数返回值
End Function
上面这个是拼音转换的函数。。。。。。。。。
如果我想把这个函数里面的
Case -10260 To -10257: CH = "zui"
改成 “Case "你好": CH = "HELLO" ”
整个函数要怎样改？
Text2.Text = ZPY(Text1.Text)
End Sub
Public Function ZPY(ByVal xm As String) As String
length = Len(xm)
For i = 1 To length
Select Case Asc(Mid(xm, i, 1))
Case -20319 To -20318: CH = "a"
Case -20317 To -20305: CH = "ai"
'注意.......中间省略了一部分...因为大多贴不上
Case -10260 To -10257: CH = "zui"
Case -10256 To -10255: CH = "zun"
Case -10254 To -10251: CH = "zuo"
Case Else
msgbox "转换错误"
End Select
TempStr = CH
Next
ZPY = TempStr '函数返回值
End Function
上面这个是拼音转换的函数。。。。。。。。。
如果我想把这个函数里面的
Case -10260 To -10257: CH = "zui"
改成 “Case "你好": CH = "HELLO" ”
整个函数要怎样改？
你要实现汉译英的功能，需要专门的引擎才行。
目前我还没看到用VB做成的此类源码。
vb的case好像只用数字来switch的
你的情形还是用if吧
case 不能和to使用的吧？
这个搞不了
这个你要去建一个库了