ايران ويج

ايران ويج > برنامه نویسی > ويژوال بيسيك > باز شدن چند فرم با یک کلیک
نسخه‌ی کامل: باز شدن چند فرم با یک کلیک
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

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

۱۴-مهر-۱۳۸۹, ۱۱:۲۵:۳۶
(۱۴-مهر-۱۳۸۹, ۰۴:۳۸:۰۹)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

این قسمت کد رو در کجا باید وارد کنم؟
' 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

۱۹-مهر-۱۳۸۹, ۰۰:۳۵:۴۴
(۱۵-مهر-۱۳۸۹, ۰۷:۱۷:۴۰)Payman62 نوشته است: [ -> ]سلام.
نوشتم دیگه. in module یعنی چی؟ یعنی داخل ماژول. اون یکی هم داخل فرم.

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

Payman62

۲۰-مهر-۱۳۸۹, ۲۳:۵۳:۴۸
سلام.
یعنی چی؟ بیشتر توضیح بده.

Mr.pRoGraMmer

۲۱-مهر-۱۳۸۹, ۰۰:۲۳:۴۲
(۱۹-مهر-۱۳۸۹, ۰۰:۳۵:۴۴)zer0_cool نوشته است: [ -> ]
(۱۵-مهر-۱۳۸۹, ۰۷:۱۷:۴۰)Payman62 نوشته است: [ -> ]سلام.
نوشتم دیگه. in module یعنی چی؟ یعنی داخل ماژول. اون یکی هم داخل فرم.

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

سلام
همه اولش مبتدی هستند
این کدها تو صفحه اصلی بنویس
کد:
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
ايران ويج > برنامه نویسی > ويژوال بيسيك > باز شدن چند فرم با یک کلیک