imagelist 전체화면으로 출력하기

교교 2014.02.24 20:11:07 *: Public Class Form1
Dim i = 0
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
i += 1
If ImageList1.Images.Count = i Then
i = 0
End If
PictureBox1.Image = ImageList1.Images(i)
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub


End Class

 

 

 111.PNG

이미지를 전체화면 크기로 출력해보세요

 

첫째 - 폼 최대화 ( WindowState ->Maximized )

둘째 - PictureBox  ( StretchImage )

 

        Timer1.Enabled = True
        Dim x, y As Integer

        x = Screen.AllScreens(0).WorkingArea.Width
        y = Screen.AllScreens(0).WorkingArea.Height
        Me.PictureBox1.Size = New System.Drawing.Size(x, y)