動的に作成したコントロールについて

動的に作成したタブページのプロパティに、アクセスするにはどうしたら良いでしょうか？
解答をよろしくお願いいたします。

情報はギブアンドテイクです。
>動的に作成したタブページのプロパティに、アクセスするにはどうしたら良いでしょうか？
ということであれば、動的にタブページを作成することはできているのですよね？
そのコードを書くようにしましょう。

さて、ご質問の件ですが、
私ならこのような書き方をします。
    

Dim newPage As New TabPage



TabControl1.TabPages.Add(newPage)



newPage.Text = "あいうえお"

newPage.BackColor = Color.Red

TabControl1.SelectedTab = newPage

次のように書くこともできます。
    

TabControl1.TabPages.Add("NewPage", "あいうえお")



TabControl1.TabPages("NewPage").BackColor = Color.Blue

TabControl1.SelectedTab = TabControl1.TabPages("NewPage")

余談ですが、
>解答をよろしくお願いいたします。
この場合「解答」ではなく「回答」が適切かと思います。

情報不足ですみませんでした。
るきおさんの回答からだと、同じイベント内での事となりますが
違うイベントからのアクセスは出来るのでしょうか？
下のコードで言うと、例えば「別のボタンを押したら、NewTabPage（下のコードで作った）のTextプロパティを"かきくけこ"にする」ということです。お願いいたします。
以下コードです。

'「pagenum」はただの変数です 

'「SPControl」はユーザーコントロールです。 

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        Dim NewTabPage As New TabPage



        NewTabPage.Text = "◯ページ-" + pagenum

        

        Dim NewSPControl As New SPControl



        NewSPControl.Dock = DockStyle.Fill

        NewSPControl.Visible = True

        

        NewTabPage.Controls.Add(NewSPControl) 

        TabControl1.TabPages.Add(NewTabPage)

       

        pagenum += 1



  End Sub

※誤字訂正ありがとうございました。ミスでした。

デザイン時に作成したコントロールをどうやって参照しているのか
という事と大差ありません。Designer.vbの中に答えはあります。

>違うイベントからのアクセスは出来るのでしょうか？
できます。

１番目の例では変数NewPageのスコープを他のイベント内でも見えるように変えるだけで実現できます。
２番目の例ではそのままで実現できます。

試してみてください。

(削除されました)

↑間違えました、すみません。

この場合ボタンを何回も押せるので、タブページはいくらでも作れます。
NewTabPageが複数作られた中の１つのプロパティにアクセスする場合も、変数NewPageのスコープを他のイベントで見えるように変えるだけでいいのでしょうか。
また、その場合
>変数NewPageのスコープを他のイベント内でも見えるように変えるだけで実現できます。
の具体的なやり方を教えていただけないでしょうか？
また、参考になるHP等ありましたらお願いします。るきおさん、shuさん、このような質問に付き合っていただきありがとうございます。

上の
>NewTabPageが複数作られた中の～
の文が分かりにくかったので少しは分かりやすく訂正します。

訂正：
>NewTabPageが複数作られた中の１つのプロパティにアクセスする場合も、変数NewPageのスコープを他のイベントで見えるように変えるだけでいいのでしょうか。

分かりやすい文：
同じ名前で作られたコントロールのうちの、１つのコントロールのプロパティにアクセスするにはどうしたら良いでしょうか。その場合も変数NewPageのスコープを他のイベントで見えるように変えるだけでいいのでしょうか。

複数あるならそれぞれのページ毎の変数が必要になるでしょう。
まとめたければ配列とかリストとかを使用すると良いかと思います。

>同じ名前で作られたコントロールのうちの、１つのコントロールのプロパティにアクセスするにはどうしたら良いでしょうか。
コントロール(=TabPage)は複数作成されるということですね？
で、そのうち１つのコントロールのプロパティにアクセスしたいということですが、
どの１つでしょうか？
最初の１つですか？最後の１つですか？
それとも何か別の見分ける方法を考えていますか？

それがわからなければ具体的なやり方はかけないです。

>その場合も変数NewPageのスコープを他のイベントで見えるように変えるだけでいいのでしょうか。 
複数を想定するのであればこれだけではだめです。
ダメな理由は変数が１個しかないから複数のTabPageを管理できないからです。
なので考え方的にはあっていますが、それだけではダメということです。

解決方法はshuさんが書き込みされている通りです。

具体的なやり方は上述の質問の答えが分からないと紹介できません。

この回答が的外れかも知れませんが、
>それとも何か別の見分ける方法を考えていますか？
TabPageが追加されるときに「○ページ1」「○ページ2」...とTextプロパティを変えていっています。
それで区別がつかないでしょうか?それだけではダメでしょうか？

>TabPageが追加されるときに「○ページ1」「○ページ2」...とTextプロパティを変えていっています。
>それで区別がつかないでしょうか?それだけではダメでしょうか？ 
OKです。

で、SSさんの知りたいことは
>同じ名前で作られたコントロールのうちの、１つのコントロールのプロパティにアクセスするにはどうしたら良いでしょうか。
ですよね。

なので、「○ページ1」と「○ページ2」、…のすべてのプロパティを設定したり取得したりするのではなく、
どれか１つのプロパティを設定したり取得したりしたいのだと思っています。
そのどれか１つとはどれですか？
たぶん固定で決まっているわけではないと思うので、そのときの『状況』に応じて判断して対象のページを指定することになると思うのですが、その判断はどうしたらいいですか？
一番番号の大きいページという判断でいいでしょうか？
それとも、一番番号の小さいページですか？
または、ほかの何かでしょうか？

