کدنویسی روی پروژه های Mdi !

من دو تا فرم درست کردم و در فرم دوم یه track bar گذاشتم ... به طوری که کاربر توسط این track bar میتونست width فرم اول رو به اندازه ی خودش تنظیم کنه. خوب این که خیلی راحت کار کرد.

ولی ....

امروز همین کار رو کردم با این تفاوت که برای این دو تا فرم یک parent هم تعریف کردم. ولی کد کار نکرد !

ولی این parent نباشه کار میکنه !

آیا طرز کد نویسی روی پروژه های mdi تکنیک خاصی داره ؟

لطفا راهنمایی کنید.

سلام

نقل قول:

---

من دو تا فرم درست کردم و در فرم دوم یه track bar گذاشتم ... به طوری که کاربر توسط این track bar میتونست width فرم اول رو به اندازه ی خودش تنظیم کنه...

---

فرم اول کیه؟ همان فرمی کهtrackbar روی ان قرار دارد؟
لطفاً کدی که گفته اید کار کرده و کدی که کار نکرده را بگذارید، چوندرست متوجهمنظورتان نشده ام.

بهتر توضیح میدم :

دو تا فرم درست کردم (form1,form2) روی form2 یک trackbar گذاشتم که کاربر میتونست اندازه ی width فرم اول رو تغییر بده. توی این کار از هیچ فرم parent استفاده نکردم و خیلی راحت کار کرد.

ولی ...

تو پروژه ی بعدی همین کار رو تکرار کردم با این تفاوت که یک فرم parent هم ساختم و اون دو تا فرم رو بهش نسبت دادم، ولی نشد !

سلام
متاسفانه گمانم شما از روش های ضد OOP موجود در VB6 در VB9 استفاده کرده اید...
وجود این قابلیت های برای افرادی که از VB9 آمده اند خوب است ولی برای VB9 مایه ننگ و مسخره است.

شما باید اشاره گر هر شی را برای دستکاری داشتهخ باشید و اینکه از نام کلاسس آن استفاده کنید اصلا و ابداً صحیح نیست.
اشاره گر شی در VB در واقع همان متغییری است که کلاسس با آن New شده، شما اگر این متغییر را به هرجا انتقال دهید میتوانید باشی اش هر کاری انجام دهید.

در form2 شما باید یک متغییر عمومی به form1 داشته باشید.
یعنی در form2 کد زیر را اضافه کنید

کد:

---

Public Class Form2
    Inherits System.Windows.Forms.Form

    Public SubFormHandler As Form1

    Private Sub ...
        '...
        Me.SubFormHandler.Width = 400;
        '...
    End Sub

'....

---

حالا فقط باید متغییر SubFormHandler را پر کنید، این متغییر را باید جایی مقدار دهی کنید Form1 را New کرده اید و در واقع هم اشاره گر Form1 و هم Form2 را دارید....
form2handler.SubFormHandler = form1handler


مثلاً اگر form1 را از داخل form2 میسازید، کدی شبیه این خواهد شد.

کد:

---

Dim x As New Form1
'...
'...
Me.SubFormHandler = x
'...

---

و یا اگر form1 و form2 را هر دو در یک جای مشخص میسازید (هرجایی، مثلاً در همان parent) کدی شبیه این نیاز دارید.

کد:

---

Dim x As New Form1
Dim y As New Form2

'...
'...
y.SubFormHandler = x
'...

---

درنهایت کلاً انجام همچین کاری صحیح نیست و در نهایت فقط باید فرمهای child شما به فرم والد متصل باشند و خودشان مستقلاً نباید با هم کاری داشته باشند، کاری که انجام میدهید اصلاً مطابق با اصول برنامه نویسی پروژهای متوسط و بزرگ نیست و در برنامه های کوچک هم انجامش منطقی نیست.
کد نویسی بی قائده و قانون موجب میشود بعد از مدت کدی اسپاگتی مانند داشته باشید و هر چیزی از این سر کد آن سر کد را متاثر کند و در نهایت برنامه نویس اصلی را هم گیج و سردرگم کند، توصعه و اشکال یابی این برنامه هم میتوانید بسیار طاقت فرسا باشد.

از راهنماییتون ممنون. واقعا سطح بالا صحبت میکنید ... سعی میکنم بفهمم چی میگید.

اگه بگم چیزی متوجه نشدم چی کار میکنید ؟

سلام

نقل قول:

---

اگه بگم چیزی متوجه نشدم چی کار میکنید ؟

---

چه کار کنم خوبه؟ میخواهید سرم را بکوبونم به مانیتور؟ (البته مانیتور مانیتور که نه! یک چیز ارزان تر که ورشکست نشم!)

همه ما وقتی به دنیا می آییم، صفر صفر هستیم، ولی در طی زمان و با پشتکار فیزیک کوانتم را هم یاد میگیرم !
خیالتان راحت و آسوده بخوابید! در بین انسانها علامه مادرزاد نداریم!

