fzg_2000 发表于 2005-1-14 16:51:00

关于如何处理在vb.net里汉字乱码问题

我用如下代码去处理


但出现的是乱码


如何解决，不胜感激                       


                               Dim mtextObject As AutoCAD.AcadMText<BR>                                                       Dim mtextString As String<BR>                                                       Dim insertionPoint(2) As Double<BR>                                                       Dim width As Double


                                                       '定义文本的宽度，书写位置<BR>                                                       width = 45<BR>                                                       insertionPoint(0) = pointTop(0) - 116.0# : insertionPoint(1) = pointTop(1) + 7.0# : insertionPoint(2) = pointTop(2)<BR>                                                       mtextString = "\U+2205 \U+2770"


                                                       Dim Acadapp As AutoCAD.AcadApplication<BR>                                                       On Error Resume Next<BR>                                                       Acadapp = GetObject(, "AutoCAD.Application")<BR>                                                       Acadapp.ActiveDocument.ActiveTextStyle.fontFile = "C:\WINDOWS\Fonts\simsun.ttf"<BR>                                                       mtextObject = Acadapp.ActiveDocument.ModelSpace.AddMText(insertionPoint, width, mtextString)

雪山飞狐_lzh 发表于 2005-1-16 21:31:00

你直接用汉字不行么？

fzg_2000 发表于 2005-1-18 00:33:00

用单文本(AddText)直接输入汉字，显示正常


而用多本文(AddMText）则是乱码


页: [1]
查看完整版本: 关于如何处理在vb.net里汉字乱码问题