FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > SheetView クラス : JoinShapes メソッド |
'Declaration Public Overridable Function JoinShapes( _ ByVal destinationShapeName As String, _ ByVal sourceShapeName As String _ ) As Boolean
'使用法 Dim instance As SheetView Dim destinationShapeName As String Dim sourceShapeName As String Dim value As Boolean value = instance.JoinShapes(destinationShapeName, sourceShapeName)
public virtual bool JoinShapes( string destinationShapeName, string sourceShapeName )
FarPoint.Win.Spread.DrawingSpace.ArrowShape a = new FarPoint.Win.Spread.DrawingSpace.ArrowShape(); a.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical; a.Name = "Arrow"; fpSpread1.ActiveSheet.AddShape(a); FarPoint.Win.Spread.DrawingSpace.RectangleShape r = new FarPoint.Win.Spread.DrawingSpace.RectangleShape(); r.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical; r.Name = "Rect"; fpSpread1.ActiveSheet.AddShape(r); private void Button1_Click(object sender, System.EventArgs e) { fpSpread1.ActiveSheet.JoinShapes("Rect", "Arrow"); }
Dim a As New FarPoint.Win.Spread.DrawingSpace.ArrowShape a.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical a.Name = "Arrow" FpSpread1.ActiveSheet.AddShape(a) Dim r As New FarPoint.Win.Spread.DrawingSpace.RectangleShape r.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical r.Name = "Rect" FpSpread1.ActiveSheet.AddShape(r) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click FpSpread1.ActiveSheet.JoinShapes("Rect", "Arrow") End Sub