星禾的博客

摘要： 获取shape的xy位置 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim visioApp As Visio.Application visioApp = New Visio. 阅读全文

摘要： 原始版本 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim filePath1 As String = "C:\Users\XUST\Desktop\sample.vsdx" D 阅读全文