Таймер

[Max!]

Люди помогите как сделать таймер который считал бы дни и с каждым новым днем менял бы картинку в PictureBox ???

[corgi]

один из самых простых способов:

Код: Выделить всё

Private Sub Form_Load()
Picture1.Picture = LoadPicture("C:\" & CStr(Day(Now)) & ".jpg")
End Sub


[Max!]

А в этом коде не надо писать название фаила ".jpg"

[corgi]

а если у тебя есть 2.jpg и 2.bmp то тогда это еще вопрос что он заглотит и не выдаст ли ошибку

[Max!]

Спасибо Все работает!

[Max!]

Еще вопрос а если пользователь пропустил один день и не зашол в прогу можно-ли что бы она опять ставила изначальную картинку?

[corgi]

ну тогда сохраняй в реестре или еще где дату последнего посещения и по ней смотри далее

[Max!]

Поподробнее можно , и еще можно-ли запрогромировать свою прогу на каждое число , чтобы с каждым днем она делала новые деиствия например 11 числа поменяет кортинку в PictureBox'се , а 12числа вывидет на икран (при запуски проги) MsgBox!? Помогите!

[corgi]

Код: Выделить всё

Select now(day)
Case 1
'делай что хочешь
Case 2
'делай что хочешь
End Select


ну и примерно так для каждого дня

[Max!]

Помогло спасибо!