Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Auf Daten eines Forms zugreifen
Autor: Martin01
Datum: 23.01.03 16:01
'Form1 und Form2 sind WIN-NET-Forms 'Form1 ist das Startobjekt ' 'Bereich ' Public Form ' 'muß in beiden Forms eingefügt werden. 'Wichtig: Der Formname muß da drin 4x angegeben werden. 'Mit Me oder so kann ich in Bereich ' Public Form 'leider nicht setzen. 'In der großen NETten Hilfe habe ich da noch nichts anderes gefunden. 'Bereich ' Public Form ' sind nun Startobjekt und 2. Form gleich. ' ' 'Nur Control(s) von Anderen erreichbar machen, 'dann die Control Eigenschaft ' Modifiers = Public 'setzen. Ich finde das viel Einfacher als Bereich ' Public Form '. ' '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 'als beispiel nun form1 und form2: 'viel spass beim ausprobieren und weiteren anpassen. Public Class Form1 Inherits System.Windows.Forms.Form '#Region ' Vom Windows Form Designer generierter Code ' ... #Region " Public Form " Public Shared m_PublicForm As Form1 Public Shared Property PublicForm() As Form1 Get If m_PublicForm Is Nothing _ OrElse m_PublicForm.IsDisposed Then m_PublicForm = New Form1() End If Return m_PublicForm End Get Set(ByVal Value As Form1) m_PublicForm = Value End Set End Property #End Region 'Auch auf Variablen kann von 'Anderen' auf Mich zugegreiffen können Public strTest As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Damit auch 'Andere' auf Mich zugreifen können Me.PublicForm = Me End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Form2 As New Form2() 'Das machen Form2 beim Erstellen der Form2 schon -> 'Bereich Public Form' 'Z.B. Text von TextBox1.text übergeben Form2.PublicForm.TextBox1.Text = Me.TextBox1.Text 'Form2.PublicForm.Show 'oder Form2.PublicForm.ShowDialog() 'Aktueller Text von StrText zeigen MsgBox(strTest, , "StrTest:") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'Mich schließen Me.Close() End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Me.PublicForm = Nothing End Sub End Class '- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Public Class Form2 Inherits System.Windows.Forms.Form '#Region ' Vom Windows Form Designer generierter Code ' ... #Region " Public Form " Public Shared m_PublicForm As Form2 Public Shared Property PublicForm() As Form2 Get If m_PublicForm Is Nothing _ OrElse m_PublicForm.IsDisposed Then m_PublicForm = New Form2() End If Return m_PublicForm End Get Set(ByVal Value As Form2) m_PublicForm = Value End Set End Property #End Region Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Text von Form2.TextBox1 nach Form1.TextBox1 übergeben Form1.PublicForm.TextBox1.Text = Me.TextBox1.Text End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'Text von Form2.TextBox1 nach Form1.StrTest (die Variable) übergeben Form1.PublicForm.strTest = Me.TextBox1.Text & " | " & Now.Today.ToString 'Mich schließen Me.Close() End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing Me.PublicForm = Nothing End Sub End Class

Auf Daten eines Forms zugreifen	863	Lupin	22.01.03 15:00
Re: Auf Daten eines Forms zugreifen	587	landx	22.01.03 15:06
Re: Auf Daten eines Forms zugreifen	97	Martin01	22.01.03 17:59
Re: Auf Daten eines Forms zugreifen	578	Lupin	22.01.03 22:29
Re: Auf Daten eines Forms zugreifen	616	Pite	22.01.03 22:36
Re: Auf Daten eines Forms zugreifen	610	Lupin	22.01.03 23:04
Re: Auf Daten eines Forms zugreifen	623	landx	22.01.03 23:08
Re: Auf Daten eines Forms zugreifen	625	Pite	22.01.03 23:21
Re: Auf Daten eines Forms zugreifen	117	Martin01	23.01.03 01:22
Re: Auf Daten eines Forms zugreifen	611	Pite	23.01.03 12:35
Re: Auf Daten eines Forms zugreifen	613	DaveS	23.01.03 13:14
Re: Auf Daten eines Forms zugreifen	604	landx	23.01.03 13:21
Re: Auf Daten eines Forms zugreifen	584	Pite	23.01.03 13:38
Re: Auf Daten eines Forms zugreifen	111	Martin01	23.01.03 16:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen