مشکل در فریم

[mostafa_bahar]

دوستان چطور می شه کنترل های یک فریم را تشخیص دهیم یک فریم در فرم برنامه
در داخل فرم یک سری کنترل هم داریم و یک فریم که داخل فریم هم کنترل دلریم برای تشخیص کنتری های فریم چه کنیم

[mpmsoft]

Private Sub Form_Load()
Dim Ctl As Control
For Each Ctl In Frame1.Container
List1.AddItem Ctl.Name
Next

End Sub

[S_O_S1982]

سلام

من یک فریم دارم ، که توی اون چندتا Textbox و label و checkbox دارم حالا وقتی می خوام با انتخاب یک دکمه ی رادیویی ، همه رو با هم غیر فعالشون کنم یه چیزی شبیه کد پایین می زنم به این صورت که :


dim element as control




for each element in frame18(4).container

element.enable=false
next



خطایی که به من میده اینه This object doesnt support this property or method
البته این خطا رو رو خط اول تعریف حلقه ، یعنی همون For Each میده
کسی میدونه مشکل کجاست؟

[M.T.P]

احتمالا یکی از کنتل های داخل Frame خاصیت Enabled نداره ، شما کد زیر رو اول روال بزار حله



on error resume next

[S_O_S1982]

نه عزیزم ، به خاطر اون نیست ، چون هم اینکه همشون خاصیت Enable رو دارند و هم اینکه اصلا Error رو رو خط For Each میده ، مم به نظر احتمالا به خاطر نوع متغیر elemet و یا frame.container هست

[M.T.P]

کدتون ایراد داشت اینو کپی کنید


for each element in frame18(4).container

element.enabled=false
next

[S_O_S1982]

دوست عزیز از این همه دقت نظر شما تشکر می کنم ، اما من به دلیل عجله ی زیاد تو کدی که اینجا نوشتم ، enabled رو به اشتباه نوشتم Enable ، تو کد برنامه درست زدم
اما اگه خوب توجه کرده باشید ، من گفتم که خطا رو ، رو خط For each می گیره ، در واقع با توجه به اون error که نوشتم ، اینطوری استنباط می کنم که Frame ایی که من استفاده کردم از container پشتیبانی نمی کنه و یا اینکه مثلا باید نوع element رو عوض کنم، حالا دلیلش و نمی دونم

بازم ممنون

[mpmsoft]

کد شما رو باید Frame خود وی بی تست کردم و مشکلی نداشت
امکان دارد فریمی که استفاده کردید متد Container رو نداشته باشه

پس مشکل دستوری نیست

[xxxxx_xxxxx]

متد Container توسط تابع GetParent طراحی میشه. اگر فریم شما چنین متدی نداره خودتون می تونید مستقیماً از تابع GetParent استفاده کنید.
http://barnamenevis.org/forum/showpost.php?p=897072&postcount=7