VB2008 Formを関数の引数にする

質問

お世話になります

VB2008で開発をしています

Formを２つ作成し
どちらも同じ名称のテキストBOX（TextBox1）コントロールを貼り付けています

Publicの関数でそれぞれのFormに値をセットしたいのですが
「'TextBox1' は 'System.Windows.Forms.Form' のメンバではありません。」
とエラーが発生してしまいます

初歩的な質問で申し訳ありませんが
ご助言頂けると助かります
宜しくお願い致します

ソース：

---------------------------------------------------
Module Module1

Public Sub Main()
Dim Form1 As New Form1
Dim Form2 As New Form2

SetValue(Form1)
SetValue(form2)
End Sub

Private Sub SetValue(ByVal obj As Form)
obj.TextBox1 = "TEST"
End Sub

End Module
---------------------------------------------------

回答No.5

ichhabehunger · ベストアンサー

「VB6.0のように

Private Sub SetValue(ByVal Obj As object)
　Obj.TextBox1 = "TEST"
End Sub

という使い方は無理そうですか..」
無理だと思います。
VB6.0は持っていませんが、そもそもそのような書き方が
許されることが不思議です。
変数「Obj」が何かも分からずに（すなわち TextBox1 があるかどうかもわからずに）
TextBox に代入ができるとは、言語そのものの欠陥だと思います。

「「CType(）で、"Form1"に変換する」
という処理なしでも各TextBox1への値セットができる書き方は
あるのでしょうか...」
だからないと思います。Form1型の変数にキャストするしかありません。

「同じようなＦｏｒｍが今後増えていくことが予想されておりまして
それらを必ず共通関数に通すことを考えると
分岐以外で”Form1”等の固有の名称は使わないようにしたいと思ってます」
素直にコーディングすべきでしょう。だからその考えはお勧めできません。

お礼

ご回答ありがとうございます

あきらめが付きました f(^ ^;

教えていただいた方法で分岐し、それぞれ処理を行うよう致します
最後までお付き合い頂きましてありがとうございましたm(_ _)m

回答No.4

ichhabehunger

こんな感じでいけます。

Public Class Form3

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyForm1 As New Form1()
Dim MyForm2 As New Form2()

SetValue(MyForm1)
SetValue(MyForm2)
MyForm1.Show()
MyForm2.Show()
End Sub

Private Sub SetValue(ByVal form As Object)
If form.GetType().Name = "Form1" Then
With CType(form, Form1)
.TextBox1.Text = "TEST"
.Label1.Text = "This is Form1."
End With
Else
With CType(form, Form2)
.TextBox1.Text = "TEST"
.Button1.Text = "押してね！"
End With
End If
End Sub
End Class

補足

ありがとうございます
GetType().Nameというのがあるのですね
勉強になります
分岐の際にはこちらを使わせて頂きます

で...やはりVB6.0のように

Private Sub SetValue(ByVal Obj As object)
　Obj.TextBox1 = "TEST"
End Sub

という使い方は無理そうですか..

「CType(）で、"Form1"に変換する」
という処理なしでも各TextBox1への値セットができる書き方は
あるのでしょうか...

同じようなＦｏｒｍが今後増えていくことが予想されておりまして
それらを必ず共通関数に通すことを考えると
分岐以外で”Form1”等の固有の名称は使わないようにしたいと思ってます

Private Sub SetValue(ByVal Obj As object)
　obj.TextBox1="TEST" 'Form1の場合もForm2の場合も処理
　If form.GetType().Name = "Form1" Then
　　’Form1の時だけ処理
　End IF
End Sub

というのが理想です...

度々すいません
宜しくお願い致します

回答No.3

ichhabehunger

これならどうです？

Public Class Form3

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyForm1 As New Form1()
Dim MyForm2 As New Form2()

SetValue(MyForm1)
SetValue(MyForm2)
MyForm1.Show()
MyForm2.Show()
End Sub

Private Sub SetValue(ByVal form As Object)
If form.GetType().Name = "Form1" Then
CType(form, Form1).TextBox1.Text = "TEST"
Else
CType(form, Form2).TextBox1.Text = "TEST"
End If
End Sub
End Class

回答No.2

ichhabehunger

Formを２つ開くときに同じひな形「Form1」で別々の２つの
フォームを開く私のコードを薦めます。

補足

質問の書き方が悪く申し訳ありません

Form１とForm２は全く同じコントロールが張り付いているわけではなく
一部だけ同じという状態です

Form１のコントロール：
　TextBox1
　TextBox2
　ListView1～3

Form2のコントロール：
　TextBox1
　CommandButton1～10

という感じです...
TextBox1以外のコントロールも関数内で使用したいので
（”IF Obj.Name="Form1" Then”と分岐して..）
Form1の使いまわしは出来なさそうです

VB6.0だと共通関数の引数を”SetValue(obj As Object)”として
実現できたのですが...
vb2008では上手く行かず...です

度々すいません
宜しくお願い致します

回答No.1

ichhabehunger

こんばんは。

これなら動きますよ。
なお、あらかじめForm3とForm1はデザイナを使って作っておきます。

Public Class Form3

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyForm1 As New Form1()
Dim MyForm2 As New Form1()

SetValue(MyForm1)
SetValue(MyForm2)
MyForm1.Show()
MyForm2.Show()
End Sub

Private Sub SetValue(ByVal form As Form1)
form.TextBox1.Text = "TEST"
End Sub
End Class

補足

ご回答有難う御座います

しかしこれですと、Form1が二つ開いてしまいました

共通関数を使用してForm2のTextBoxコントロールにデータを入れ
表示させるにはどうしたら良いのでしょうか..

度々すいませんが宜しくお願い致します