vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Auf Daten eines Forms zugreifen 
Autor: Martin01
Datum: 23.01.03 01:22

'Wenn Modifiers = Public zu einfach ist
 
'dann können Win-Forms auch so Public gemacht werden:

'In Form1, meine Startobjekt:

'Nach
' Vom Windows Form Designer generierter Code '

Private 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


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Hier Me "Freigeben"
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 '<- Nein, das brauchen wir mit Public Shared nicht

'evt.: Text von Me.Text1.Text nach Form2.Text1 übergeben
'Form2.GlobalForm.TextBox1.Text = Me.TextBox1.Text

Form2.GlobalForm.ShowDialog() 'Zeigen und Warten bis zum Form2 Schliessen
End Sub



'- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'In Form2:

'Nach
' Vom Windows Form Designer generierter Code '


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



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Text zurück geben
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
'Beispiel: Form2 schließen:

'Evt. Text zurückgen
'Form1.PublicForm.TextBox1.Text = Me.TextBox1.Text

Me.PublicForm = Nothing
Me.Close()
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Auf Daten eines Forms zugreifen871Lupin22.01.03 15:00
Re: Auf Daten eines Forms zugreifen592landx22.01.03 15:06
Re: Auf Daten eines Forms zugreifen101Martin0122.01.03 17:59
Re: Auf Daten eines Forms zugreifen585Lupin22.01.03 22:29
Re: Auf Daten eines Forms zugreifen621Pite22.01.03 22:36
Re: Auf Daten eines Forms zugreifen617Lupin22.01.03 23:04
Re: Auf Daten eines Forms zugreifen628landx22.01.03 23:08
Re: Auf Daten eines Forms zugreifen630Pite22.01.03 23:21
Re: Auf Daten eines Forms zugreifen128Martin0123.01.03 01:22
Re: Auf Daten eines Forms zugreifen617Pite23.01.03 12:35
Re: Auf Daten eines Forms zugreifen618ModeratorDaveS23.01.03 13:14
Re: Auf Daten eines Forms zugreifen610landx23.01.03 13:21
Re: Auf Daten eines Forms zugreifen588Pite23.01.03 13:38
Re: Auf Daten eines Forms zugreifen115Martin0123.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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel