.NETで外部フォームで変数の呼び出し。 (ID:106217)

名前

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

本文 >何をしたんでしょうか？ >私には何もしてないように見えますが？？ > >インスタンスを作成するというのは > listDialog = New form2() >という事です。 すいません、完全に意味がわかっていませんでした（；； しっかし直してなんとか無事に思い通りの動作ができました＾＾ これだけのことに随分と時間をかけてしまい非常に申し訳なかったです。 最後まで見放さずにご指導してくださったnanashiさんに心から感謝します＾＾ 以下、参考までに最終のコードを記載しておきます。 ===================================================================== (form1) Public Class Form1 Inherits System.Windows.Forms.Form [WindowsFormDesginerCode] Public listDialog As Form2 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load listDialog = New Form2() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click listDialog = New Form2() listDialog.ShowDialog() Me.DialogResult = DialogResult.OK End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 'listDialog.Clear() listDialog.Dispose() listDialog = Nothing End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated Dim Code As Integer Code = listDialog.TCode TextBox1.Text = Code End Sub End Class --------------------------------------------------------------------- (form2) Public Class Form2 Inherits System.Windows.Forms.Form [WindowsFormDesignerCode] Public TCode As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TCode = TextBox1.Text 'TextBox1に入力された値をTCodeに格納 Me.DialogResult = DialogResult.OK 'form2を閉じる。 End Sub End Class =====================================================================