Form1からForm2への受け渡し への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 RJ  (社会人) 投稿日時 2016/10/6 16:17:23
単純にform2で参照したら

できましたｗ

masaX様のヒントのおかげでできました

ありがとうございました！！
0
投稿者 RJ  (社会人) 投稿日時 2016/10/6 16:12:11
masaX様　ありがとうございます

早速やってみましたが

Select Case e.Button
            '右クリックで-
            Case MouseButtons.Right
                seisou.Label2.Text = CStr(Val(seisou.Label2.Text) - 1)
                seisou.TextBox1.Text = CStr(Val(seisou.TextBox1.Text) - 1)
                '左クリックで+
            Case MouseButtons.Left
                seisou.Label2.Text = CStr(Val(seisou.Label2.Text) + 1)
                seisou.TextBox1.Text = CStr(Val(seisou.TextBox1.Text) + 1)

        End Select

Label2.textなど波線になります

これは単純のseisouじゃなく
Form２で普通にやればいいんですかね


0
投稿者 masaX  (社会人) 投稿日時 2016/10/6 15:41:36
例えば、Form1のButton1でForm2を起動するとして
Public Class Form1

    Dim seisou As Form2 'seisouを    Form2として宣言

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        seisou = New Form2　'seisouを初期化
        seisou.Show()　'Form2を起動
    End Sub

    Private Sub Button3_MouseDown(sender As Object, e As MouseEventArgs) Handles Button3.MouseDown
        Select Case e.Button
            Case MouseButtons.Right
                '右クリックで-
                seisou.Label10.Text = CStr(Val(seisou.Label10.Text) - 1)
                seisou.TextBox1.Text = CStr(Val(seisou.TextBox1.Text) - 1)
                  '左クリックで+
            Case MouseButtons.Left
                seisou.Label10.Text = CStr(Val(seisou.Label10.Text) + 1)
                seisou.TextBox1.Text = CStr(Val(seisou.TextBox1.Text) + 1)
        End Select
    End Sub

End Class

こんな感じでどうですか。
0
投稿者 RJ  (社会人) 投稿日時 2016/10/6 14:14:14
ご質問です

Ｆｏｒｍ１に　ボタンを設置し
 ボタンを押すと　Ｆｏｒｍ２の数値が変わるようにしたいのですができません

’Ｆｏｒｍ１のボタン
’seisouがForm2

Private Sub Button3_MouseDown(sender As Object, e As MouseEventArgs) Handles Button3.MouseDown
         Select Case e.Button
             Case MouseButtons.Right
                 '右クリックで-
                seisou.Label10.Text = CStr(Val(seisou.Label10.Text) - 1)
                 seisou.TextBox1.Text = CStr(Val(seisou.TextBox1.Text) - 1)
                 '左クリックで+
             Case MouseButtons.Left
                 seisou.Label10.Text = CStr(Val(seisou.Label10.Text) + 1)
                 seisou.TextBox1.Text = CStr(Val(seisou.TextBox1.Text) + 1)


ラベルテキストが
左クリックで+　右クリックで-にしています

Ｆｏｒｍ２からＦｏｒｍ１はできるんですが
親フォームからだとどのようにすればよろしいでしょうか？？
0