PDA

View Full Version : لطفا کمک



mkafi
دوشنبه 05 خرداد 1382, 17:28 عصر
من یک برنامه نوشتم و نام فرمهایم در یک جدول در sql ذخیره شده و لیست نام فرمها در یک list box نمایش داده میشود حالا میخواهم که با کلیک بر روی هر عنوان در لیست آن فرم فعال شود :cry:

Vahid_Nasiri
پنج شنبه 08 خرداد 1382, 20:32 عصر
یک لیست باکس روی فرم اول برنامه بگذار و سپس یک فرم دیگر هم به برنامه اضافه کن .

حالا از کد زیر می شود استفاده کرد :



Private Sub Form_Load()

List1.AddItem "form1", 0

List1.AddItem "form1", 1

End Sub


Private Sub List1_Click()


If List1.ListIndex = 0 Then Form1.Show

If List1.ListIndex = 1 Then Form2.Show


End Sub

هر آیتمی که به لیست باکس اضافه شده یک اندیس دارد که برمبنای آن می شود این انتخاب را انجام داد.

کلا برای ایجاد دینامیک یک فرم به صورت زیر عمل می شود



Dim myChildForms(1 to 4) As Form1

Set myChildForms(1) = New Form1

Set myChildForms(2) = New Form1

Set myChildForms(3) = New Form1

Set myChildForms(4) = New Form1
البته این مورد زیاد بدرد شما نمی خورد چون خروجی نام هر آیتم ار لیست باکس آبجکت نیست و یک رشته است.

با دانستن اندیس هر کدام می توان تصمیم گیری کرد.

mkafi
شنبه 10 خرداد 1382, 08:49 صبح
جناب آقا ی نصیری بسیار از راهنمایی شما متشکرم خیلی خوشحال شدم
ولی یک مشکل وجود دارد و آن این است که وقتی برنامه شروع به کار کند (انشا ...) کاربر توانایی تعریف فرم دارد و من نمی ذلنم که اوچه فرمهایی تعریف خواهد کرد .

Vahid_Nasiri
شنبه 10 خرداد 1382, 17:35 عصر
اگر برنامه شما MDI است که یک بحث دیگری است :wink: در غیر اینصورت کاربر نباید و نمی تواند هر فرمی را تعریف کند. تنها فرمهای موجود در برنامه قابل تعریف هستند. همانطور هم که در بالا گفتم می توان از روی یک فرم چندین مشابه آنرا به صورت دینامیک هم درست کرد.

mkafi
یک شنبه 11 خرداد 1382, 07:52 صبح
آقای نصیری عزیز برنامه MDI است :cry:

kafi
جمعه 23 خرداد 1382, 16:47 عصر
بابا دست شما درد نکنه یکی یه چیزی بگه ما که مردیم :?