منو با حرکت موس

[hooman_tt]

با سلام خدمت اساتید ارجمند
چند وقت پیش از یکی از انجمن ها فایل بسیار جالبی را دانلود کردم که هم اکنون نام سازنده آن را به خاطر نمی آورم که تشکر و قدردانی از ایشان بنمایم .
این فایل را به پیوست قرار میدهم .
و اما سوال بنده شاید بسیار پیش پا افتاده باشد ولی به هر حال خودم از حل آن عاجزم .
بنده جهت ساخت منو برای فایلم دقیقاً به همچین یوزرفرم زیبایی نیاز دارم ولی با تعداد دکمه های بیشتر و طراحی بزرگتر . آیا راهی وجود دارد که برای هر دکمه که حرکت موس روی آن را تعریف میکنیم فقط نام دکمه هایی را ذکر کنیم که باید نشان داده شوند و با یک دستور بتوان کلیه دکمه های دیگر را را حذف کرد ؟
یعنی طبق دستورات ذکر شده در خود این فایل فقط دستورات مشاهده ذکر شود ولی دستورات هاید کردن سایر دکمه ها فقط در یک سطر نوشته شود ؟
به طور مثال :
دستوری که برای دکمه Edit نوشته شده است به صورت زیر است :
Private Sub cmd4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
cmd2.Visible = False
cmd3.Visible = False
cmd7.Visible = True
cmd8.Visible = True
cmd9.Visible = True
cmd6.Visible = False
End Sub


آیا راهی وجود دارد که به صورت زیر نوشته شود ؟
Private Sub cmd4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
cmd7.Visible = True
cmd8.Visible = True
cmd9.Visible = True
؟؟؟؟؟؟؟؟؟؟؟
End Sub

یعنی به جای علامت سوال دستوری ذکر شود که همه دکمه های دیگر که نامشان (cmdX) است و نامشان در لیست فوق نیست hide شوند ؟

[VB.SOS]

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

[misammisam]

خوب ميتوني يه فانكشن براي هايد و يه فانكشنم براي نشان دادنش بسازي و اونو با call فراخواني بكني .

[hooman_tt]

اساتید محترم
با کمال تشکر از حضرات عالی
به استحضار میرسانم که بنده یه کاربر تازه وارد و با اطلاعات ضعیف در زمینه وی بی هستم.
اگر امکان دارد شما زحمت این کار را بکشید و بنده و امثال بنده با مهندسی معکوس از محضر شما اسنفاده کنیم .
بسیار ممنون و متشکر .

[mokaram]

این کار مربوط به فعالیت های استاد گرامی جناب کمیل عزیز می باشن ازشون می خوایم که نظر کارشناسیشون را اعلام بفرمایند

[hooman_tt]

استاد کمیل
دست به دامنتانیم قربان

[komeilex]

آقا به خدا شرمندم. من همین تازه متوجه شدم. نمی دونم چرا ایمیل نمیاد بابت ارسال موضوع جدید!!!!
آقا اول اینکه نیاز نیست شما برای هر کنترل دستور عدم نمایش منو هایی رو که نمی خواین نشون بدین رو بنویسین و فقط کافیه روی فرم یه دستور بنویسین و منوهایی رو که همیشه باید باشن رو ویزیبل کنین و اون زیر منو هایی که نباید دیده بشن رو مخفی کنین.
با این کار تو حرکت بین منو ها، زیر منوها حذف نمی شن. و فقط با حرکت موس روی قسمت خالی فرم زیر منو ها حذف میشن.
واما کد مورد نظر برای فایلی که قرار داده بودم.

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim ctl As Control
For Each ctl In Me.Controls
If TypeName(ctl) = "CommandButton" Then
ctl.Visible = False
End If
Next ctl
cmd1.Visible = True
cmd4.Visible = True
cmd5.Visible = True
CommandButton1.Visible = True
End Sub 

الان تو کد بالا cmd1 مربوط به فایل، cmd4 مربوط به ادیت و cmd5 مربوط به ویو و CommandButton1 مربوط به دکمه exit هستش که همیشه باس فعال باشن.

منو و حرکت موس.xlsm