/Visual Studio 2008/VBWinFormPassValueBetweenForms/Form1.vb
Visual Basic | 48 lines | 17 code | 4 blank | 27 comment | 0 complexity | e2bb224334d01204bdce46d0a9d324b3 MD5 | raw file
- '************************************* Module Header **************************************\
- ' Module Name: Form1.vb
- ' Project: VBWinFormPassValueBetweenForms
- ' Copyright (c) Microsoft Corporation.
- '
- ' This sample demonstrates how to pass value between forms.
- '
- ' There're two common ways to pass value between forms:
- '
- ' 1. Use a property.
- ' Create a public property on the target form class, then we can pass value to the target
- ' form by setting value for the property.
- '
- ' 2. Use a method.
- ' Create a public method on the target form class, then we can pass value to the target
- ' form by passing the value as parameter to the method.
- '
- ' This source is subject to the Microsoft Public License.
- ' See http://www.microsoft.com/opensource/licenses.mspx#Ms-PL.
- ' All other rights reserved.
- '
- ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND,
- ' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
- ' WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
- '******************************************************************************************/
-
- Public Class Form1
- Inherits Form
-
- Public Sub New()
- MyBase.New()
- InitializeComponent()
- End Sub
-
- Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
- ' Method 1 - Use A Property
- Dim f2 As Form2 = New Form2
- f2.ValueToPassBetweenForms = Me.TextBox1.Text
- f2.ShowDialog()
- End Sub
-
- Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
- ' Method 2 - Use A Method
- Dim f2 As Form2 = New Form2
- f2.SetValueFromAnotherForm(Me.TextBox1.Text)
- f2.ShowDialog()
- End Sub
- End Class