چگونه با زدن یک دکمه منو لغزنده زیر آن نمایش داده شود ؟

[amin_ir]

واقعا سخته که در بیش از 350 صفحه بگردی که جواب سوالت را پیدا کنی سوال اینجاست که چگونه می شود منوهایی مانند منوهای اولین فرم اکسس 2000 یا 2003 داشت یعنی کلید هایی که با زدن آنها زیر منوی مربوط به آن کلید ها نمایش داده شود یا حداقل کسی می داند که خاصیت Commandbar با چه ریفرنسی در اکسس قابل دسترسی است به تعبیر ساده تر ما بتوانیم خاصیت commandbar را به یک متغیر نسبت دهیم
Dim cbr as commandbar

[ali190]

سلام
منظورت یه همچین چیزیه؟
یاعلی

[amin_ir]

سلام
منظورت یه همچین چیزیه؟
یاعلی

با تشکر ، نصف راه را رفتی
ولی منظور من منوهایی است که مثلا در فرم اول اکسس 2003 موجود میباشد.در فرم مذکور دو عدد دگمه به نام های objects و Groups هست که با زدن یک بار زیر منوی آن باز شده و با دوباره زدن آن زیر منو جمع می شود.

[ali190]

سلام

ولی منظور من منوهایی است که مثلا در فرم اول اکسس 2003 موجود میباشد.در فرم مذکور دو عدد دگمه به نام های objects و Groups هست که با زدن یک بار زیر منوی آن باز شده و با دوباره زدن آن زیر منو جمع می شود.
منظورت رو متوجه نمیشم
فرم اول اکسس2003 ؟!!!
بیشتر و واضحتر توضیح بده
یاعلی

[pi2tar]

سااااااام
ایشون منظورشون اینه :
http://www.howtogeek.com/wp-content/uploads/2007/05/WindowsLiveWriter/CreateAReportinMSAccess_11171/Access_1.png
کلید های Objects و Groups :بامزه:
نههههههه؟:اشتباه:

[masoud903]

سلام
دوست عزیز شما میتونید با استفاده از خاصیت Visible و کدنویسی ساده این کارو براحتی انجام بدید
یه مقدار از کداش به این شکله

Private Sub Detail_Click()
Me.BOX.Visible = False
Me.LBLform.Visible = True
Me.LBL1.Visible = False
Me.LBL2.Visible = False
Me.LBL3.Visible = False
Me.LBL4.Visible = False
Me.LBL5.Visible = False
Me.LBL6.Visible = False
Me.LBL7.Visible = False
Me.Lbl8.Visible = False
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
Me.BOX.Visible = False
Me.LBLform.Visible = True
Me.LBL1.Visible = False
Me.LBL2.Visible = False
Me.LBL3.Visible = False
Me.LBL4.Visible = False
Me.LBL5.Visible = False
Me.LBL6.Visible = False
Me.LBL7.Visible = False
Me.Lbl8.Visible = False
Private Sub lble_Click()
Me.Box3.Visible = True
Me.lbl20.Visible = True
Me.lbl21.Visible = True
Me.lbl22.Visible = True
Me.lbl23.Visible = True
Me.lbl24.Visible = True
End Sub

[jack007]

این نمونه رو از تو همین سایت گرفتم متاسفانه یادم نیست کدو یک از دوستان این شاهکار رو خلق کرده بود:تشویق::تشویق::تشویق::تشو� �ق::تشویق:
خواسته شما تو این نمونه هست..

[amin_ir]

این نمونه رو از تو همین سایت گرفتم متاسفانه یادم نیست کدو یک از دوستان این شاهکار رو خلق کرده بود:تشویق::تشویق::تشویق::تشو� �ق::تشویق:
خواسته شما تو این نمونه هست..

با تشکر .
دقیقا این همون چیزی است که دنبالش میگشتم ( البته باید برم ببینم در ماژولها چه کد هایی نوشته ).
من فکر میکردم که شاید این گونه منوها توسط OCX های خاصی طراحی می شود.
به هر حال 100 با رتشکر از شما و بقیه دوستان

[c4soft]

سلام دوست عزیز amin_ir
کاش به خاطر تلاش دوستان کلید تشکر رو هم کلیک میکردید تا باعث دلسردی نشه
متشکرم

[amin_ir]

سلام دوست عزیز amin_ir
کاش به خاطر تلاش دوستان کلید تشکر رو هم کلیک میکردید تا باعث دلسردی نشه
متشکرم
باور کن من کلید تشکر را برای همه زده بودم ولی نمی دونم چرا عمل نکرد ، وگرنه این خیلی ناجوانمردانه است که دوستان این همه زحمت بکشند و من بی خیال از کنارش بگذرم.
به هر حال بازم ممنون از همه