لودینگ جهت بار گذاری و زیبا سازی محیط برنامه

[ehsanshahi]

سلام...
بنده یک نمونه لودینگ ساده طراحی کردم و برای شما میذارم شاید به درد بخوره...
یا علی...

[Abbas Amiri]

سلام...
بنده یک نمونه لودینگ ساده طراحی کردم و برای شما میذارم شاید به درد بخوره...
یا علی...
ممنون .

زمانی که کدهای شبیه به هم تکرار می شوند می توانید ازحلقه استفاده کنید :



Private Sub Form_Timer()
Dim i As Integer, j As Integer
For j = 1 To 3
For i = 2 To 11
Me("Box" & i).Visible = True
Pause (0.1)
Next
For i = 2 To 11
Me("Box" & i).Visible = False
Pause (0.1)
Next
Next
DoCmd.Close acForm, "loading"
End Sub

[ehsanshahi]

سلام...
باسپاس فراوان از جناب Abbas Amiri (http://barnamenevis.org/member.php?189381-Abbas-Amiri) گرامی...
طبق فرمایشات شما فرم لودینگ با خط فرمان پیشنهادی شما به صورت حلقه اصلاح شد و در ورژن 2003 و 2007 تقدیم میگردد.
یا علی ...