نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

موضوع: بستن msgbox

  1. #1


    آخرین بازدید
    2022/12/25
    تاریخ عضویت
    March 2015
    محل سکونت
    کرمان
    نوشته ها
    55
    امتیاز
    118
    سپاس
    297
    سپاس شده
    66 در 19 پست
    تعیین سطح نشده است

    بستن msgbox

    سلام خدمت همه عزیزان سایت هنگامی که شرط برقرار میشه یه مسیج باکس نمایش داده میشه که باید با کلیک پنجره را بست حالا اگر میشه بدون کلیک بصورت چند ثانیه ای نمایش داده بشه...
    باز هم ممنون از پاسخ شما کاربران گرامی.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

    با سلام
    از این کد میتونید استفاده کنید
    کد PHP:
    Private Sub CommandButton1_Click()
     
    Dim AckTime As IntegerInfoBox As Object
        Set InfoBox 
    CreateObject("WScript.Shell")
        
    AckTime 3
        Select 
    Case InfoBox.Popup("پنجره بعد از 3 ثانيه به طور اتوماتيک بسته خواهد شد"_
        AckTime
    "close msg box in 3 seconds"0)
            Case 
    1, -1
                
    Exit Sub
        End Select
    End Sub 




  4. #3


    آخرین بازدید
    تاریخ عضویت
    June 2014
    محل سکونت
    خوزستان-بهبهان
    نوشته ها
    1,496
    امتیاز
    6803
    سپاس
    4,206
    سپاس شده
    3,844 در 1,281 پست
    تعیین سطح نشده است

    یک فایل ضمیمه میکنم
    در سلول a1 یک مقدار عددی صحیح وارد کنید زوج یا فرد بودن رو بصورت msgbox نشان خواهد
    کد PHP:
    Private Sub CommandButton1_Click()
    Dim AckTime As IntegerInfoBox As Object
        Set InfoBox 
    CreateObject("WScript.Shell")
        
    AckTime 3
        
        
    If Range("a1"Mod 2 1 Then
            Select 
    Case InfoBox.Popup("پنجره بعد از 3 ثانيه به طور اتوماتيک بسته خواهد شد"_
        AckTime
    "عدد فرد ميباشد"0)
            Case 
    1, -1
                
    Exit Sub
        End Select
        
    Else
            
    Select Case InfoBox.Popup("پنجره بعد از 3 ثانيه به طور اتوماتيک بسته خواهد شد"_
        AckTime
    "عدد زوج ميباشد"0)
            Case 
    1, -1
                
    Exit Sub
        End Select
        End 
    If
    End Sub 
    فایل ضمیمه گردید
    فايل هاي پيوست شده فايل هاي پيوست شده




  5. #4


    آخرین بازدید
    2018/05/03
    تاریخ عضویت
    October 2014
    محل سکونت
    جنوب
    نوشته ها
    351
    امتیاز
    3436
    سپاس
    2,033
    سپاس شده
    1,229 در 331 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط amirghadiri نمایش پست ها
    سلام خدمت همه عزیزان سایت هنگامی که شرط برقرار میشه یه مسیج باکس نمایش داده میشه که باید با کلیک پنجره را بست حالا اگر میشه بدون کلیک بصورت چند ثانیه ای نمایش داده بشه...
    باز هم ممنون از پاسخ شما کاربران گرامی.
    با درود
    دوست عزیز بنده با استفاده از یک فرم و یک سری کد در واقع زیربرنامه ای به نام Payam_Hoshdar نوشتم که کافیه در یک رویداد و یا هر جای دیگه که خواستین از این زیربرنامه بصورت خیلی ساده استفاده کنید. فقط کافیه هر جا نیاز به پیام داشتین به عنوان مثال به شکل زیر استفاده کنید:
    کد PHP:
    Payam_Hoshdar "This Message Auto close after 3 second" 
    فایل نمونه رو مربوط به اکسل های 32 و 64 بیتی بصورت جداگانه ضمیمه کردم.
    امیدوارم واستون مفید واقع بشه. اگر مشکلی یا سوالی بود در خدمتم.
    فايل هاي پيوست شده فايل هاي پيوست شده


  6. #5


    آخرین بازدید
    2022/12/25
    تاریخ عضویت
    March 2015
    محل سکونت
    کرمان
    نوشته ها
    55
    امتیاز
    118
    سپاس
    297
    سپاس شده
    66 در 19 پست
    تعیین سطح نشده است

    از استاد گرامی اقای ابوتراب متشکرم واقعآ بهترین راه حل ها را ارائه میدهند تا ما کاربران ساده از تجربیات انها بیاموزیم هر جواب مسئله پر از ترفندهای جدید و اموختنیست .
    از خداوند متعال برای همه عزیزان کارکنان محترم و کاربران ارزوی همیشه پیروز و سربلند.



اطلاعات موضوع

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

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. msgbox
    توسط pedro در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 5
    آخرين نوشته: 2017/04/18, 23:40
  2. خواندن از طریق msgbox
    توسط میثم66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 9
    آخرين نوشته: 2015/01/21, 11:27
  3. چاپ در msgbox
    توسط میثم66 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2014/12/16, 01:50
  4. تنظیمات نمایشی در کادر های پیغام - MsgBox
    توسط Juliet در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 6
    آخرين نوشته: 2014/07/05, 15:46
  5. محدود کردن تعداد دفعات باز شدن msgbox
    توسط pedro در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2013/03/14, 15:15

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد