비주얼 베이직 1000~2000까지 1.5초 간격으로 출력

질문: 비주얼 베이직 1000~2000까지 1.5초 간격으로 출력 

2007-07-22 10:30

1000,1001,1002~2000까지 1.5초 간격으로 출력

Timer1.Interval

SendKeys 함수 사용해서 만들려고 하는데 넘힘들어요.

답변: re: 비주얼 베이직 1000~2000까지 1.5초 간격으로 출력

2007-07-23 00:25

Option Explicit Private i As Integer Private Sub Form_Load()      ' 1. 타이머 interval값은 1500(1초는 1000)로 준다.       ' 2. 타이머를 활성화시킨다.       Timer1.Interval = 1500      Timer1.Enabled = True      ' 처음 초기값을 1000으로 설정       i = 1000      Dim lReturn As Long      ' 노트패드를 실행실킨다.       lReturn = Shell("Notepad.exe", vbNormalFocus)      ' 노트패드를 활성화시킨다.       AppActivate lReturn      End Sub Private Sub Form_Unload(Cancel As Integer)      ' 타이머가 작동중이면 정지시킨다.       If Timer1.Enabled Then Timer1.Enabled = False End Sub Private Sub Timer1_Timer()      ' 메모장에 숫자를 뿌린다.       SendKeys CStr(i) & "{ENTER}", True      ' 숫자를 증가시킴       i = i + 1      ' 2000 까지 뿌렸으면 타이머 정지시킨다.       If i = 2001 Then Timer1.Enabled = False End Sub