Kann eine Anwendung in VB.NET 2003 mehr als ein MDI-Formular besitzen?

Question

Kann eine Anwendung in VB.NET 2003 mehr als ein MDI-Formular besitzen?

Antwort

Verwandte Fragen

Wie greife ich in VB.NET 2003 von einem MDI-Formular auf ein Steuerelement zu?

Wie kann man in VB.NET 2003 von einem Child-Formular aus einen Wert aus der MDI-Form abfragen?

Wie kann ich in VB.NET 2003 einen Screenshot eines Child-Forms als BackgroundImage im MDI-Parent anzeigen?

Schließt in VB.NET 2003 bei Shortcut auch das MDI-Formular mit If Not Me.ActiveMdiChild Is Nothing Then Me.ActiveMdiChild.Close()?

Warum schließt in VB.NET 2003 das Strg+W-Shortcut nicht nur das MDI-Child, sondern auch die MDI-Form selbst?

Wie greift man in VB.NET 2003 aus einer Child-Form auf den MDI-Container zu?

Wie kann ich in VB.NET 2003 aus einer Ownerform Daten in einer geöffneten Ownedform ändern?

Wie kann ich in VB.NET ein JPG-Bild beim Umwandeln in ein GIF-Bild gleichzeitig verkleinern oder vergrößern?

Wie kann ich in VB.NET 2003 ein JPG-Bild in ein GIF-Bild umwandeln?

Kann ich in VB.NET 2003 mit Val("ABC02") den im String enthaltenen Zahlenwert "2" extrahieren?

Accepted Answer

