テキストボックスを実行時に作成する
- 題名: テキストボックスを実行時に作成する
- 著者: TY
- 日時: 2003/10/15 18:06:41
- ID: 948
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[1]: テキストボックスを実行時に作成する
- 著者: SH
- 日時: 2003/10/15 20:07:23
- ID: 951
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[2]: テキストボックスを実行時に作成する
- 著者: TY
- 日時: 2003/10/16 9:15:24
- ID: 954
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[3]: テキストボックスを実行時に作成する
- 著者: 管理人
- URL: http://dobon.net
- 日時: 2003/10/20 3:48:47
- ID: 998
- この記事の返信元:
- この記事への返信:
- ツリーを表示
- 題名: Re[4]: テキストボックスを実行時に作成する
- 著者: TY
- 日時: 2003/10/21 10:29:40
- ID: 1027
- この記事の返信元:
- この記事への返信:
- ツリーを表示
初めて書き込みます.よろしくお願いいたします.
VB.NETで,実行時に,ちょうど開発時にツールボックスからテキストボックスを
ドラッグして貼り付けるのと同じように,テキストボックスをフォーム上に
生成させたいのですが,どうしたらよいでしょう.
一応,やってみたのが下記コード(コードではPictureBox上に生成させてます).
Private Sub PictureBox1_MouseDown(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox1.MouseDown
SX = e.X
SY = e.Y
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox1.MouseUp
EX = e.X
EY = e.Y
T1 = New TextBox()
'T1.BorderStyle = BorderStyle.None
T1.AutoSize = False
T1.Text = TextBox1.Text
T1.Width = EX - SX
T1.Height = EY - SY
T1.Location = New Point(SX, SY)
T1.AllowDrop = True
Me.PictureBox1.Controls.Add(T1)
End Sub
これで,生成はできるのですが,開発時のようにテキストボックスにハンドルをつけて
移動させたり,大きさを変えたり,プロパティを変えたりさせたいのです.
コンポーネントとして,作りこまなくてはならないのでしょうか.
Officeのテキストボックスオブジェクトをそのまま使えたら,その方が簡単なような
気もしますが,それもやり方がわかりません.
ご存知の方,ご教示ください.