継承後のメソッドでコントロールにアクセスする方法

Question

よろしくお願い致します。

継承の動作を勉強しております。動作自体は確認出来ました。
継承後のメソッドでフォーム上のコントロールにアクセスする方法はありますか？
例えば「label1.text = "～"」の様に動作させたいです。

現在、２つのファイルに３つのクラス（そもそもここが間違ってる？）を書いてあります。

----- １つめのファイル(Formのクラス) -----
Public Class Form8
　Private Sub Button1_Click(～) Handles Button1.Click
　　Dim c As New check1
　　c.test()
　End Sub
End Class

Public Class check1
　Inherits Class1
　Public Overrides Sub test()
　　Trace.WriteLine("Overrides")
　　'label1.text = "動作OK"　　　←こんな感じに実装したい
　End Sub
End Class

----- ２つめのファイル(クラス) -----
Public MustInherit Class Class1
　Public MustOverride Sub test()
End Class

フォームクラスの外で「label1.text = ""」のように書いてもアクセス出来ないのはわかります。
フォームクラスのファイル中にもうひとつクラスを書いてしまっているのが悪いのもわかります。

この辺りをどのように実装したらよいでしょうか。
わかりづらくて申し訳ありません。
ご指導よろしくお願い致します。

bybalsendercase · Accepted Answer

おはようございます

ご報告ありがとうございます。

頑張りましたね～

これで完成でしょうか？
kutsusuzuさんがぜ～んぶご自分で考えて、ぜ～んぶご自分で書いてしまいましたね。
スゴ～い

＞継承したクラスをフォーム内に入れてみました。
クラスを入れ子にしたかったんんですね。

蛇足です。

1番目
Form8.Label1.text = "動作OK"　
と記入する方法と

2番目
Dim f As New Form8  '新しいオブジェクトを作成する
f.Label1.Text = "動作OK" '新しいオブジェクトのLabel1に"動作OK"を記入する
f.Show()            '新しいオブジェクトを表示

上記のように書く方法の2種類があります、VB.NETから始めた人はFormもクラスとして（Class Form8と書かれているため）扱うため、2番目のようにクラスを呼び出す方法を使いますが、VB6から移行した人には、1番目の方法を使うようです。
私は、ＶＢははじめて1年そこそこですので昔のことはわかりませんが、2番目の方法を使っています。

また、1番目の方法では内部で、Newしているらしいですが、フォームの表示の仕方から内部処理では何か特別な方法を使っているように感じます。

＞こういう書き方をしていいものか…。したことがないので分かりません。
クラスを入れ子にすることや、Form8.Label1.text = "動作OK"　のように書くことはkutsusuzuさんの目的の動作が達成されれば全く問題がないと思います。

あとは、他の方が良い回答をしてくださるのを期待しましょう。
（やっぱり他力本願です）

bybalsendercase · Answer

こんばんは

すいません、読解力不足でkutsusuzuさんの質問の内容を理解しておりません。
単純なサンプルを掲載しますので、どこがどのようにkutsusuzuさんの目的と違うのか教えてください。

単純にlabelをクラスとして継承しているだけです。

Public Class splabel
    Inherits Label
    Public Sub addtxt(ByVal txt As String)
        Me.Text &= txt & "動作OK"
    End Sub
End Class

Public Class Form1
    Private Sub f1() Handles MyBase.Shown
        Button1.Text = "表示"
        Splabel1.Text = ""
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim st As String
        st = TextBox1.Text
        Splabel1.addtxt(st)
    End Sub
End Class

お手数おかけします、いろいろ詰めていくうちに、他の方が良い回答をしてくださると思います。（完全に他力本願）

bybalsendercase · Answer

すいません

1箇所変なものを付けてしまいました。
Me.Text &= txt & "動作OK"→ Me.Text = txt & "動作OK"

私の回答は役に立ちませんが一応訂正しておきます。

ご迷惑おかけしました。

