J
JuneTheSecond
I've found greate article that is Chris Roth's "Visio and Xml
Conference Resources" posted on November 30th, 2006.
http://www.visguy.com/2006/11/30/visio-and-xml-conference-resources/
I downloaded the program VisioXmlPresentation.zip
http://www.visguy.com/downloads/VisioXmlPresentation.zip
Thank you Chris. The potential might be unlimited.
It is now running in VB2005 and Visio 2007 Japanese version.
I replaced the function "_getMemStreamFromString"
so that it receives Japanese Kanji in Visio vdx files.
'// Converts a string to a memory stream.
Private Function _getMemStreamFromString(ByVal s As String) As
MemoryStream
Dim ascEncoding As New UTF8Encoding()
Dim bString As Byte() = ascEncoding.GetBytes(s)
Dim ms As New MemoryStream(s.Length + 100)
Try
ms.Write(bString, 0, bString.Length)
Return ms
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
End Function
Conference Resources" posted on November 30th, 2006.
http://www.visguy.com/2006/11/30/visio-and-xml-conference-resources/
I downloaded the program VisioXmlPresentation.zip
http://www.visguy.com/downloads/VisioXmlPresentation.zip
Thank you Chris. The potential might be unlimited.
It is now running in VB2005 and Visio 2007 Japanese version.
I replaced the function "_getMemStreamFromString"
so that it receives Japanese Kanji in Visio vdx files.
'// Converts a string to a memory stream.
Private Function _getMemStreamFromString(ByVal s As String) As
MemoryStream
Dim ascEncoding As New UTF8Encoding()
Dim bString As Byte() = ascEncoding.GetBytes(s)
Dim ms As New MemoryStream(s.Length + 100)
Try
ms.Write(bString, 0, bString.Length)
Return ms
Catch ex As Exception
MessageBox.Show(ex.Message)
Return Nothing
End Try
End Function
