Delay دادن به برنامه.

[boveiryghasem]

سلام من با VBA برنامه ای نوشتم که یسری اطلاعات رو چک میکنه و طبق اونا یکسری عکس رو توی Image هایی لود میکنه که امکان داره هر بار عکس ها متفاوت باشه و تغییر کنن و هر بار یک پرینت از نوع PDF بهم میده و میره سراغ عکس های بعدی.
مشکل من اینه هر با قبل از لود شدن کامل عکس ها میاد PDF میگیره و متاسفانه با عکس های قبلی.
چکار کنم مشکل حلشه...؟

[mohammadriano]

سلام
بهتره ابتدا جستجو کنید

Public Sub SleepFor(ByVal Seconds As Double)
' "Sleep" for the specified number of seconds.
Dim EndTime As Date
EndTime = DateAdd("s", Seconds, Now)
Do
DoEvents
Loop Until Now >= EndTime
End Sub

[arenaw]

سلام، همچنین میتونین ازین روش استفاده کنید که میتونید ثانیه رو اعشاری هم وارد کنید (مثلا 1.5)

Public Function Wait(Second As Single)
Dim t As Single
t = Timer + Second
Do While Timer < t
DoEvents
Loop
End Function

[boveiryghasem]

ممنون arenaw (http://barnamenevis.org/member.php?203395-arenaw) جان مشکلم حل شد.