PDA

View Full Version : سوال: تولید فرم در زمان اجرا



ehsan21
چهارشنبه 04 آبان 1390, 10:00 صبح
با سلام خدمت دوستان
من در حال طراحی نرم افزار هستم که می خواهم در زمان اجرا فرم ها تولید گردد. فرم ها بر اساس تعریفی که قبل از باز شدن می شوند می شوند باید تولیدشود ، به این صورت که ماژول های متعدد تعریف شده ای وجود دارد کاربر برای اجرای هر فرم ممکن است تعدادی از این ماژول ها را انتخاب کند و براساس آن فرم ها باید تولید شوند .
این فرم ها همگ یبا db ارتباط دارند
چه پیشنهادی برای این موضوع دارد؟
ممنون

kiarashk
چهارشنبه 04 آبان 1390, 10:22 صبح
مي توني يه فرم درست كني به اسم Form1 و از اون براي ايجاد فرم هاي بعدي با همان خاصيت از دستور زير استغكفاده كني
Dim newform1 As New Form1

ehsan21
پنج شنبه 05 آبان 1390, 15:56 عصر
مي توني يه فرم درست كني به اسم Form1 و از اون براي ايجاد فرم هاي بعدي با همان خاصيت از دستور زير استغكفاده كني
Dim newform1 As New Form1

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

sina_saravi1
پنج شنبه 05 آبان 1390, 16:03 عصر
من نیاز دارم که فرم بر اساس ماژول هایی که انتخاب شده ایجاد شود و برای هر ماژول یک تب ایجاد گردد. ایجاد اشیا در فرم باید در زمان اجرا صورت گیرد. به علت اینکه ترکیب فرم و اشیا مشخص نیست نمی توان از قبل فرمی را طراحی کرد و از آن نوع فرم ، فرمی ایجاد گردد.
خب مثل ایجاد فرم اشیاع رو هم ایجاد کن
بعد به کنترل های فرمت اضافه کن
بعد براشون رویداد درست کن

ehsan21
جمعه 06 آبان 1390, 17:20 عصر
خب مثل ایجاد فرم اشیاع رو هم ایجاد کن
بعد به کنترل های فرمت اضافه کن
بعد براشون رویداد درست کن

مشکل اینه که اشیا هم از قبل مشخص نیست که یک نوع از آن ایجاد کنم

sina_saravi1
شنبه 07 آبان 1390, 12:36 عصر
مشکل اینه که اشیا هم از قبل مشخص نیست که یک نوع از آن ایجاد کنم
من نگفتم فرمت رو طراحی کن هر دفعه نیو کنش!
میگم یه فرم خام رو نیو کن بعداشیاع رو هم توش اضافه کن

به مثال زیر توجه کن :
Public Class Form1
Dim frm As New Form
Dim btn As New Button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btn.SetBounds(10, 10, 100, 20)
btn.Text = "BarnameNevis.ORG"
frm.Controls.Add(btn)
AddHandler btn.Click, AddressOf btn_Click
frm.Show()
End Sub
Public Sub btn_Click(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("Salam")
End Sub
End Class

Mr'Jamshidy
چهارشنبه 11 آبان 1390, 12:48 عصر
دوست عزیز این مشکل تو در برنامه نویسی خیلی پیش پا افتادس

نه نیازی داری یک نمونه فرم آماده بسازی نه هیچی

به نمونه ای که برات گزاشتم نگاه کنی هرچی بخوای میتونی تولید کنی

امیدوارم به دردت بخوره

یادم رفت اینو بگم "یک وقت فکر نکنی قسمتی از کد ها اضافه هست، همه کد ها یک جایی نیاز میشن پس همش رو یاد بگیر"