PDA

View Full Version : open multe forms



mandana.k
سه شنبه 04 دی 1386, 08:01 صبح
من می خواهم بتوانم در پروژه ام فرمها را با هم ببینم یعنی اینکه وقتی یک فرم راباز کردم با minimize کردن فرم بتوانم روی فرم دیگر کار کنم وبه همین ترتیب باز این فرم را بتوانم mini کنم وفرم قبلی را max کنم وروی آن کار انجام دهماما نمی دانم کدام propertiesرا باید تغییر دهم

reza_rad
سه شنبه 04 دی 1386, 08:08 صبح
باید خصوصیت windowstate یکی رو به formwindowstate.minimized ست کنید.
و فوکوس رو روی فرم بعدی بدید. : form2.focus()

mandana.k
سه شنبه 04 دی 1386, 09:04 صبح
یعنی خصوصیات form1را min کنم ودر کجای form1باید نوشت form2.focus()

reza_rad
سه شنبه 04 دی 1386, 09:11 صبح
ببینید فرض کنید شما می خواهید اگه button1 کلیک شد from1 تون minimize بشه و فرم 2 تون فوکوس بگیره.
پس باید توی event مربوط به کلیک button1 بنویسید

sinpin
سه شنبه 04 دی 1386, 09:17 صبح
من می خواهم بتوانم در پروژه ام فرمها را با هم ببینم یعنی اینکه وقتی یک فرم راباز کردم با minimize کردن فرم بتوانم روی فرم دیگر کار کنم وبه همین ترتیب باز این فرم را بتوانم mini کنم وفرم قبلی را max کنم وروی آن کار انجام دهماما نمی دانم کدام propertiesرا باید تغییر دهم

فکر میکنم برنامه تون از نوع MDI نباشه و گرنه مشکلی نیست... :متفکر:

mandana.k
سه شنبه 04 دی 1386, 09:25 صبح
فکرکنم مطلبم را درست بیان نکردم:
من دوفرم دارم در form1دکمه ای گذاشتم که با این کد


Dim frm As New Form2
frm.ShowDialog()

form2باز می شودحالا می خواهم پس از زدن دکمه mini بالای صفحه form2 وقتی فرم mini شدفرم زیرین یعنی form1 فعال شود ودسترسی برای کارکردن راداشته باشد وبالعکس
می خواهم min بالای صفحه form1راوقتی زدم

ir_programmer
سه شنبه 04 دی 1386, 09:29 صبح
ShowDialog ننویس. Show کافیه.
اگر برنامت رو هم mdi کنی بهتره.

reza_rad
سه شنبه 04 دی 1386, 09:30 صبح
پس در ایوینت resize فرم 1 بنویسید:


if (FormWindowState.Minimized=WindowState) then
application.openforms("Form2").focus()

mandana.k
سه شنبه 04 دی 1386, 09:55 صبح
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
If (FormWindowState.Minimized = WindowState) Then
Application.openforms("Form2").focus()
End If
End Sub



Application.openforms رانمی شناسد

reza_rad
سه شنبه 04 دی 1386, 10:38 صبح
اینو تست کنید:


My.Application.Openforms

mandana.k
سه شنبه 04 دی 1386, 13:59 عصر
در vb.net که my را نمی شناسدمن نوشتم me.اما باز هم applicationرا نداد
آیا مشکلی در vb.net است

reza_rad
سه شنبه 04 دی 1386, 14:20 عصر
me با my فرق می کنه.
آیا شما دارید با دات نت 2003 کار میکنید؟ این کد مربوط به 2005 هست.
برای ورژن های پایین تر اینجا رو ببینید:
http://blogs.vbcity.com/xtab/archive/2006/10/31/6602.aspx