In VB.NET 2003 kann eine Anwendung grundsätzlich mehrere MDI-Formulare (also mehrere Formulare, die jeweils als MDI-Container fungieren) besitzen. Allerdings kann **immer nur ein MDI-Container aktiv sein**, d.h. ein Kindformular kann immer nur zu einem MDI-Container gehören. Du kannst also mehrere MDI-Formulare (z.B. `MDIForm1`, `MDIForm2`) in deinem Projekt anlegen und jeweils als `IsMdiContainer = True` setzen. Beim Start deiner Anwendung entscheidest du, welches MDI-Formular angezeigt wird. Es ist aber **nicht möglich**, dass ein Kindformular gleichzeitig in mehreren MDI-Containern angezeigt wird. Zusammengefasst: - **Mehrere MDI-Formulare im Projekt:** Ja, das ist möglich. - **Mehrere MDI-Formulare gleichzeitig geöffnet:** Ja, das ist möglich. - **Ein Kindformular in mehreren MDI-Containern gleichzeitig:** Nein, das ist nicht möglich. Weitere Infos findest du z.B. in der offiziellen Microsoft-Dokumentation zu [MDI-Formularen](https://learn.microsoft.com/de-de/dotnet/desktop/winforms/advanced/multiple-document-interface-mdi-applications?view=netframeworkdesktop-4.8).

Accepted Answer

Um in Visual Basic .NET 2003 (VB.NET 2003) innerhalb einer MDI-Anwendung (Multiple Document Interface) von einem MDI-Parent-Formular (Hauptfenster) auf ein Steuerelement (z. B. einen Button, also &bdq... [mehr]

Accepted Answer

Um in Visual Basic .NET 2003 (VB.NET 2003) innerhalb einer MDI-Anwendung (Multiple Document Interface) von einem MDI-Parent-Formular (Hauptfenster) auf ein Steuerelement (z. B. einen Button, also „Schaltzug“) eines MDI-Child-Formulars (Unterfenster) zuzugreifen, gehst du wie folgt vor: **Beispiel: Zugriff vom MDI-Parent auf einen Button im aktiven MDI-Child** Angenommen, das MDI-Child-Formular heißt `ChildForm` und enthält einen Button namens `Button1`. 1. **Typprüfung und Zugriff:** ```vb ' Im MDI-Parent-Formular: Dim aktivesChild As Form = Me.ActiveMdiChild If aktivesChild IsNot Nothing AndAlso TypeOf aktivesChild Is ChildForm Then Dim child As ChildForm = CType(aktivesChild, ChildForm) child.Button1.Text = "Neuer Text" ' Oder andere Eigenschaften/Methoden End If ``` 2. **Zugriff auf ein bestimmtes MDI-Child:** ```vb For Each f As Form In Me.MdiChildren If TypeOf f Is ChildForm Then Dim child As ChildForm = CType(f, ChildForm) child.Button1.Enabled = False End If Next ``` **Wichtige Hinweise:** - Das Steuerelement (z. B. `Button1`) muss im `ChildForm` als `Public` oder mindestens `Friend` deklariert sein, damit du von außen darauf zugreifen kannst. - Beispiel für die Deklaration im Child-Formular: ```vb Public WithEvents Button1 As System.Windows.Forms.Button ``` **Zusammenfassung:** Du greifst über die `MdiChildren`-Eigenschaft oder `ActiveMdiChild` auf das gewünschte Child-Form zu, prüfst den Typ und kannst dann auf die Steuerelemente zugreifen, sofern sie entsprechend deklariert sind. Weitere Infos zu MDI in VB.NET findest du z. B. bei [Microsoft Learn](https://learn.microsoft.com/de-de/dotnet/desktop/winforms/advanced/multiple-document-interface-mdi-applications?view=netframeworkdesktop-4.8).

Accepted Answer

Um in VB.NET 2003 von einem MDI-Child-Formular auf einen Wert der MDI-Parent-Form zuzugreifen, gehst du wie folgt vor: 1. **Typisieren des Parent-Formulars:** Das MDI-Parent-Formular muss eine &... [mehr]

Accepted Answer

Um in VB.NET 2003 von einem MDI-Child-Formular auf einen Wert der MDI-Parent-Form zuzugreifen, gehst du wie folgt vor: 1. **Typisieren des Parent-Formulars:** Das MDI-Parent-Formular muss eine öffentliche Eigenschaft oder Methode bereitstellen, auf die das Child-Formular zugreifen kann. 2. **Zugriff vom Child-Formular:** Im Child-Formular kannst du über die `Me.MdiParent`-Eigenschaft auf das Parent-Formular zugreifen. Da `MdiParent` vom Typ `Form` ist, musst du es auf den tatsächlichen Typ deines MDI-Parent-Formulars casten. **Beispiel:** Angenommen, dein MDI-Parent-Formular heißt `MainForm` und hat eine öffentliche Eigenschaft: ```vb.net ' Im MDI-Parent (MainForm) Public Property MeinWert As String ``` Im Child-Formular kannst du dann so darauf zugreifen: ```vb.net ' Im MDI-Child Dim parent As MainForm = CType(Me.MdiParent, MainForm) Dim wert As String = parent.MeinWert ``` **Wichtige Hinweise:** - Stelle sicher, dass die Eigenschaft oder Methode im Parent-Formular `Public` ist. - Prüfe ggf. mit `If Not Me.MdiParent Is Nothing Then ...`, ob das Parent-Formular gesetzt ist, bevor du darauf zugreifst. **Zusammengefasst:** Im Child-Formular: ```vb.net Dim parent As MainForm = CType(Me.MdiParent, MainForm) Dim wert As String = parent.MeinWert ``` So kannst du Werte oder Methoden des MDI-Parent-Formulars aus dem Child-Formular heraus nutzen.

Accepted Answer

Um in VB.NET 2003 einen Screenshot eines MDI-Child-Forms zu erstellen und diesen als `BackgroundImage` im MDI-Parent zu verwenden, kannst du wie folgt vorgehen: 1. **Screenshot des Child-Forms erstel... [mehr]

Accepted Answer

Um in VB.NET 2003 einen Screenshot eines MDI-Child-Forms zu erstellen und diesen als `BackgroundImage` im MDI-Parent zu verwenden, kannst du wie folgt vorgehen: 1. **Screenshot des Child-Forms erstellen:** Du kannst das Child-Form in ein Bitmap zeichnen lassen, indem du die `DrawToBitmap`-Methode verwendest. In .NET 1.1 (VB.NET 2003) gibt es diese Methode allerdings noch nicht direkt, daher musst du das Child-Form mit `BitBlt` aus der WinAPI abgreifen. 2. **Bitmap als BackgroundImage setzen:** Das erzeugte Bitmap kannst du dann dem `BackgroundImage`-Eigenschaft des MDI-Parents zuweisen. Hier ein Beispiel, wie du das machen kannst: ```vbnet ' API-Deklarationen Private Declare Auto Function BitBlt Lib "gdi32.dll" ( _ ByVal hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, _ ByVal nWidth As Integer, ByVal nHeight As Integer, _ ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, _ ByVal dwRop As Integer) As Boolean Private Const SRCCOPY As Integer = &HCC0020 ' Screenshot-Funktion Public Function GetFormScreenshot(frm As Form) As Bitmap Dim bmp As New Bitmap(frm.Width, frm.Height) Dim g As Graphics = Graphics.FromImage(bmp) Dim hdcDest As IntPtr = g.GetHdc() Dim hdcSrc As IntPtr = frm.CreateGraphics().GetHdc() BitBlt(hdcDest, 0, 0, frm.Width, frm.Height, hdcSrc, 0, 0, SRCCOPY) g.ReleaseHdc(hdcDest) frm.CreateGraphics().ReleaseHdc(hdcSrc) g.Dispose() Return bmp End Function ``` **Anwendung:** Angenommen, dein MDI-Child heißt `childForm` und dein MDI-Parent ist `Me`: ```vbnet ' Child unsichtbar machen childForm.Visible = False ' Screenshot erstellen Dim bmp As Bitmap = GetFormScreenshot(childForm) ' Als BackgroundImage setzen Me.BackgroundImage = bmp ``` **Hinweise:** - Das Child-Form muss sichtbar gewesen sein, damit der Screenshot korrekt ist. - Die Methode funktioniert nur mit klassischen Windows-Forms-Steuerelementen. - In .NET 1.1 gibt es keine direkte Möglichkeit, ein Steuerelement in ein Bitmap zu rendern, daher ist der Weg über die WinAPI notwendig. **Weitere Infos:** - [BitBlt-Funktion (Microsoft Doku)](https://learn.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-bitblt) - [MDI-Formulare in VB.NET (Microsoft Doku)](https://learn.microsoft.com/de-de/dotnet/desktop/winforms/advanced/multiple-document-interface-mdi-applications?view=netframeworkdesktop-4.8) Falls du weitere Details zu WinAPI oder zu MDI in .NET 1.1 brauchst, findest du in der Microsoft-Dokumentation hilfreiche Beispiele.

Accepted Answer

Ja, der von dir genannte Code in VB.NET 2003: ```vb If Not Me.ActiveMdiChild Is Nothing Then Me.ActiveMdiChild.Close() End If ``` schließt das aktuell aktive MDI-Kindformular (also das unt... [mehr]

Accepted Answer

Ja, der von dir genannte Code in VB.NET 2003: ```vb If Not Me.ActiveMdiChild Is Nothing Then Me.ActiveMdiChild.Close() End If ``` schließt das aktuell aktive MDI-Kindformular (also das untergeordnete Formular innerhalb des MDI-Parent-Formulars), **nicht** das MDI-Parent-Formular selbst. Das bedeutet: - Wenn ein Shortcut (z.B. Strg+W) diesen Code ausführt, wird nur das aktive Kindformular geschlossen, sofern eines geöffnet ist. - Das Hauptformular (MDI-Parent) bleibt weiterhin geöffnet. Das MDI-Parent-Formular selbst wird nur geschlossen, wenn du explizit `Me.Close()` im MDI-Parent-Formular aufrufst.

Accepted Answer

Das von dir beschriebene Verhalten tritt häufig auf, wenn das Shortcut (z. B. Strg+W) sowohl im Child-Formular als auch im MDI-Parent-Formular verarbeitet wird oder das Shortcut im MainMenu nicht... [mehr]

Accepted Answer

Das von dir beschriebene Verhalten tritt häufig auf, wenn das Shortcut (z. B. Strg+W) sowohl im Child-Formular als auch im MDI-Parent-Formular verarbeitet wird oder das Shortcut im MainMenu nicht korrekt auf das aktive Child-Formular beschränkt ist. **Mögliche Ursache:** In VB.NET 2003 (Windows Forms) wird das MainMenu-Shortcut standardmäßig auch dann ausgelöst, wenn das MDI-Parent-Formular den Fokus hat. Wenn du Strg+W als Shortcut für „Schließen“ im MainMenu des MDI-Parents definierst, wird dieses Ereignis auch dann ausgelöst, wenn kein Child-Formular aktiv ist – und dann schließt du möglicherweise das MDI-Parent-Formular selbst. **Lösungsvorschlag:** Im Event-Handler für das Schließen-Menü solltest du prüfen, ob ein MDI-Child aktiv ist, und nur dieses schließen. Das MDI-Parent-Formular sollte nicht geschlossen werden. **Beispiel:** ```vb.net Private Sub mnuClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuClose.Click If Not Me.ActiveMdiChild Is Nothing Then Me.ActiveMdiChild.Close() End If End Sub ``` Hierbei ist `mnuClose` das Menüelement mit dem Shortcut Strg+W. **Zusätzlicher Hinweis:** Falls du im Child-Form einen eigenen Button zum Schließen hast, sollte dieser einfach `Me.Close()` aufrufen. Das ist korrekt. **Zusammenfassung:** - Das Shortcut im MainMenu sollte nur das aktive Child schließen, nicht das MDI-Parent. - Überprüfe im Event-Handler, ob ein aktives Child existiert. - So verhinderst du, dass das MDI-Parent-Formular durch Strg+W geschlossen wird. **Weitere Infos:** - [MDI-Formulare in Windows Forms](https://learn.microsoft.com/de-de/dotnet/desktop/winforms/advanced/multiple-document-interface-mdi-applications?view=netframeworkdesktop-4.8) - [MainMenu.Shortcut Eigenschaft](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.menuitem.shortcut?view=netframework-4.8) Falls du noch ein konkretes Codebeispiel hast, kann die Ursache noch genauer eingegrenzt werden.

Accepted Answer

In VB.NET 2003 kannst du aus einer Child-Form (MDI-Child) auf den MDI-Container (das MDI-Parent-Formular) über die Eigenschaft `Me.MdiParent` zugreifen. Diese Eigenschaft liefert eine Referenz au... [mehr]

Accepted Answer

In VB.NET 2003 kannst du aus einer Child-Form (MDI-Child) auf den MDI-Container (das MDI-Parent-Formular) über die Eigenschaft `Me.MdiParent` zugreifen. Diese Eigenschaft liefert eine Referenz auf das übergeordnete MDI-Formular. Beispiel: ```vb.net ' Innerhalb der Child-Form: Dim parentForm As Form = Me.MdiParent ' Wenn du auf eine bestimmte Eigenschaft oder Methode des MDI-Containers zugreifen möchtest, ' kannst du das MDI-Parent-Formular ggf. in den richtigen Typ umwandeln: Dim mainForm As MainForm = CType(Me.MdiParent, MainForm) mainForm.SomePublicMethod() ``` **Hinweise:** - Ersetze `MainForm` durch den tatsächlichen Namen deines MDI-Parent-Formulars. - Die Methode oder Eigenschaft, auf die du zugreifen möchtest, muss im MDI-Parent als `Public` deklariert sein. **Weitere Infos:** - [Microsoft Docs: Form.MdiParent Property](https://learn.microsoft.com/en-us/dotnet/api/system.windows.forms.form.mdiparent) So kannst du aus einer Child-Form heraus auf den MDI-Container zugreifen.

Accepted Answer

Um in VB.NET 2003 aus einer Owner-Form (Besitzer-Form) auf eine bereits geöffnete Owned-Form (besessene Form) zuzugreifen und deren Daten zu ändern, gehst du wie folgt vor: **1. OwnedForm r... [mehr]

Accepted Answer

Um in VB.NET 2003 aus einer Owner-Form (Besitzer-Form) auf eine bereits geöffnete Owned-Form (besessene Form) zuzugreifen und deren Daten zu ändern, gehst du wie folgt vor: **1. OwnedForm referenzieren:** Wenn du die OwnedForm beim Öffnen als Instanz speicherst, kannst du später direkt auf deren öffentliche Eigenschaften oder Methoden zugreifen. **Beispiel:** ```vb.net ' In der Owner-Form: Dim frmOwned As New OwnedForm() Me.AddOwnedForm(frmOwned) frmOwned.Show() ``` **2. Daten ändern:** Angenommen, die OwnedForm hat eine öffentliche Methode oder Eigenschaft, um Daten zu setzen: ```vb.net ' In OwnedForm: Public Sub SetzeText(ByVal text As String) Me.TextBox1.Text = text End Sub ``` Dann kannst du aus der Owner-Form heraus Folgendes tun: ```vb.net frmOwned.SetzeText("Neuer Text") ``` **3. Zugriff auf alle OwnedForms:** Falls du die Referenz nicht gespeichert hast, kannst du über die `OwnedForms`-Eigenschaft der Owner-Form auf alle zugehörigen Forms zugreifen: ```vb.net For Each f As Form In Me.OwnedForms If TypeOf f Is OwnedForm Then CType(f, OwnedForm).SetzeText("Neuer Text") End If Next ``` **Wichtige Hinweise:** - Die OwnedForm muss eine öffentliche Methode/Eigenschaft bereitstellen, um Daten zu ändern. - Die Owner-Form muss die OwnedForm als "owned" hinzugefügt haben (`AddOwnedForm`). **Zusammenfassung:** Du kannst aus der Owner-Form heraus auf die OwnedForm zugreifen, indem du entweder die Instanz speicherst oder über die `OwnedForms`-Eigenschaft iterierst. Über öffentliche Methoden/Eigenschaften der OwnedForm kannst du dann die gewünschten Daten ändern.

Accepted Answer

Um in VB.NET ein JPG-Bild in ein GIF-Bild umzuwandeln und dabei gleichzeitig die Größe zu ändern, kannst du die Klassen `System.Drawing.Image` und `System.Drawing.Bitmap` verwenden. Hi... [mehr]

Accepted Answer

Um in VB.NET ein JPG-Bild in ein GIF-Bild umzuwandeln und dabei gleichzeitig die Größe zu ändern, kannst du die Klassen `System.Drawing.Image` und `System.Drawing.Bitmap` verwenden. Hier ist ein Beispiel, wie das funktioniert: ```vb.net Imports System.Drawing Imports System.Drawing.Imaging ' Beispielmethode: JPG laden, skalieren und als GIF speichern Sub ConvertAndResizeJpgToGif(inputPath As String, outputPath As String, newWidth As Integer, newHeight As Integer) ' Bild laden Using originalImage As Image = Image.FromFile(inputPath) ' Neues Bitmap mit gewünschter Größe erstellen Using resizedImage As New Bitmap(newWidth, newHeight) Using g As Graphics = Graphics.FromImage(resizedImage) ' Bild skalieren g.DrawImage(originalImage, 0, 0, newWidth, newHeight) End Using ' Als GIF speichern resizedImage.Save(outputPath, ImageFormat.Gif) End Using End Using End Sub ``` **Verwendung:** ```vb.net ConvertAndResizeJpgToGif("C:\pfad\zu\bild.jpg", "C:\pfad\zu\bild.gif", 200, 150) ``` **Hinweise:** - Die Methode lädt das JPG, erstellt ein neues Bitmap in der gewünschten Größe, zeichnet das Originalbild skaliert hinein und speichert das Ergebnis als GIF. - Die Qualität der Skalierung kann durch zusätzliche Einstellungen an `Graphics` verbessert werden (z.B. `InterpolationMode`). **Weitere Infos:** - [System.Drawing.Image-Klasse (Microsoft)](https://learn.microsoft.com/de-de/dotnet/api/system.drawing.image) - [System.Drawing.Bitmap-Klasse (Microsoft)](https://learn.microsoft.com/de-de/dotnet/api/system.drawing.bitmap) Falls du unter .NET Core oder .NET 5+ arbeitest, beachte bitte, dass `System.Drawing.Common` auf Nicht-Windows-Plattformen nur eingeschränkt unterstützt wird. In diesem Fall empfiehlt sich eine Bibliothek wie [ImageSharp](https://sixlabors.com/products/imagesharp/).

Accepted Answer

In VB.NET 2003 kannst du ein JPG-Bild in ein GIF-Bild umwandeln, indem du die Klassen aus dem Namespace `System.Drawing` verwendest. Hier ein einfaches Beispiel, wie das funktioniert: ```vb.net Impor... [mehr]

Accepted Answer

In VB.NET 2003 kannst du ein JPG-Bild in ein GIF-Bild umwandeln, indem du die Klassen aus dem Namespace `System.Drawing` verwendest. Hier ein einfaches Beispiel, wie das funktioniert: ```vb.net Imports System.Drawing Imports System.Drawing.Imaging ' Beispielmethode zum Konvertieren eines JPG in ein GIF Sub ConvertJpgToGif(ByVal sourcePath As String, ByVal destPath As String) ' Bild laden Dim img As Image = Image.FromFile(sourcePath) ' Als GIF speichern img.Save(destPath, ImageFormat.Gif) ' Ressourcen freigeben img.Dispose() End Sub ``` **Verwendung:** ```vb.net ConvertJpgToGif("C:\Pfad\zu\deinemBild.jpg", "C:\Pfad\zu\deinemBild.gif") ``` **Hinweise:** - Stelle sicher, dass du einen Verweis auf `System.Drawing.dll` in deinem Projekt hast. - Die Qualität und Farbtiefe von GIF ist geringer als bei JPG, da GIF nur 256 Farben unterstützt. - Der Code funktioniert in VB.NET 2003, da dort bereits GDI+ unterstützt wird. Weitere Informationen findest du in der [Microsoft-Dokumentation zu System.Drawing](https://learn.microsoft.com/dotnet/api/system.drawing).

Accepted Answer

Mit der Funktion `Val("ABC02")` in VB.NET 2003 erhältst du als Ergebnis den Wert `0`. Die Funktion `Val` liest nur so lange Zeichen aus dem String, wie sie als Zahl interpretiert werden... [mehr]

Accepted Answer

Mit der Funktion `Val("ABC02")` in VB.NET 2003 erhältst du als Ergebnis den Wert `0`. Die Funktion `Val` liest nur so lange Zeichen aus dem String, wie sie als Zahl interpretiert werden können. Sobald ein nicht-numerisches Zeichen (wie "A", "B" oder "C") auftritt, bricht sie ab. In deinem Beispiel beginnt der String mit Buchstaben, daher gibt `Val("ABC02")` den Wert `0` zurück. **Um die Zahl am Ende des Strings zu extrahieren**, kannst du z.B. mit regulären Ausdrücken arbeiten: ```vb.net Dim input As String = "ABC02" Dim m As Match = Regex.Match(input, "\d+") If m.Success Then Dim number As Integer = Integer.Parse(m.Value) ' number enthält jetzt 2 End If ``` **Erklärung:** - `\d+` sucht eine oder mehrere Ziffern im String. - `m.Value` gibt den gefundenen Zahlenwert als String zurück, den du dann mit `Integer.Parse` in eine Zahl umwandelst. **Hinweis:** Für reguläre Ausdrücke musst du den Namespace importieren: ```vb.net Imports System.Text.RegularExpressions ``` **Fazit:** Mit `Val("ABC02")` bekommst du nicht die Zahl am Ende des Strings. Verwende stattdessen einen regulären Ausdruck, um die Zahl zu extrahieren.