بقیه صحبت ها را ول نکنید، نخواستیم، این ها را یکبار دیگر بخوانید.

نقل قول:

---

در form2 کد زیر را اضافه کنید

کد:

---

Public Class Form2
    Inherits System.Windows.Forms.Form

    Public SubFormHandler As Form1

    Private Sub ...
        '...
        Me.SubFormHandler.Width = 400
        '...
    End Sub

'....

---

اگر form1 و form2 را هر دو در یک جای مشخص میسازید (هرجایی، مثلاً در همان parent) کدی شبیه این نیاز دارید.

کد:

---

Dim x As New Form1
Dim y As New Form2

'...
'...
y.SubFormHandler = x
'...
'...
x.Show
y.Show
'...

---

---

اگر باز متوجه نشدید باید یک نمونه کد-پروژه برایتان آپلود کنم.
(البته این هفته زمان اپدیت یک برنامه ام است و باید حجم زیادی کد را حاضر کنم... نتیجتاً می افتد برای پنجشنبه، جمعه... :11:)

SubFormHandler چیه ؟

سلام

نقل قول:

---

SubFormHandler چیه ؟

---

یک متغییر، شما اسمش را Gholi بگذارید!
این متغیر شی form1 را نگه میدارد.

کد:

---

Dim x As Form1
Dim y As Form1
Dim z As DataSet
 
 
x = New Form1
y = New Form1
z = DataSet
 
 
x.Width = 110
z.AcceptChange

---

Form1 و String در واقع مثل یک نقشه مهندسی هستند، که چیدمان قطعات در RAM و وظایف را مشخص میکنند، همواره منفرد هستند، فقط یکی، ولی عملیاتی نیستند.

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

باید از روی نقشه کاغذی یک یا چند نمونه واقعی بسازید، آنگاه نمونه عملی را میتوانید در پارکینگ پارک کنید، درش را باز کنید، فرمان حرکت دهید، فرمان توقف بدهید، فرمان .... این دستور ساختن نمونه جدید در دات نت با کلمه New صورت میگیرد.
آن نقشه همان کلاسس است و بعد از New یک شی واقعی میشود.

اشیای واقعی ساخته شده از روی یک کلاسس مشخص، میتوانند مستقل عمل کنند، مثل ماشین های پیکان ساخته شده از روی یک نقشه، با وجود نقشه واحد، بعد از ساخت هر کدام میتوانند تحت قابلیتهای نقشه اولیه مستقلاً عمل کنند، یکی در حرکت باشد و یکی در توقف ....


مجدداً به کدی که چند خط بالاتر نوشته ام نگاه کنید... Form1 واحد است و چیزی برای اجرا ندارد ولی x و y شی حقیقی هستند.

شما به شی واقعی که وجود دارد میتوانید فرمان دهید و انتظار اطلاعت داشته باشید نه به یک کلاسس یا نقشه غیر واقعی.

مفاهیم اصلی شی گرایی و وراثت و پلی مورفیزم را به سادگی میتوانید در طبیعت و دنیای غیر برنامه نویسی پیدا کنید، در اصل تفکر پایه این مفاهیم پیشرفته برنامه نویسی یک نوع کپی برداری طبیعت واقعی است.

(
VB6 دستورات صحیحی مثل این را قبول داشت...
Dim x As New Form1
x.Show
ولی متاسفانه متاسفانه متاسفانه VB6 که از OOP (شی گرایی) پشتیبانی نمیکرد، دستورات مایه خجالتی مثل Form1.Show را مجاز میدانست، همچنان برنامه نویسان دیگر زبانها VB کارها را مسخره میکنند، به علت وجود دستور افتضاح و صد در صد ضد OOP مثل Form1.Show .... :41:

از آن بدتر اینکه مایکروسافت دستورات افتضاحی مثل این را برای کمک به VB6 کارها در VB7-8-9 حذف نکرد :13:
و همچنان این لکه ننگ وجود دارد.:11:

البته vb7-8-9 به علت وجود دات نت در ذات نمیتوانند از OOP تخطی کنند و دستور اشتباه فوق را هم به کمک کلاسسی در فضای My و با عضو Shared ای انجام میدهند، وگرنه اگر کد را در #C وارد کنید و یا VB را بدون فضای My کامپایل کنید، به مجرد استفاده از کلاسس برای دسترسی به اعضا یش با خطا سینتکسی مواجه خواهید شد و جلوی کامپایل گرفته میشود.
)

از راهنماییتون خیلی ممنون.

اگه امکان داره در صورتی که وقت کردید یه پروژه ی ساده درست کنید و برام آپلود کنید تا بهتر یاد بگیرم ...

برای چی کار با فرم های MDI در vb2008 اینقدر متفاوت شده ؟
یه جورایی میشه گفت نسبت به vb6 سخت تر شده و کسی که از vb6 داره به vb2008 سفر میکنه، گیج میشه.