PDA

View Full Version : Child form


مهدی قنبری
چهارشنبه 15 مهر 1388, 09:02 صبح
من می خواستم بدونم که چه طور میشه ازبین چندین فرم فرزند ایجاد شده کدام یک فکوس رادارد (فعال است)
ironclip
چهارشنبه 15 مهر 1388, 13:12 عصر
با سلام به تمام اساتید

خواهشن این دوست ما رو راهنمای کنید ، چون احتمالا شاید فامیل من باشه

اسم من هم محمد قنبری

راستی از کجا فهمید که یه فرم فکوس می گیره ....
alirezabahrami
چهارشنبه 15 مهر 1388, 13:58 عصر
من می خواستم بدونم که چه طور میشه ازبین چندین فرم فرزند ایجاد شده کدام یک فکوس رادارد (فعال است)
با سلام




Private Sub Command0_Click()
Dim frm As Form
Set frm = Screen.ActiveForm
MsgBox "فرم فعال در حال حاضر" & frm.Name & "میباشد"
End Sub



در این کد ابتدا یک متغیر از نوع فرم تعریف میشه و در خط دوم فرم فعال یا همون ActiveForm برابر با اون قرار داده میشه و در خط سوم با استفاده از خصوصیت Name نام فرم فعال برنامه با یک پیغام نمایش داده میشه.
موفق باشيد