تعیین این که آیا فرمی بارگذاری شده است یا نه
این برنامه نشان می دهد که چگونه از باز شدن فرمی در یک برنامه کاربردی ویژوال بیسیک مطلع شویم .
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" را نشان خواهد داد.
موفق و موید باشید ./
پاسخ با نقل قول
