|
Asi jdete naprosto špatným směrem. Jestli vám jde o načtení obrázku ze souboru a jeho vykreslení na formulář s tím, že tam bude i po změně velikosti, po obnovení z minimalizace ap., pak to se na zdejším webu dá najít. Jestli máte problém to objevit a použít, pak vám asi v programování chybí základy. Měl byste zvládnout zdejší kurz "Začínáme" (vlevo v nabídce, skoro až na konci) a z grafiky "Úvod do grafiky" na adrese: http://vbnet.cz/clanek--47-vb_net_od_zac... Ani po zvládnutí těchto lekcí asi nebude rozumět kódu, který jste použil, ale zjistíte že ho ani nebudete potřebovat. Tuto ukázku pochopíte (na C:\ si dejte malý obrázek s názvem obrazek.bmp anebo v kódu změňte "C:\obrazek.bmp): 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Public Class Form1
Dim stetec As New Pen(Color.Blue, 1)
Dim x1 As Integer = 20
Dim y1 As Integer = 50
Dim obr As Bitmap = Image.FromFile("C:\obrazek.bmp")
Private Sub Form1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawLine(stetec, x1, y1 + 40, x1 + Me.Width - 50, y1 - 40)
e.Graphics.DrawEllipse(stetec, x1, y1 - 40, Me.Width - 50, 80)
e.Graphics.DrawImage(obr, x1, y1 + 70)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.Width = obr.Width + 50
Me.Height = y1 + 120 + obr.Height
End Sub
End Class
|
Základem je holý formulář Form1
|