استفاده از متغییر بجای نام فرم

با سلام و عرض ادب و تبریک ولادت امیرالمومنین(ع)
مشکلی دارم که میخوام به عنوان نام فرمها از مقدار یک متغییر استفاده کنم ولی راهشو نمیدونم یا حتی نمیدونم که میشه یا نه؟؟؟
مثلا میخوام بجای form1.show یک متغییر که قبلا تعریف کردم و مقدارش X=form1 است باشه ،مثلا برای تداعی عرض میکنم مثل X.show .
ممنون میشم اساتید سریعتر جواب بدند.

اول باید یه شی از نوع Form تعریف کنی و بعد اون رو نسبت بدیش به فرمی که داری...
بعد هم هر بلایی سر اون شی بیاری سر فرمت هم میاد...!
مثلاً :

کد:

---

Private Sub Form_Load()

Dim X As Form

Set X = Form1

X.Caption = "Hello World!"

End Sub

---

موفق و پیروز باشی...! :46:

تشکر یادت نره...!(منظورم کلیک کردن رو دکمه تشکره...!) :20:

ممنون از اینکه به این سرعت جواب دادید.
ولی تو این روش من چطوری میتونم یک نام فرم بسازم و تو متغییر فرم قرار بدم؟
منظورم اینه که A=1 و B=form حالا چجوری ایندوتا که یکیشون عدده و یکیشون متنه را سرهم کنم و تو متغییر فرممون مقدار بدم؟
چون اینا رو اگه با & بچسبونم باز متن میشن؟

متأسفانه ویژوال بیسیک چیزی برای تبدیل متن به Form نداره...!

کلاً روشت غلطه...

تو می خوای یه فرم جدید به صورت پویا بسازی ، درسته... ؟

اگه منظورت همینه ، بگو تا ادامه بدم...!

مجددا ممنونم برای عنایتتون.
کل ماجرا اینه که من میخوام n تا فرم را بصورث تصادفی باز کنم،یعنی یک تابع دارم که عدد تصادفی میده که میخوام این عددو بچسبونم به کلمه form و فرم شماره مورد نظر را باز کنم.
اگه الگوریتم دیگه ای میتونید پیشنهاد بدید متشکر میشم .(غیر از روشهای شرطی که اگه فلان عدد اومد فلان فرمو باز کن) .

خوب این چه کاریه؟

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

اما اگر زیاده من یه پیشنهاد دارم. خودم هم قبلا همین کار رو کرده بودم اما توی 2 تا فرم.

اگر فرق این فرم هایی که انتخاب میشند با هم فقط سر این عدده (مثلا اگر 1 اومد توی فرم یک تکست باکس باشه اگه دو اومد دوتا و تا آخر) شما باید یه فرم بسازید (اگر باید با انتخاب عدد تصادفی چند فرم باز شه چندتا فرم بسازید) بعد این عدد رندوم رو توی یک ماژول ذخیره کنید و با باز شدن اون فرم(ها) این عدد رو بگیرید و ادامه ی کار رو انجام بدید.

اگر منظورتون کارهای بالا نیست در مورد برنامتون بیشتر توضیح بدین تا بتونیم بهتر کمکتون کنیم.

تا اونجایی که من میدونم و بلدم... این کار رو فقط توی فرم های MDI میشه انجام داد...! یعنی میشه به صورت پویا براشون Child درست کرد...! :27:

ولی من اون کد رو که برا MDI ه رو برات میذارم...! مثلاً این...! :

' یه فرم MDI به پروژت اضافه کن ، با یه فرم معمولی و خاصیت MDIChild ش رو برابر True قرار بده!
' بعد هم برو StartUp پروژت رو MDIForm1 کن!
' این کد ها رو هم تو MDIForm ت ، کپی کن!

کد:

---

Private Sub MDIForm_Load()

Dim X As Form

Set X = New Form1

X.Caption = "X"

X.Show

Form1.Show

End Sub

---

اگه چیز تازه ای پیدا کردم ، خبرت می کنم...! :46:


موفق باشی...! :20:

این سورس یک روبات مسنجر هست و قابلیت چت هم زمان با n نفر را دارد،
برای هر شخص یک فرم جداگانه باز می کند،
فکر می کنم این سورس به کارتون بیاد...

کد:

---

http://forum.p30world.com/showpost.php?p=5080885&postcount=1

---

دوستان با سپاس بیکران
dark.lord عزیز کارو خیلی حرفه ایش نکن به ما آماتورا هم رحمی بکن:31:
من اینجای کار گیر کردم که اگه بشما یک عدد بدم و متناسب با این عدد یک فرم داشته باشیم چطوری اون فرم رو باید show کنیم.
مثلا A=3 (عدد مورد نظر) و حالا میخوام فرم form3 را show کنم .راه حل استاد plus فکر کنم بشه ولی منه بیسواد از mdi سر در نمیارم.:41:
البته از فرمایش مرتضی جان سر در نیاوردم؟؟؟!!!

نمی شه از شرط استفاده کرد؟
یک نمونه براتون نوشتم...

کد:

---

http://hotfile.com/dl/50592160/2397d5e/Multi_Form_Show.rar.html

---

ببین دوست عزیز، شما می خوای با این عدد 3 توی فرمت یه کاری بکنی دیگه؟ مگه نه؟ مثلا می خوای بگی اگه 3 شد فرم 3 رو که توش یک لیبل داره به نام 333 نمایش بده. (برای راحتی کار از ماژول بی خیال میشیم) پس میتونی دو تا فرم درست کنی. بعد بهش بگی هر وقت فرم دوم لود شد اون مقدار تصادفی رو از تو فرم 1 به فرم 2 بدی و تو لیبل نمایش بده. برنامش رو برات نوشتم تا بهتر متوجه بشی:

کد:

---

http://www.4shared.com/file/cHEXmrvo/59bahman.html

---

موفق باشید ...

بالاخره فهمیدم...!؟! :31:

دوتا فرم به پروژت اضافه کن و بعد توی فرم اول این کد ها رو کپی کن...! :

کد:

---

Private Sub Form_Load()

    Dim X As Form
   
  Set X = New Form2
   
    X.Caption = "X"

    X.Show
   
    Form1.Show
   
    Form2.Show

End Sub

---

دیگه فکر کنم مشکلت حل شد...! :20:

مشکل اون یکی این بود که فرم جدید از روی فرم اول می ساخته می شد و فرم جدید تمام خواص و... رو از فرم اول به ارث می برد...!
توی رویداد فرم اول هم دستور این بود که دوباره از روی فرم اول یه فرم دیگه بساز...! این باعث می شد که فرم جدید که ساخته میشه همون دستور رو اجرا کنه و یه فرم جدید بسازه ، و هر فرم که ساخته می شد ، دوباره یه فرم دیگه می ساخت و... تا بینهایت این کار ادامه پیدا می کرد! به خاطر همین حافظه پر می شد و Runtime ویژوال بیسیک ارور می داد!

ولی اینجا دیگه اون مشکل برطرف شده...! :27:

موفق باشی...! :46:

تشکر یادت نره...! :20:

خیلی ممنونم از همه دوستان مشکلم کاملا مرتفع شد.
به امید اینکه علمتون روز بروز متعالی بشه.