|
Děkuji, přesně toto nasměrování jsem potřeboval. Výsledek:
Public Sub New()
' Toto volání je vyžadováno návrhářem.
InitializeComponent()
' Přidat libovolnou inicializaci po volání InitializeComponent().
For Each ctl As Control In Me.Controls
ctl = TryCast(ctl, Windows.Forms.MdiClient)
If Not ctl Is Nothing Then
AddHandler ctl.Paint, AddressOf Mdi_Paint
AddHandler ctl.SizeChanged, AddressOf Mdi_SizeChanged
Exit For
End If
Next
End Sub
Private Sub Mdi_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
Dim obrazek As Bitmap = My.Resources.Logo
e.Graphics.DrawImage(obrazek, Me.ClientSize.Width - obrazek.Width + 10, Me.ClientSize.Height - obrazek.Height - 30)
End Sub
Private Sub Mdi_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs)
CType(sender, MdiClient).Invalidate()
End Sub
|