MESCIUS SPREAD for Windows Forms 17.0J
AddControl(Control,Int32,Int32) メソッド

追加する子コントロール
子コントロールを追加する行インデックス
子コントロールを追加する列インデックス
シートのコントロール コンテナの指定した行および列に子コントロールを追加します。
構文
'Declaration
 
Public Overloads Overridable Sub AddControl( _
   ByVal control As Control, _
   ByVal row As Integer, _
   ByVal column As Integer _
) 
public virtual void AddControl( 
   Control control,
   int row,
   int column
)

パラメータ

control
追加する子コントロール
row
子コントロールを追加する行インデックス
column
子コントロールを追加する列インデックス
次のサンプル コードは、シートにテキスト ボックス コントロールを追加します。
public class SpreadTextBox : TextBox, FarPoint.Win.Spread.DrawingSpace.IEmbeddedControlSupport 
{ 
 private FarPoint.Win.Spread.DrawingSpace.Moving moving = Moving.None; 
 private FarPoint.Win.Spread.DrawingSpace.Sizing sizing = Sizing.None; 
 private FarPoint.Win.Spread.DrawingSpace.ChildActivationPolicy activation = ChildActivationPolicy.DoubleClick; 

 public virtual FarPoint.Win.Spread.DrawingSpace.ChildActivationPolicy ActivationPolicy { 
   get { 
     return activation; 
   } 
   set { 
   } 
 } 

 public virtual FarPoint.Win.Spread.DrawingSpace.Moving CanMove { 
   get { 
     return moving; 
   } 
   set { 
     moving = value; 
   } 
 } 

 public virtual FarPoint.Win.Spread.DrawingSpace.Sizing CanSize { 
   get { 
     return sizing; 
   } 
   set { 
     sizing = value; 
   } 
 } 

 public void ControlPaint(Graphics g, Rectangle r, FarPoint.Win.Spread.Appearance appearance, object value, bool isSelected,
bool isLocked, float zoomFactor) 
 { 
   g.SetClip(r, CombineMode.Intersect); 
   g.FillRectangle(new SolidBrush(this.BackColor), r); 
   g.DrawString(this.Text, Font, new SolidBrush(this.ForeColor), r.X, r.Y); 
   this.TextChanged += new EventHandler(MeTextChanged); 
 } 

 public void MeTextChanged(object sender, EventArgs e) 
 { 
   this.BackColor = Color.Beige; 
 } 
}

SpreadTextBox tb = new SpreadTextBox();
tb.Name = "TB";
fpSpread1.ActiveSheet.AddControl(tb, 2, 2);
Public Class SpreadTextBox
   Inherits TextBox
   Implements FarPoint.Win.Spread.DrawingSpace.IEmbeddedControlSupport

   Private moving As FarPoint.Win.Spread.DrawingSpace.Moving = Moving.None
   Private sizing As FarPoint.Win.Spread.DrawingSpace.Sizing = Sizing.None
   Private activation As FarPoint.Win.Spread.DrawingSpace.ChildActivationPolicy = ChildActivationPolicy.DoubleClick

   Public Overridable Property ActivationPolicy() As FarPoint.Win.Spread.DrawingSpace.ChildActivationPolicy Implements IEmbeddedControlSupport.ActivationPolicy
   Get
     Return activation
   End Get
   Set(ByVal Value As FarPoint.Win.Spread.DrawingSpace.ChildActivationPolicy)
     ' activation = Value
   End Set
   End Property

   Public Overridable Property CanMove() As FarPoint.Win.Spread.DrawingSpace.Moving Implements IEmbeddedControlSupport.CanMove
   Get
     Return moving
   End Get
   Set(ByVal Value As FarPoint.Win.Spread.DrawingSpace.Moving)
     moving = Value
   End Set
   End Property

   Public Overridable Property CanSize() As FarPoint.Win.Spread.DrawingSpace.Sizing Implements IEmbeddedControlSupport.CanSize
   Get
     Return sizing
   End Get
   Set(ByVal Value As FarPoint.Win.Spread.DrawingSpace.Sizing)
     sizing = Value
   End Set
   End Property


   Public Sub ControlPaint(ByVal g As Graphics, ByVal r As Rectangle, ByVal appearance As FarPoint.Win.Spread.Appearance,
ByVal value As Object, ByVal isSelected As Boolean, ByVal isLocked As Boolean, ByVal zoomFactor As Single) Implements IEmbeddedControlSupport.ControlPaint
    g.SetClip(r, CombineMode.Intersect)
    g.FillRectangle(New SolidBrush(Me.BackColor), r)
    'g.FillRectangle(New SolidBrush(Me.BackColor), r.X - 120, r.Y - 120, r.Width, r.Height)
    g.DrawString(Me.Text, Font, New SolidBrush(Me.ForeColor), r.X, r.Y)
AddHandler Me.TextChanged, AddressOf MeTextChanged

  End Sub

Public Sub MeTextChanged(ByVal sender As Object, ByVal e As EventArgs)
Me.BackColor = Color.Beige
End Sub
End Class

Dim tb As New SpreadTextBox()
tb.Name = "TB"
FpSpread1.ActiveSheet.AddControl(tb, 2, 2)
参照

SheetView クラス
SheetView メンバ
オーバーロード一覧

 

 


© MESCIUS inc. All rights reserved.