VBA代码转换为C#代码 100
第一句:ActiveDocument.Shapes(ListBox1.List(ListBox1.ListIndex)).Rotation=ConvertNum(Text...
第一句:
ActiveDocument.Shapes(ListBox1.List(ListBox1.ListIndex)).Rotation = ConvertNum(TextBox1.Value)
ActiveDocument.Shapes.AddLine(x1 - LenX / 2, y1, x1 + LenX / 2, y1).Name = "shp1"
第二句:
ActiveDocument.Shapes("shp1").Line.EndArrowheadStyle = msoArrowheadTriangle
第三句:
Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As Object
.....
....
...
DrawDot.Fill.ForeColor = RGB(0, 0, 0)
End Function
第四句:
ActiveDocument.Shapes.AddCurve(pts).Name = "shape1"
ActiveDocument.Shapes.AddCurve(pts_1).Name = "shape2"
ActiveDocument.Shapes.Range(Array("shape1", "shape2")).Group 展开
ActiveDocument.Shapes(ListBox1.List(ListBox1.ListIndex)).Rotation = ConvertNum(TextBox1.Value)
ActiveDocument.Shapes.AddLine(x1 - LenX / 2, y1, x1 + LenX / 2, y1).Name = "shp1"
第二句:
ActiveDocument.Shapes("shp1").Line.EndArrowheadStyle = msoArrowheadTriangle
第三句:
Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As Object
.....
....
...
DrawDot.Fill.ForeColor = RGB(0, 0, 0)
End Function
第四句:
ActiveDocument.Shapes.AddCurve(pts).Name = "shape1"
ActiveDocument.Shapes.AddCurve(pts_1).Name = "shape2"
ActiveDocument.Shapes.Range(Array("shape1", "shape2")).Group 展开
4个回答
展开全部
上次帮你转的那个,你还没结果呢?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
既然如此,我就懒得动脑筋了,这东西很费时间。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
既然如此,我就懒得动脑筋了,这东西很费时间。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
既然如此,我就懒得动脑筋了,这东西很费时间。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询