VB6.0 으로 쓴 런타임 시 "설정" 버튼을 클릭하고 사용자가 카운트다운 시간 (분) 을 입력할 수 있도록 Inputbox 입력 상자를 팝업합니다. 시작 버튼을 클릭하여 텍스트 상자에 남은 시간 (시간: 분: 초 형식) 을 표시하고 스크롤 막대의 스크롤 블록은 시간에 따라 왼쪽에서 오른쪽으로 이동합니다. 암담한 돌처럼 길다

암담한 펜 만큼 길다

암담한 묘목처럼 길다

개인 하위 양식 _load ()

Fen=val(0)

Miao=val(0)

Shi=val(0)

끝단 접합

개인 하위 명령 2_click ()

Fen=inputbox ("time ","input ","")

Fen & gt=val(60) 인 경우 shi=val(shi)+val( 1)

끝단 접합

개인 하위 명령 1_click ()

타이머 1. 작동 가능 = 참

끝단 접합

개인 하위 타이머 1_timer ()

모종<& gt 그렇다면 val(0)

모종 = 모종-1

만약 ... 끝날거야

Miao=val(0) 이고 fen<& gt 인 경우 val(0)

Fen=fen- 1

모종 =60- 1

만약 ... 끝날거야

Miao=val(0) 및 fen =val(0) 및 Shi<& gt 인 경우 val(0)

Shi=shi- 1

Fen=60- 1

모종 =60- 1

만약 ... 끝날거야

모종 =val(0) 이고 분 =val(0) 이고 시 =val(0) 이면

Msgbox ("시간이 얼마 남지 않았다!" " ) 을 참조하십시오

타이머 1. 활성화 = false

만약 ... 끝날거야

Text1.text = "remaining"&; 돌& "시간"&; 핀& "분"&; 모종& "초"

끝단 접합