| |
| In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.
Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden! | Fragen zu Tipps & Tricks und Workshops im vb@rchivTipp 2496: Mit einem Klick alle offenen Fenster schließen | | | Autor: Manfred X | Tipp anzeigenDatum: 22.05.19 17:26 |
| Hallo!
Falls sich jemand für die Net-Konzepte zu diesem Thema interessiert .....
(frmXXXX ist ein Windows.Forms.Formular)
Public Class frmXXXX
'Interne Demoform
Friend Class form1
Inherits System.Windows.Forms.Form
Private Sub form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.Size = New Size(350, 200)
Me.ShowInTaskbar = False
Me.StartPosition = FormStartPosition.Manual
End Sub
End Class
'Buttons zum Erstellen und Schließen von untergeordneten Formularen
Dim WithEvents btnOpen As New Button With
{.Parent = Me, .Left = 10, .Width = 150, .Text = "Open"}
Dim WithEvents btnClose As New Button With
{.Parent = Me, .Left = 10, .Width = 150, .Text = "Close", .Top = 50}
'Liste der unterg. Formulare
Dim frmList As New List(Of form1)
Private Sub btnOpen_Click(sender As Object, _
e As EventArgs) Handles btnOpen.Click
'Neues Formular an Liste anhängen
frmList.Add(New form1)
Dim i As Integer = frmList.Count - 1
With frmList(i)
AddHandler .Closed, AddressOf SubFormClosed
.Show()
If i = 0 Then
.Location = New Point(Me.Left + 200, Me.Top + 30)
Else
.Location = _
New Point(frmList(i - 1).Left + 30, frmList(i - 1).Top + 30)
End If
.Text = "Listindex: " & i.ToString & " beim Erstellen"
.Owner = Me
End With
End Sub
Private Sub SubFormClosed(sender As Object, e As EventArgs)
'Referenz auf geschlossenes Formular aus der Liste entfernen
frmList.Remove(DirectCast(sender, form1))
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles _
btnClose.Click
'alle aktuell gelisteten Formulare schließen
For i As Integer = frmList.Count - 1 To 0 Step -1
frmList(i).Close()
Next i
End Sub
End Class | |
| Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
TOP! Unser Nr. 1
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 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
|
|