Wie kann ich denn feststellen ob ein Fenster hinter meinem geschlossen wurde?
Oder überhaupt eine Fensteraktion von "fremder" Seite aus stattgefunden hat.
Danach kann ich vielleicht meine Form mit Refresh eventuell nochmal aufrufen. Vielleicht klappts so.
Hier nochmal den fehlenden Code. Vielleicht fällt dir noch was ein.
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu
' bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer
' erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents lblVersion As System.Windows.Forms.Label
Friend WithEvents lblText As System.Windows.Forms.Label
Friend WithEvents lblRegisttriert_auf As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New _
System.Resources.ResourceManager(GetType(Programminfo))
Me.Button1 = New System.Windows.Forms.Button
Me.lblVersion = New System.Windows.Forms.Label
Me.lblText = New System.Windows.Forms.Label
Me.lblRegisttriert_auf = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(472, 416)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(136, 40)
Me.Button1.TabIndex = 0
Me.Button1.Text = "zum Programm"
'
'lblVersion
'
Me.lblVersion.BackColor = System.Drawing.Color.Transparent
Me.lblVersion.Font = New System.Drawing.Font("Arial", 9.75!, _
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, _
CType(0, Byte))
Me.lblVersion.Location = New System.Drawing.Point(272, 264)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(96, 24)
Me.lblVersion.TabIndex = 1
'
'lblText
'
Me.lblText.BackColor = System.Drawing.Color.Transparent
Me.lblText.Font = New System.Drawing.Font("Arial", 8.25!, _
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, _
CType(0, Byte))
Me.lblText.Location = New System.Drawing.Point(24, 352)
Me.lblText.Name = "lblText"
Me.lblText.Size = New System.Drawing.Size(160, 104)
Me.lblText.TabIndex = 2
'
'lblRegisttriert_auf
'
Me.lblRegisttriert_auf.BackColor = System.Drawing.Color.Transparent
Me.lblRegisttriert_auf.Font = New System.Drawing.Font("Arial", 8.25!, _
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, _
CType(0, Byte))
Me.lblRegisttriert_auf.Location = New System.Drawing.Point(296, 360)
Me.lblRegisttriert_auf.Name = "lblRegisttriert_auf"
Me.lblRegisttriert_auf.Size = New System.Drawing.Size(160, 96)
Me.lblRegisttriert_auf.TabIndex = 3
Me.lblRegisttriert_auf.TextAlign = _
System.Drawing.ContentAlignment.MiddleCenter
'
'Programminfo
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15)
Me.BackColor = System.Drawing.SystemColors.Control
Me.BackgroundImage = CType(resources.GetObject( _
"$this.BackgroundImage"), System.Drawing.Image)
Me.ClientSize = New System.Drawing.Size(640, 480)
Me.Controls.Add(Me.lblRegisttriert_auf)
Me.Controls.Add(Me.lblText)
Me.Controls.Add(Me.lblVersion)
Me.Controls.Add(Me.Button1)
Me.Font = New System.Drawing.Font("Arial", 9.75!, _
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, _
CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "Programminfo"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Programminfo"
Me.ResumeLayout(False)
End Sub
#End Region Hänk
(Wer früh aufsteht hat mehr vom Tag) |