タイトル | : Dockについて |
記事No | : 8176 |
投稿日 | : 2008/09/19(Fri) 12:00 |
投稿者 | : タロ |
いつもお世話になっています。 Dockについて質問です。
SplitContainer1.Panel1の中にPanelで囲んだテキストやラベルをDockプロパティ:TOPで画面作成しています。 ある位置から、Panelで囲んだテキスト等を自動配置するようにしているのですが、Dock =System.Windows.Forms.DockStyle.TopとするとSplitContainer1.Panel1の一番上に表示されてしまいます。 どのように対処すればよいのでしょうか。
Private field_txt() As System.Windows.Forms.TextBox Private field_pnl() As System.Windows.Forms.Panel Private field_dtp() As System.Windows.Forms.DateTimePicker
For iRows = start_row To end_row Me.field_pnl(iRows - 1) = New System.Windows.Forms.Panel With Me.field_pnl(iRows - 1) 'プロパティ設定 .Name = iRows.ToString() .Location = New System.Drawing.Point(0, 279 + 85 * (iRows - 1)) '.Dock = System.Windows.Forms.DockStyle.Top .BorderStyle = BorderStyle.FixedSingle .Size = New System.Drawing.Size(503, 86) End With
Me.field_txt(iRows - 1) = New System.Windows.Forms.TextBox With Me.field_txt(iRows - 1) 'プロパティ設定 .Name = "txt_KIROKU" + iRows.ToString() .Dock = System.Windows.Forms.DockStyle.Fill .Location = New System.Drawing.Point(118, 0) .Multiline = True .Size = New Point(385, 86) End With
Me.field_dtp(iRows - 1) = New System.Windows.Forms.DateTimePicker With Me.field_dtp(iRows - 1) 'プロパティ設定 .Name = "dtp_KIROKU" + iRows.ToString() .Dock = System.Windows.Forms.DockStyle.Left .Location = New System.Drawing.Point(0, 0) .Size = New System.Drawing.Size(118, 19) .Format = System.Windows.Forms.DateTimePickerFormat.[Short] End With
SplitContainer1.Panel1.Controls.Add(Me.field_pnl(iRows - 1)) field_pnl(iRows - 1).Dock = System.Windows.Forms.DockStyle.Top field_pnl(iRows - 1).Controls.Add(field_txt(iRows - 1)) field_pnl(iRows - 1).Controls.Add(field_dtp(iRows - 1))
Next
環境:VB2008 よろしくお願い致します。
|