日期控件无法输入日期

张力山 2020-11-22 1784

碰到日期控件,用键盘可以输入日期,但是无法通过UiBot输入文本。_日期控件无法输入日期

最新回复 (2)
  • 康乙文 2020-11-23
    2
    提供一个思路,可以试下剪贴板复制黏贴,模拟键盘快捷键v黏贴
  • hjk_492937 2022-2-17
    3
    /*        Rem 出生时间
                                   
                                   Mouse.Action({"html":[{"id":"datepicker-*****","tag":"INPUT"}],"wnd":[{"app":"iexplore","cls":"IEFrame","title":"*"},{"cls":"Internet Explorer_Server"}]},"left","click",10000,{"bContinueOnError": False, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": True, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": False})
                                   sRet = Replace(value[6],"年","",True)
                                   sRet = Replace(sRet,"月","",False)
                                   sRet = Replace(sRet,"日","",False)
                                   
                                   时间字符串长度=LenB(sRet)
                                   For i = 0 To 时间字符串长度 Step 1
                                           第i个字符=SubString(sRet,i,i+1)
                                           
                                           iRet = Asc(第i个字符)
                                           Select Case iRet
                                                   
                                           Case 48
                                                   Keyboard.Press("Numpad 0", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
                                                   
                                           Case 49
                                                   Keyboard.Press("Numpad 1", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
                                                   
                                           Case 50
                                                   Keyboard.Press("Numpad 2", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
                                                   
                                           Case 51
                                                   Keyboard.Press("Numpad 3", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
                                                   
                                           Case 52
                                                   Keyboard.Press("Numpad 4", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
                                                   
                                           Case 53
                                                   Keyboard.Press("Numpad 5", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
                                                   
                                           Case 54
                                                   Keyboard.Press("Numpad 6", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
                                                   
                                           Case 55
                                                   Keyboard.Press("Numpad 7", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
                                                   
                                                   
                                           Case 56
                                                   Keyboard.Press("Numpad 8", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
                                                   
                                           Case 57
                                                   Keyboard.Press("Numpad 9", "press", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
                                                   
                                                   
                                                   
                                           End Select
                                           
                                           
                                           
                                           
                                           
                                           
                                   Next
返回
发新帖