imagelist 전체화면으로 출력하기
*
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
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
이미지를 전체화면 크기로 출력해보세요
첫째 - 폼 최대화 ( 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)
이 게시물을
번호
제목
55
49
47
44
42