۱۱-اسفند-۱۳۸۸, ۰۰:۳۸:۵۴
شلام . آقا من میام این این کارا رو می کنم
تا اینجا مقادیر مکان های اعضام رو ذخیره کردم . چون بدن که شی جدید لود می کنم این ها تغیر می کنه.
بعد میام تو یک دکمه یک تب ازافه می کنم به کنترل تب و اینارو هم در همون دکمه می نویسم
حالا جالب اینجاست که کنترل های فریم من لود می شوند اما کنترل هایی که داخل اونها هستند لود نمی شوند.
من بدون فریم همه کنترل ها رو راحت لود می کنم و نمایش می دم اما وقتی تو فریم می زارم لود می شوند ولی خبری از نمایش دادنشون نیست .احتمالا زیر فریم قرار می گیرند و فریم روی اونها میاد اما چه طور یک کنترل رو در زمان اجرا در یک فریم ازافه کنم؟.
کد:
Private Sub Form_Load()
Lef(0) = Status(0).Left
Lef(1) = Id(0).Left
Lef(2) = Label2(0).Left
Lef(3) = txtPassword(0).Left
T(0) = Status(0).Top
T(1) = Id(0).Top
T(2) = Label2(0).Top
T(3) = txtPassword(0).Top
Wi(0) = Status(0).Width
Wi(1) = Id(0).Width
Wi(2) = Label2(0).Width
Wi(3) = txtPassword(0).Width
Hi(1) = Id(0).Height
Hi(2) = Label2(0).Height
Hi(3) = txtPassword(0).Height
Hi(4) = Label1(0).Height
Lef(22) = Frame2(0).Left
Lef(23) = Frame3(0).Left
Lef(24) = Frame4(0).Left
T(22) = Frame2(0).Top
T(23) = Frame3(0).Top
T(24) = Frame4(0).Top
Wi(22) = Frame2(0).Width
Wi(23) = Frame3(0).Width
Wi(24) = Frame4(0).Width
Hi(22) = Frame2(0).Height
Hi(23) = Frame3(0).Height
Hi(24) = Frame4(0).Height
End Subبعد میام تو یک دکمه یک تب ازافه می کنم به کنترل تب و اینارو هم در همون دکمه می نویسم
کد:
Load Frame2(SSTab1.Tabs - 1)
Load Frame3(SSTab1.Tabs - 1)
Load Frame4(SSTab1.Tabs - 1)
Frame2(SSTab1.Tabs - 1).Visible = True
Frame3(SSTab1.Tabs - 1).Visible = True
Frame4(SSTab1.Tabs - 1).Visible = True
Frame2(SSTab1.Tabs - 1).Move Lef(22), T(22), Wi(22), Hi(22)
Frame3(SSTab1.Tabs - 1).Move Lef(23), T(23), Wi(23), Hi(23)
Frame4(SSTab1.Tabs - 1).Move Lef(24), T(24), Wi(24), Hi(24)
Load Status(SSTab1.Tabs - 1)
Load Id(SSTab1.Tabs - 1)
Load Label2(SSTab1.Tabs - 1)
Load txtPassword(SSTab1.Tabs - 1)
Status(SSTab1.Tabs - 1).Visible = True
Id(SSTab1.Tabs - 1).Visible = True
Label2(SSTab1.Tabs - 1).Visible = True
txtPassword(SSTab1.Tabs - 1).Visible = True
Status(SSTab1.Tabs - 1).Move Lef(0), T(0), Wi(0), Hi(0)
Id(SSTab1.Tabs - 1).Move Lef(1), T(1), Wi(1), Hi(1)
Label2(SSTab1.Tabs - 1).Move Lef(2), T(2), Wi(2), Hi(2)
txtPassword(SSTab1.Tabs - 1).Move Lef(3), T(3), Wi(3), Hi(3)حالا جالب اینجاست که کنترل های فریم من لود می شوند اما کنترل هایی که داخل اونها هستند لود نمی شوند.
من بدون فریم همه کنترل ها رو راحت لود می کنم و نمایش می دم اما وقتی تو فریم می زارم لود می شوند ولی خبری از نمایش دادنشون نیست .احتمالا زیر فریم قرار می گیرند و فریم روی اونها میاد اما چه طور یک کنترل رو در زمان اجرا در یک فریم ازافه کنم؟.