korol26
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Оч нужна помощь, чет не могу никак придумать, короче, программа должна быть на VB (2008)
есть форма и некая картинка в picturebox , кнопка и компонент Timer
по нажатия кнопки таймер запускается
picturebox должен увеличиваться до размеров формы, потом сразу уменьшаться ..
и так , собсна, бесконечно, пока не нажмём на кнопку стоп)
не могу додуматься, как в таймере вписать, чтоб он уменьшался до конца, т.к.
После увеличения, он уменьшается на один шаг, идёт проверка, и , естественно, picturebox уже меньше формы и опять начинает увеличиваться,
пробовал с метками, но чет не получилось пока
вот что есть на данный момент в обработчике события Timer1_Tick
Код: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim xSize As Integer
Dim ySize As Integer
xSize = PictureBox1.Size.Height + 10
ySize = PictureBox1.Size.Width + 10
PictureBox1.Size = New Size(xSize, ySize)
If xSize > Me.Size.Height And ySize > Me.Size.Width Then
xSize = PictureBox1.Size.Height - 10
ySize = PictureBox1.Size.Width - 10
PictureBox1.Size = New Size(xSize, ySize)
End If |
|
