باز شدن چند فرم با یک کلیک

[zer0_cool]

فرض کنید ما در اینجا یک فرم داریم که درون آن یک کنترل commandButton هست میخوام وقتی روی دکمه کلیک میشه به تعداد مشخصی از همون صفحه (فرم) باز بشه با چه دستوری میتونم این کارو بکنم؟ لطفا راهنمایی کنید

[Payman62]

سلام.
شما باید یه متغیر از نوع فرم مورد نظرت New کنی. برای این که بتونی بعدا کنترل فرم های باز کرده رو در اختیار بگیری بهتره یه آرایه از فرم مورد نظرت در یه ماژول تعریف کنی تا بعدا لیست پنجره ها رو در اختیار داشته باشی.

کد:

' In Module
Public frmNewForm(100) As New Form1
Public I As Byte

'In Form
Private Sub Command1_Click()
    frmNewForm(I).Show
    I = I + 1
End Sub

[zer0_cool]

سلام.
شما باید یه متغیر از نوع فرم مورد نظرت New کنی. برای این که بتونی بعدا کنترل فرم های باز کرده رو در اختیار بگیری بهتره یه آرایه از فرم مورد نظرت در یه ماژول تعریف کنی تا بعدا لیست پنجره ها رو در اختیار داشته باشی.

کد:

' In Module
Public frmNewForm(100) As New Form1
Public I As Byte

'In Form
Private Sub Command1_Click()
frmNewForm(I).Show
I = I + 1
End Sub

این قسمت کد رو در کجا باید وارد کنم؟
' In Module
Public frmNewForm(100) As New Form1
Public I As Byte

'In Form

[Payman62]

سلام.
نوشتم دیگه. in module یعنی چی؟ یعنی داخل ماژول. اون یکی هم داخل فرم.

[PEA]

اینجا هم پرسیدید و همه بهتون پاسخ دادند!
دیگه نمی دونم با چه زبانی باید گفت! (اسمایل کندن موی سر!)

http://www.barnamenevis.org/forum/showth...p?t=251611

[zer0_cool]

سلام.
نوشتم دیگه. in module یعنی چی؟ یعنی داخل ماژول. اون یکی هم داخل فرم.

خیلی ممنون. حالا اگه بخوام بجای 1 فرم 100 تا فرم باز بشه چی؟
ببخشید ولی من مبتدی هستم

[Payman62]

سلام.
یعنی چی؟ بیشتر توضیح بده.

[Mr.pRoGraMmer]

سلام.
نوشتم دیگه. in module یعنی چی؟ یعنی داخل ماژول. اون یکی هم داخل فرم.

خیلی ممنون. حالا اگه بخوام بجای 1 فرم 100 تا فرم باز بشه چی؟
ببخشید ولی من مبتدی هستم

سلام
همه اولش مبتدی هستند
این کدها تو صفحه اصلی بنویس

کد:

Private frmNewForm(100) As New Form1
Private I As Byte


Private Sub Command1_Click()
For I = 1 To 100
frmNewForm(I).Show
Next I
End Sub