C# と VB.NET の質問掲示板

■No75881 (Amateur さん) に返信
ご返答ありがとうございます。
現状のコードなのですが、下記のように記述しています。

　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
　　　'タブを作成する
　　　AddTabPage()

　　　'ユーザーコントロールのテキストボックスに値を書き込む
      Dim result As New UserControl()
      result.TextBox1.Text = "文字"
    End Sub

　  ''' <summary>
    ''' タブページを作成する
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub AddTabPage()
            Dim tabPage As New TabPage()
            tabPage.Text = "TabPage" & (TabControl1.TabPages.Count + 1)
            TabControl1.TabPages.Add(tabPage)
            AddFlowPanel(tabPage)
    End Sub

    ''' <summary>
    ''' フローレイアウトパネルのDockをFillに変更し、タブページに貼り付ける
    ''' </summary>
    ''' <param name="tabPage"></param>
    ''' <remarks></remarks>
    Private Sub AddFlowPanel(ByVal tabPage As TabPage)
        Dim flowPanel As New FlowLayoutPanel()
        flowPanel.Dock = DockStyle.Fill
        tabPage.Controls.Add(flowPanel)
        AddUserControl(flowPanel)
    End Sub

    ''' <summary>
    ''' 作成したユーザーコントロールをフローレイアウトパネルに貼り付ける
    ''' </summary>
    ''' <param name="flowPanel"></param>
    ''' <remarks></remarks>
    Private Sub AddUserControl(ByVal flowPanel As FlowLayoutPanel)
        Dim readResult As New UserControl()
        flowPanel.Controls.Add(readResult)
    End Sub

フォーム上の部品は
■ツールボックスから
　・Button
　・TabControl
　・FlowLayoutPanel
　・TextBox
■プロジェクトから
　・UserControl
を使用しています。

お気づきの点等があれば、ご指摘頂けますでしょうか。
よろしくお願いします。

■No75883 (WebSurfer さん) に返信
ご返答ありがとうございます。
情報不足で申し訳ございません。以下、環境内容をまとめました。
■作成したいもの
　・Windowsフォームアプリ(内容は最初に記載した1〜5です)
■OS
　・Windows 7
■.Netのバージョン
　・4.5

また、不足している点がございましたらご指摘頂けますでしょうか。
よろしくお願いします。

下らない関数化をやめて、ベタで書くと分りやすい。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim tabPage As New TabPage()
    tabPage.Text = "TabPage" & (TabControl1.TabPages.Count + 1)
    TabControl1.TabPages.Add(tabPage)

    Dim flowPanel As New FlowLayoutPanel()
    flowPanel.Dock = DockStyle.Fill
    tabPage.Controls.Add(flowPanel)

    Dim readResult As New UserControl()
    flowPanel.Controls.Add(readResult)

    Dim result As New UserControl()
    result.TextBox1.Text = "文字"
End Sub

＞５：タブページに貼り付けられたユーザーコントロール内にあるテキストボックスに値を書き込む

readResult.TextBox1.Text = "文字"

ですよね。

■No75885 (魔界の仮面弁士 さん) に返信
ご返答ありがとうございます。
知りたい内容でした。生成したUserControlを管理したい箇所は特定のTabPageで管理をします。
もう一点、教えて頂きたいのですが、特定のTabPage(※TabPage1,TabPage2,TabPage3・・・)の1,2,3の部分を変数にしたいと思っています。
　Dim userControl As New UserControl()
　TabPage(i).Controls.Add(userControl)
のようにしたいのですが、中々思うようにいきません。


■No75886 (PANG2 さｎ) に返信
ご返答ありがとうございます。
そうですね、いきなり関数化して書かずにベタ書きで考えるべきでした。
ご指摘、ありがとうございます。


■No75888 (WebSurfer さん) に返信
ご返答ありがとうございます。
仰られる通り、理解不足な所があります。
(1)は変数の利用出来る範囲or寿命
(2)は値型がIntegerやDouble等の実データを格納するもの、参照型がFormやコントロール(部品)を格納するもの
といった感じのイメージしかもっていません。