それがわからないと、何のプロパティにアクセスすればいいかわからないので、具体的なやり方が書けないです。

>そのどれか１つとはどれですか？
Textプロパティです。なのでそのTabPageのTextプロパティにアクセス、内容をいじった後に、いじった後のTextプロパティをなにかしらの変数に代入し、次回アクセスするときに今度はその変数で区別するような感じでいいと思います。お願いします。
>たぶん固定で決まっているわけではないと思うので、そのときの『状況』に応じて判断して対象のページを指定することになると思うのですが、その判断はどうしたらいいですか？
いままで書いていませんでしたが、対象のページの中にあるコントロールからです。今作っているのは、タブ型のウェブブラウザで、タブの中のコントロールをユーザコントロールにまとめてあり、そのユーザーコントロールの中のウェブブラウザコントロールのDocumentCompletedイベントが発生した時に、そのタブページのTextプロパティを、そのウェブブラウザのDocumentTitleにするということです。
単純に言えば、タブブラウザのタブの部分に、ページ名を表示させたいということです。
　

わかりにくいので画像（？）を
＿＿＿＿＿＿＿＿＿＿＿＿＿＿_
「□ウィンドウ　　　　　　　　　　　×  ｜
| ___________________                            |
|_|TabPage      |____________________________|
| _____________________________________________  |
||           UserControl                 |  |
||  _________________________________________  |  |         
|| |         WebBrowser               | |  |
|| |_________________________________________| |  |
||_____________________________________________|  |
|________________________________________________|

(削除されました)

ToolStripButton1を２回以上クリックしてから
別のボタンをクリックしたらどうしますか？

といいますと?失礼ですがよく意味がわかりません。別のボタンというのは例えばどういうボタンですか？

なかなか話のすれちがいが解消できませんね。
>別のボタンというのは例えばどういうボタンですか？ 
タブページを追加するボタンです。

とりえあず、
「DocumentCompleteイベントが発生したときに、そのWebBrowserコントロールが配置されているTabPageのTextプロパティを変更したい」ということがわかりましたので、多少具体的なコードが書けます。

Public Class Form1



    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click



        Dim newPage As New TabPage

        newPage.Text = "新しいページ"



        Dim browser As New WebBrowser

        browser.Dock = DockStyle.Fill

        AddHandler browser.DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted

        newPage.Controls.Add(browser)



        TabControl1.TabPages.Add(newPage)

        TabControl1.SelectedTab = newPage



        browser.Navigate("http://www.nifty.com")



    End Sub



    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)



        Dim page As TabPage = sender.Parent



        page.Text = sender.DocumentTitle



    End Sub



End Class

この例はTabPageに直接WebBrowserコントロールが配置されているときにはうまく動きます。
DocumentCompleteイベントでsender.ParentがTabPageだからです。
SSさんの場合、さらにUserControlでくるまれているので、このUserControlのParentを取得するようにすればうまくいくはずです。

るきおさん、shuさん、今回は付き合っていただきありがとうございました。ユーザーコントロールのParentを取得するようにしてやってみます。また何か質問があればこの掲示板を利用させていただきます。丁寧でわかりやすい解説、ありがとうございました。

(削除されました)

> といいますと?失礼ですがよく意味がわかりません。別のボタンというのは例えばどういうボタンですか？ 

2011/3/26 22:04:03 にSSさん自身が書かれた別のボタンのことです。

処理イベントが変わっていたのは書込みタイミングで気づきませんでした。

 Dim uc As Object 

Public Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

        Dim newpage As New TabPage

        newpage.Text = "NewPage"



        Dim browser As New SPControl

        browser.Dock = DockStyle.Fill

        uc = browser



        AddHandler browser.WebBrowser.DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted

        newpage.Controls.Add(browser)



        TabControl1.TabPages.Add(newpage)



        TabControl1.SelectedTab = newpage

       

    End Sub



Public Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)

       

        Dim page As TabPage = uc.Parent





        page.Text = sender.DocumentTitle



    End Sub





End Class

すみません。これだと一番最後に追加したタブページのみのページタイトルが更新されます。どうしたら良いでしょうか？

>Dim page As TabPage = uc.Parent
これがダメです。

ページは複数あるのに対し、ucという変数は１つしかありませんよね？
なので、この構造では複数のページを操ることは無理です。

senderからページを取得するように改造してください。
今回のケースではsenderの内容はWebBrowserですが、
そのWebBrowserが配置されているSPControlのことがわからないので何とも言えません。

たとえば、
Dim page As TabPage = sender.Parent.Parent
でうまくいくかもしれませんし、ダメかもしれません。
Dim page As TabPage = sender.Parent.Parent.Parent
でうまくいくかもしれませんし、ダメかもしれません。

自作のユーザーコントロール等作成するときは一般的なアドバイスが受けられなくなる覚悟が必要です。

あ、でも、
>AddHandler browser.WebBrowser.DocumentCompleted, AddressOf WebBrowser1_DocumentCompleted
これを見ると、SPControlの構造がちょっと想像できました。

やっぱり、これが最有力です。
Dim page As TabPage = sender.Parent.Parent

ありがとうございました。これで本当の解決です。

Dim page As TabPage = sender.Parent.Parent.Parent

でできました。