تعیین این که آیا فرمی بارگذاری شده است یا نه

این برنامه نشان می دهد که چگونه از باز شدن فرمی در یک برنامه کاربردی ویژوال بیسیک مطلع شویم .
1- پروژه جدیدی را در ویژوال بیسیک آغاز کنید . بطور پیش فرض Form1 ایجاد می شود.
2- از منوی Insert گزینه Form را انتخاب کنید . Form2 بطور پیش فرض ایجاد می شود.
3- فرمی را نیز به همین طریق باز نمایید . نام پیش فرض آن Form3 خواهد بود.
4- کد زیر را در رویداد load مربوط به Form1 اضافه کنید

Private sub Form_Load()

Form2.show

End Sub

5- کنترلی از نوع Command Button به فرم اول اضافه کنید . نام پیش فرض آن Command1 خواهد شد .
6- کد زیر را در رویداد کلیک دکمه مذبور وارد نمایید:

Private Sub Command1_Click()

dim X as integer

X = IsFormLoaded(Form1)

if X Then

msgbox "Form 2 is loader

End If



X = IsFormLoaded(Form3)

if X = false then

msgbox "Form3 is not loaded"

End If

End Sub

7- تابع جدیدی به نام IsFormLoaded و به شرح زیر ایجاد نمایید:

Function IsFormLoaded(FormToCheck as form) as integer

Dim Y as integer

For Y = 0 To Forms.Count -1

If Forms(y) is FormToCheck Then

 IsFormLoaded = true

Exit Function

End if 

next

IsFormLoaded = False

End Function

اگر هنگام اجرا شدن برنامه روی دکمه فرمان کلیک کنید . یک پیغام به صورت بازشو روی صفحه نمایش ظاهر شده و پیغام "Form 2 is Loaded " را نشان خواهد داد. روی دکمه Ok کلیک کنید . بلافاصله پیغام دومی ظاهر و پیغام "Form3 Is not Loaded" را نشان خواهد داد.