VBA: как ждать загрузки страницы

Question

VBA: как ждать загрузки страницы

изменить

 return inflater.inflate(R.layout.input_fgmt, container, false);

на

 return InputFragmentView ;

Также измените с помощью этого:

translate_button.setOnClickListener(new View.OnClickListener()
{
    @Override
    public void onClick(View view)
    {
        Log.d("Test", "onClickListener ist gestartet");
        Toast.makeText(getActivity().getApplicationContext(), "Test", Toast.LENGTH_LONG).show();
        saveInString();

    }
});

и импортируйте в качестве импорта android.view.View ;

1

html vba

задан Dusan Radovanovic 17 January 2019 в 03:30

2 ответа

Другие вопросы по тегам:

html vba

Похожие вопросы:

score 0 · Answer 1

Если IE.ReadyState и IE.Busy не работают, вы можете просто проверить элемент, который, как вы знаете, будет существовать после загрузки страницы, и добавить API Sleep, чтобы вы не стали быстрое испытание Fname, пока не будет ничего.

Спящий API равен

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

. Затем измените While-Wend на

Do Until Not Fname Is Nothing
    Set Fname = IE.document.getElementByID("firstname")
    Sleep 1000 '<- make this however long you want it to wait in ms
Loop

.

score 0 · Answer 2

Я предпочитаю добавить тестирование по временной петле на наличие элемента, поскольку это позволяет вам выйти раньше, если найден элемент, и, следовательно, потенциально более эффективно, чем жестко закодированное время ожидания, которое всегда будет завершено.

Dim t As Date, ele As Object
Const MAX_WAIT_SEC As Long = 10 '<==Adjust wait time

While ie.Busy Or ie.readyState < 4: DoEvents: Wend
t = timer
Do 
    DoEvents
    On Error Resume Next
    Set ele = IE.document.getElementByID("firstname")
    If Timer - t > MAX_WAIT_SEC Then Exit Do
    On Error GoTo 0
Loop While ele Is Nothing

If Not ele Is Nothing Then
    'do something 
End If