bybalsendercase · Answer

お返事有難うございます、画像も有難う御座います。（綺麗ですよ）

他力本願作戦でしたが、どなたも回答してくださらないので、もう1度投稿させて頂きました。

＞申し訳ありません。完全に私の文章力の無さが原因です。
それはないと思います。以前にも質問の内容がわからず、他の方が回答してくださった後「そ～ゆ～ことね」見たいな事がたびたびありました。

＞Formの中からClass1の「あるメソッド」を置き換える。
ごめんなさい、”「あるメソッド」を置き換える。”の意味がわかりません。
Formの中からClass1の「あるメソッド」を呼び出すという意味でいいでしょうか？

＞置き換え後のメソッドからフォーム上のコントロールにアクセスしたい。
この意味は
お礼欄の「このMethod3'からForm上に置いたコントロールにアクセスしたいです。」と同じ意味でいいですか？

＞泣きたいです。
がんばって～

＞２つのファイルに３つのクラス（そもそもここが間違ってる？）
いいと思いますよ、私はインテリセンスを表示したいだけのクラスはいつも、どこかのクラスの下に書いてます、小さいクラスを全部別ファイルにすると、収集がつかなくなりますね。

継承でMustInheritは必須ですか？

メソッド名は全てtest（同じ名前）にする必要がありますか？
Public Overrides Sub test()
Public MustOverride Sub test()
上記は、同一名のメソッドですね。

画像のMethod1とMethod2は無視でも構いませんか？

Method3'からForm8のラベルとボタンの表示を変更する、単純なサンプルを掲載しますので、できる範囲で結構ですので、kutsusuzuさんの目的の動作とどのように違うのか、教えて頂けるとうれしいです。
このようなやり取りをしているうちに、他の方が良い回答をしてくださると思います。

Public Class Form1
    'シャットダウンモードを「最後のフォームが閉じるとき」にしてあります
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
        Dim f8 As New Form8
        f8.Show()
        Me.Close()
    End Sub
End Class

Public Class Form8
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim c As New check1
        c.test()
        Me.Close()
    End Sub
End Class
Public Class check1
    Inherits Class1
    Public Sub test()
        '継承の部分は何も機能の追加等はしてません
        '基底クラスのメソッドを呼び出しているだけです
        MyBase.Method3()
    End Sub
End Class
Public Class Class1
    Public Sub Method1()
        '何も書いてません。
    End Sub
    Public Sub Method2()
        '何も書いてません。
    End Sub
    Public Sub Method3()
        Dim f8 As New Form8
        f8.Label1.Text = "動作OK"
        f8.Button1.Text = "表示"
        f8.Show()
    End Sub
End Class

bybalsendercase · Answer

すいません

またやっちゃいました。

オーバーライドするのを忘れました。

Class Form8側を変更してください。

Public Class Form8
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim c As New check1
        c.Method3()
        Me.Close()
    End Sub
End Class
Public Class check1
    Inherits Class1
    Public Overrides Sub Method3()
        '継承の部分は何も機能の追加等はしてません
        '基底クラスのメソッドを呼び出しているだけです
        MyBase.Method3()
    End Sub
End Class
Public Class Class1
    Public Sub Method1()
        '何も書いてません。
    End Sub
    Public Sub Method2()
        '何も書いてません。
    End Sub
    Public Overridable Sub Method3()
        Dim f8 As New Form8
        f8.Label1.Text = "動作OK"
        f8.Button1.Text = "表示"
        f8.Show()
    End Sub
End Class

bybalsendercase · Answer

＞お気遣いありがとうございます。

理解しづらいサンプルでした。
ごめんなさい。

継承後のメソッドでコントロールにアクセスする方法

こんばんは

この回答への補足

すいません

お返事有難うございます、画像も有難う御座います。

この回答への補足

すいません

この回答への補足

＞お気遣いありがとうございます。

この回答への補足

おはようございます

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング