| |

Visual-Basic EinsteigerMDi ein Fenster mit Grafik hinzufügen | |  | Autor: mannu | Datum: 27.10.08 16:13 |
| Ich habe mich mit Hilfen zu einem MDI "durchgekämpft". Jetzt möchte ich einem weiteren Fenster eine Grafik in einer Piktutebox hinzufügen. Das soll auch einige Eigenschaften bekommen wie Anchor allseits.
Wie bekomme ich das hin?
Meinen Code hänge ich an.
Dank für Hilfe vom
Mannu
Hier mein Code
Public Class frmMain
Private Sub NeuesChildFenster(ByVal Titel As String, ByVal Farbe As Color, ByVal Größe As Point)
Dim NeueChildForm As New Form()
NeueChildForm.MdiParent = Me
NeueChildForm.Text = Titel
NeueChildForm.Size = Größe
NeueChildForm.BackColor = Farbe
NeueChildForm.Show()
End Sub
Private Sub tsmiNeuesFenster_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsmiNeuesFenster.Click
End Sub
Private Sub tsmiAllesSchließen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsmiAllesSchließen.Click
Dim VorhandeneChildForm As Form
For Each VorhandeneChildForm In Me.MdiChildren
VorhandeneChildForm.Close()
Next
End Sub
Private Sub tsmiNebeneinander_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsmiNebeneinander.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub tsmiÜbereinander_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsmiÜbereinander.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub tsmiUntereinander_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tsmiUntereinander.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
NeuesChildFenster("Ein großes, grünes Fenster!", Color.Green, New Point(500, 500))
NeuesChildFenster("Ein sehr kleines, rotes Fenster!", Color.Red, New Point(100, 100))
NeuesChildFenster("Ein mittelgroßes, blaues Fenster!", Color.Blue, New Point(250, 250))
NeuesChildFenster("Ein mittelgroßes, blaues Fenster!", Color.Blue, New Point(50, 50))
End Sub
End Class |  |
 | 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 |
  |
|
sevZIP40 Pro DLL 
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
|
|
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
|
|