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

[daniyal_1363]

سلام

چطوری میتونم یک پیغام MsgBox رو با استفاده از کد ببندم ؟

[MohammadGh2011]

سلام عليکم
منظورتون MsgBox يه برنامه ي ديگست يا نه MsgBox برنامه خودتون؟
شما ميتونيد هندل اون دکمه رو به دست بياريد و اونو ببنديد.

[محسن واژدی]

سلام علیکم
کد های پست زیر را هم بررسی کنید:
http://barnamenevis.org/showthread.php?348445-%D8%A8%D8%AF%D8%B3%D8%AA-%D8%A2%D9%88%D8%B1%D8%AF%D9%86-GetElementById-%DB%8C%DA%A9-%D8%B4%DB%8C-%D8%AF%D8%B1-web-browser&p=1537595&viewfull=1#post1537595

موفق باشید

[daniyal_1363]

سلام استفاده از کد های زیر رو بلدم





Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long




و این موضوع رو میدونستم که میتونم با این روش این کار رو انجام بدم - ولی من دنبال یه راه حل ساده تر بودم

اگه راه حل ساده تری نباشه بهتر خودم یه MsgBox سفارشی درست کنم که بتونم بدون دردسر ییندمش

نظر شما چیه ؟:متفکر:

[daniyal_1363]

سلام عليکم
منظورتون MsgBox يه برنامه ي ديگست يا نه MsgBox برنامه خودتون؟
شما ميتونيد هندل اون دکمه رو به دست بياريد و اونو ببنديد.

منظورم بستن MsgBox برنامه خودمونه - (برنامه در شبکه کار میکنه و وقتی از طرف کلاینت ها پیغامی فرستاده میشه و لازم که برای اون پیغام یه صفحه و بصورت Modal باز بشه باید Msgbox ها بسته باشه تا کار بصورت درست انجام بشه)

[محسن واژدی]

اگه راه حل ساده تری نباشه بهتر خودم یه MsgBox سفارشی درست کنم که بتونم بدون دردسر ییندمش

نظر شما چیه ؟ سلام علیکم
همچنین میتوانید از کنترل Task-Dialog موجود در کامپوننت "Xtreme Suite Controls" از مجموعه ابزار Code-Jock استفاده کنید، به عنوان مثال TaskDialog را به فرم اضافه و کد زیر را بررسی کنید:

Private Sub Command1_Click()
With TaskDialog1
.Reset
.RelativePosition = False
.AllowCancellation = False
.WindowTitle = "Exit"
.ContentText = "Are you sure to exit?"
.MainIcon = xtpTaskIconWarning
.CommonButtons = xtpTaskButtonYes Or xtpTaskButtonNo
.DefaultButton = xtpTaskButtonNo
.EnableCallbackTimer = True
.Tag = 20
'.RtlLayout = True
.ShowDialog
End With

End Sub

Private Sub TaskDialog1_Timer(ByVal MilliSeconds As Long, Reset As Variant)
TaskDialog1.Tag = Val(TaskDialog1.Tag) - 1
If Val(TaskDialog1.Tag) <= 0 Then TaskDialog1.ClickButton (xtpTaskButtonNo)
End Sub

Private Sub TaskDialog1_ButtonClicked(ByVal Id As Long, CloseDialog As Variant)
If Id = xtpTaskButtonYes Then Unload Me
End Sub


موفق باشید

[daniyal_1363]

سلام علیکم
همچنین میتوانید از کنترل Task-Dialog موجود در کامپوننت "Xtreme Suite Controls" از مجموعه ابزار Code-Jock استفاده کنید، به عنوان مثال TaskDialog را به فرم اضافه و کد زیر را بررسی کنید:


:قلب: ممنون اتفاقاً من از ابزار Code-Jock تو برنامه هام استفاده می کنم ...

فعلاً این بهترین روشه

ولی اینم روش خوبی نیست علتشم اینکه که برای دادن یه پیغام این همه خط باید کد نوشت (منظورم اینکه اگه بخوام تنظیمات خاصی بخوام انجام بدم روی Msgbox ام)

[M.T.P]

سلام
دوست عزیز پنجره Msgbox نمی تونه مانع از نمایش فرم دیگه ای بصورت Modal باشه .
البته در حالت دیزاین اینطوریه اما وقتی برنامه کامپایل میشه اینطوری نیست.
مشکل چیزی غیر از اینه؟ :متفکر:

[محسن واژدی]

ولی اینم روش خوبی نیست علتشم اینکه که برای دادن یه پیغام این همه خط باید کد نوشت (منظورم اینکه اگه بخوام تنظیمات خاصی بخوام انجام بدم روی Msgbox ام)
میتوانیم کدها را در کلاس قرار دهیم

[daniyal_1363]

سلام
دوست عزیز پنجره Msgbox نمی تونه مانع از نمایش فرم دیگه ای بصورت Modal باشه .
البته در حالت دیزاین اینطوریه اما وقتی برنامه کامپایل میشه اینطوری نیست.
مشکل چیزی غیر از اینه؟ :متفکر:

درسته ...
ولی اگه لازم باشه که تمامی فرم هام بصورت غیر Modal باز بشن چطور ؟


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

در هر صورت بازم محدودیت دارم