[.NET]モジュールからフォームを参照する (ID:119561)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ウーンと >>TTさんの例は Module Module1 Public Sub TextClear(ByVal F As Object) Dim F1 As Form1 Dim F2 As Form2 If TypeOf (F) Is Form1 Then F1 = DirectCast(F, Form1) F1.TextBox1.Text = "" ElseIf TypeOf (F) Is Form2 Then F2 = DirectCast(F, Form2) F2.TextBox1.Text = "" End If End Sub End Module TextClear(Me) こうかな。