<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ? | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      Access中可以使用WshShell.popup彈出自動關閉的消息窗體嗎?

      張頡 等級: 普通會員 積分:0 金幣:0 來自:普陀Access交流中心 發表于:2020-07-30 12:09:09  
      樓主

      下面同樣的代碼,在Excel中彈出的提示窗體可以自動關閉,為什么在Access中彈出的窗體就不能自動關閉呢?
      Sub AutoClose1()
      Dim objShell As Object
      Set objShell = CreateObject("Wscript.Shell")
      objShell.Popup "程序執行完畢,兩秒后關閉!", 2, _
      "自動關閉的消息框1", 64
      Set objShell = Nothing
      End Sub

       

      access培訓  誠聘access開發人員

          張頡
            獲得社區協助:請教問題(即發帖)1篇,其中獲得解決的0篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      張頡 等級:普通會員 積分:0 金幣:0 來自:普陀Access交流中心 發表于2020/7/31 12:14:11 
      1樓 得分: 0

      再次測試,發現在access中單獨使用這段代碼,是可以彈出并延時自動關閉消息窗口的。

      之所以之前彈出的窗體不能自動關閉,是因為代碼段放到了一個定時器事件內部了,代碼段見下面,猜想是popup代碼段沒有得到有別與窗體定時器的其它定時器。

      Private Sub Form_Timer()
         Dim objShell As Object
         Me.Label49.Caption = Now()
             If c = 0 Then
                 Me.Label41.ForeColor = 2366701
                 Me.Label41.Left = Me.Label41.Left + 500
                 If Me.Label41.Left >= Me.InsideWidth - Me.Label41.Width Then
                     Set objShell = CreateObject("Wscript.Shell")
                     objShell.PopUp "即將切換文字移動方向,1秒后提示窗體自動消失", 1, "提示", 64
                     Set objShell = Nothing
                     c = 1
                 End If
           Else
             Me.Label41.Left = Me.Label41.Left - 500
             Me.Label41.ForeColor = 12874308
             If Me.Label41.Left <= 500 Then
                Me.Label41.Left = 0
              End If
             
             If Me.Label41.Left <= 0 Then c = 0
           End If
      End Sub



          張頡
            獲得社區協助:請教問題(即發帖)1篇,其中獲得解決的0篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      張頡 等級:普通會員 積分:0 金幣:0 來自:普陀Access交流中心 發表于2020/7/31 12:17:22 
      2樓 得分: 0
      請問各位高手,如何讓定時器內部也可以運行另外的定時處理功能?

          張頡
            獲得社區協助:請教問題(即發帖)1篇,其中獲得解決的0篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.www.beijingfeeling.com/sitehelp.asp)。
      總記錄:2篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5