타이머 if문 질문이요
피어나
2023.04.01
Private Sub Command3_Click() Timer1.Interval = 5000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer() WebBrowser1.Refresh
If??? Then a = 1
End If
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim i As Long Do Until Not result =
result = WebBrowser1.Document.All(i).outerHTML
i = i + 1
Loop
Text1.Text = result
End Sub붉은 부분에서 if문을 서서 웹브라우저가 리프레쉬가 되면 a가 1이되고 아니면 0이라고 수치를 주고 싶은데어떻게 써야할지 모르겠어요..
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2697183 | VB 어떤거부터 공부해야 좋을까요 ? | 민아 | 2025-06-05 |
| 2697130 | 두개 이상의 프로그램이 있을시 종료 | 슬아 | 2025-06-05 |
| 2697103 | 센드키는 알겟는데 keypress이거는머에요 (1) | 헛장사 | 2025-06-04 |
| 2697073 | 컴퓨터 끄기를 누르면 끄기가 아니라 대기모드가 되게 하는방법좀요 (2) | 플랜 | 2025-06-04 |
| 2697051 | shell문을 입력후에클릭을하면..내문서가 열리네요...? (1) | 사이 | 2025-06-04 |
| 2697024 | 타이머사용 | 나나 | 2025-06-04 |
| 2696970 | text형식으로 저장할때 언어셋설정 질문!!! | 핫팬츠 | 2025-06-03 |
| 2696917 | sys우회 하는법 아시는분. . (1) | 촉촉한 초코칩 | 2025-06-03 |
| 2696883 | 비쥬얼베이직 스튜디오 6.0 파일 | 콩알눈 | 2025-06-02 |
| 2696854 | 윈웹 렉이 너무 심하네요 (1) | 팬지 | 2025-06-02 |
| 2696825 | 메이플스토리로그인(접속기) 소스오류, 해결바랍니다! | 키다리 | 2025-06-02 |
| 2696800 | 그누보드 multipart 게시글작성 (3) | HotPink | 2025-06-02 |
| 2696640 | 이 소스의 모듈좀 주세용 ;; | 파이팅 | 2025-05-31 |
| 2696591 | 다운프로그램 넣는법?? | 아놀드 | 2025-05-31 |
| 2696566 | 수정해도 그래요 ㅜㅜ 다시한번 제발 이것좀 해결해주세요 ㅜ | 하늘빛눈망울 | 2025-05-30 |
| 2696513 | 텍스트 활성 방법 좀... | 힘찬 | 2025-05-30 |
| 2696466 | ExitWindow함수로 컴퓨터 끄는 방법좀요 | 가장 | 2025-05-29 |
| 2696441 | 기억이안나서그런데 ㅠㅠ | 란새 | 2025-05-29 |
| 2696412 | 리스트뷰 에 체크 할수 있게 하는법좀요;;;ㅠ. | PinkPearl | 2025-05-29 |
| 2696380 | 질문이요 제발 답변좀요 ㅠㅠ | 은G | 2025-05-29 |