|
Zdravim, pokud máš velký obrázek (třeba v resources), tak s ním můžeš hýbat pomocí příkazu Clone(), ten umí vyříznout z velkého obrázku jenom tu část, kterou chceš zobrazit. vyřešil bych to takto:
'Proměnná za velký obrazek
Dim velky As New Bitmap(My.Resources.Obrazek)
Public Function vyriznuti(ByVal x As Integer, ByVal y As Integer)
'Vytvoření obrázku o rozměrech PictureBoxu, do kterého budeme vyříznutý obrázek ukládat
Dim obr As New Bitmap(PictureBox1.Width, PictureBox1.Height)
'Samotné vyříznutí
obr = velky.Clone(New Rectangle(x, y, PictureBox1.Width, PictureBox1.Height), Imaging.PixelFormat.Format64bppArgb)
'Vrácení vyříznutého obrázku
Return obr
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Zobrazení obrázku v PictureBoxu
PictureBox1.Image = vyriznuti(0, 0)
End Sub
S pozdravem Tonda...
|