Řešíte jeden problém - vykreslení obdélníku - anebo ještě něco dalšího ve spojení s celoobrazovkovým zobrazením (fullscreen)? Vykreslování na Form nebo do PictureBox se v podstatě neliší. Dejte na formulář jeden PictureBox a zkuste:
Public Class Form1
Private Sub PictureBox1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawRectangle(Pens.Black, 20, 30, 250, 150)
End Sub
Private Sub Form1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.DrawRectangle(Pens.Black, 20, 220, 250, 150)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Width = 300
Me.Height = 430
PictureBox1.Dock = DockStyle.Top
PictureBox1.Height = 200
End Sub
End Class
|