如何使用 VB.net 将形状放入 VISIO 中的形状内
我使用机架安装设备（美国单位）.VSS 作为模板。我需要连接机架上的服务器。请尽快给出答复...！
I am using Rack-mounted Equipment (US units).VSS as stencil. I need to Connect a server on Rack. Please give an answer its urget...!
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
好友 WithEvents AxDC 作为 AxMicrosoft.Office.Interop.VisOcx.AxDrawingControl
currentPage = AxDC.Document.Pages(1)
currentStencil = AxDC.Document.Application.Documents.OpenEx(File_name,VisOpenSaveArgs.visOpenDocked)
Dim shapeRack As Microsoft.Office.Interop.Visio.Shape = currentPage.Drop(currentStencil.Masters("Rack"), 1, 6)
Dim shapeSrver As Microsoft.Office.Interop.Visio.Shape = .Drop(currentStencil.Masters(“Server”), 0, 0)
''这是代码...！
shapeSrver.Cells("BeginX").GlueTo(shapeRack.CellsSRC(7, 0, 0))
shapeSrver.Cells("EndX").GlueTo(shapeRack.CellsSRC(7, 1, 0))
Friend WithEvents AxDC As AxMicrosoft.Office.Interop.VisOcx.AxDrawingControl
currentPage = AxDC.Document.Pages(1)
currentStencil = AxDC.Document.Application.Documents.OpenEx(File_name,VisOpenSaveArgs.visOpenDocked)
Dim shapeRack As Microsoft.Office.Interop.Visio.Shape = currentPage.Drop(currentStencil.Masters("Rack"), 1, 6)
Dim shapeSrver As Microsoft.Office.Interop.Visio.Shape = .Drop(currentStencil.Masters(“Server”), 0, 0)
''Here is the code...!
shapeSrver.Cells("BeginX").GlueTo(shapeRack.CellsSRC(7, 0, 0))
shapeSrver.Cells("EndX").GlueTo(shapeRack.CellsSRC(7, 1, 0))