سوال: قرار دادن چک باکس بر روی مسیج باکس VB ؟؟ [بایگانی]

سپهر-111

جمعه 03 شهریور 1391, 15:38 عصر

سلام اساتید بزرگوار:قلب:

بعضی موقع ها تو برنامه برای یک اتفاقی که رخ میدهد ، و میخواهیم کار بر را مطلع کنیم، یک مسج باکس را نمایش میدهیم و کاربر پس از مطلع شدن ، بر روی ان کلید میکند .
پس از گذشت چند بار استفاده از نرم افزار ، دیگر نیازی نیست که کار بر هردفعه ان پیغام را ببیند.
مثل خیلی از برنامه ها که یه چک باکس دارن (دیگر این پیغام را نشان نده) من هم میخوام همچین خاصیتی رو به مسیج باکس خود ویبی اضافه کنم
حالا سوال ؟؟؟
چطور میشه یک چک باکس به خود ویبی اضافه کرد که بشه پیغام(دیگر این پیغام را نشان نده)را اضافه کنیم؟؟؟

باتشکر از توجه اساتید گرامی:تشویق:

SlowCode

جمعه 03 شهریور 1391, 17:46 عصر

برای این کار خودت باید یه مسیج باکس درست کنی بعد مقدار چک باکس "دیگر این پیغام را نشان نده" رو ذخیره کنه و اگه تیک داشت فرم رو unload کنه.

سپهر-111

جمعه 03 شهریور 1391, 18:01 عصر

برای این کار خودت باید یه مسیج باکس درست کنی بعد مقدار چک باکس "دیگر این پیغام را نشان نده" رو ذخیره کنه و اگه تیک داشت فرم رو unload کنه.

سلام
ایا خود VB این امکان رو نداره که یه چک باکس به مسیج باکسش اضافه کنیم؟!

SlowCode

جمعه 03 شهریور 1391, 18:29 عصر

با تابع setparent شاید بشه ولی به نظر من به دردسرش نمی ارزه، بهتره خودت یه کنترل خوب با امکانات دلخواه خودت رو درست کنی، اگر هم نمیتونی یه جستجو کن توی سایت قبلا چندتا کنترل گذاشته بودن. اما چیزی که توی میخوای رو من توی اونها ندیدم پس باید خودت بنویسی.
خیلی آسونه شروع کن اگه مشکلی داشتی بپرس.:چشمک:

بهروز عباسی

جمعه 03 شهریور 1391, 19:33 عصر

درود
شرمنده من دیگه VB کار نمی کنم و روی سیستمم نبود که تست کنم اما این کد رو توی کاسه کوزم داشتم،شاید مشکلت رو حل کنه.
Option Explicit

Sub chek_em()
Dim obj As OLEObject

For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CheckBox.1" Then
If obj.Object.Value = True Then
MsgBox obj.Name & " is checked - check your info!"
End If
End If
Next obj

End Sub
موفق باشید.

setroyd

جمعه 03 شهریور 1391, 19:58 عصر

فکر میکنم یه REFRENS اینجا باید ADD میشده که شما نذاشتی اسمشو بگو که خطا نگیره ؟

سپهر-111

جمعه 03 شهریور 1391, 20:24 عصر

درود
شرمنده من دیگه VB کار نمی کنم و روی سیستمم نبود که تست کنم اما این کد رو توی کاسه کوزم داشتم،شاید مشکلت رو حل کنه.
Option Explicit

Sub chek_em()
Dim obj As OLEObject

For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CheckBox.1" Then
If obj.Object.Value = True Then
MsgBox obj.Name & " is checked - check your info!"
End If
End If
Next obj

End Sub
موفق باشید.

سلام
ممنون
چطوری ازش استفاده کنم؟

SlowCode

جمعه 03 شهریور 1391, 20:42 عصر

درود
شرمنده من دیگه VB کار نمی کنم و روی سیستمم نبود که تست کنم اما این کد رو توی کاسه کوزم داشتم،شاید مشکلت رو حل کنه.
Option Explicit

Sub chek_em()
Dim obj As OLEObject

For Each obj In ActiveSheet.OLEObjects
If obj.progID = "Forms.CheckBox.1" Then
If obj.Object.Value = True Then
MsgBox obj.Name & " is checked - check your info!"
End If
End If
Next obj

End Sub
موفق باشید.

میشه یه توضیحی در مورد کدتون بگید؟ مطمئنی که این کد کار ایشون رو راه میندازه!

بهروز عباسی

جمعه 03 شهریور 1391, 21:53 عصر

میشه یه توضیحی در مورد کدتون بگید؟ مطمئنی که این کد کار ایشون رو راه میندازه!
گفتم که توی سورس کدهام بود و الان خیلی وقته VB کار نمی کنم و روی سیستم نداشتم تست کنم.شرمنده

بهروز عباسی

جمعه 03 شهریور 1391, 22:33 عصر

دوست عزیز لینک های زیرو هم ببین.
[RESOLVED] checkbox in a message box (http://www.vbforums.com/showthread.php?434097-RESOLVED-checkbox-in-a-message-box)

http://stackoverflow.com/questions/1040413/how-do-you-make-a-msgbox-with-a-do-not-ask-this-again-or-dont-ask-me-again

http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/2fa7e3e3-f55f-4c0d-bcf5-c7278af1d730

star_star

جمعه 03 شهریور 1391, 23:35 عصر

یه مسیج باکس خودت درست کن ! به برنامهه های معروف هم اگه دقت کنی اکثرا مسیج باکس ندارن یه فرمه که روش یه چک باکسه !