728x90

예제위주로 대충 막~ 알려드리겠습니다.


아! 이렇게 사용하는거구나, 정도로만 알고 계시면 됩니다.


Dim i as long 'For문을 쓰기 위한 변수 선언
For i = 최소값 to 최대값
next

'이해가 안간다구요?

예제1)
For i = 1 to 10
' 1부터 10까지 i값을 1씩 증가시켜주면서 10번 반복해라 .
msgbox i '메세지출력 변수 i 값
next

예제2)
For i = 1 to 10 step 2 ' 1부터 10까지 i값을 2씩 증가시켜주면서 5번 반복해라 .
msgbox i '메세지출력 변수 i 값
next


'자 허무하게 끝나버렸어요. 참쉽죠.?ㅋㅋ
728x90

예제위주로 대충 막~ 알려드리겠습니다.


아! 이렇게 사용하는거구나, 정도로만 알고 계시면 됩니다.

IF 만약에~ 라는 뜻이죠..

If text1.Text = "비주얼" Then
'If 만약에 Text1.text에 내용이 "비주얼" 이면 ~~하라 라는 소스입니다.
'If문을 쓸때 End If 문을 써줘야 하는데 한줄 IF문은 안써주셔도 무방합니다

예) 2줄일경우 End If 문을 꼭 써줘야 한다.
If text1.Text = "비주얼" Then
MsgBox "~~"
End If

예) 1줄일경우에는 쓸필요가 없다.
If text1.Text = "비주얼" Then MsgBox "~~"


'해석을 해봅시다
If text1.Text = "비주얼" Then '만약에 Text1.text 내용이 비주얼이면
MsgBox "~~" ' 메세지박스를 출력한다.
Else 'Text1.text 내용이 비주얼이 아니면
msgbox "!!" '메세지박스를 출력한다.
End If

'Else 는 만약에~ 이것이 아니면 이걸해라~ 라는겁니다..
'대충 이렇게만 알아두세요 +_+ 저도 자세한건 몰라요.ㅎㅎ

'또, ElseIf 라는것이 있는데 이것또한 Else + If 를 합쳐놓은것입니다.. 쫄거없어요!!
'else 도 알고 if도 알고 뭐 문제될건없습니다

'자 예제를 보시죠

'자 해석해 봅시다.
If text1.Text = "비주얼" Then '만약에 Text1.text 비주얼이면
MsgBox "~~" '메세지~
ElseIf text1.Text = "베이직" Then '첫번째 IF문에서 나온 "비주얼"이 아니고, "베이직"이면,
Msgbox "!!" '메세지!
else '이도저도 아니면
msgbox "@@" '메세지!!
End If

'자 막무가네..강좌 끝.

728x90


명인's 싸이월드 스크랩 올리기 Returns Ver 1.5


사용방법은 프로그램내에 [사용법] 버튼을 클릭하시면 나옵니다.


싸이월드 스크랩 올리기 Returns Ver 1.5 다운로드
로그인한 아이디에 [블로그]가 개설이 되어있지 않으면
프로그램을 정상적으로 사용하지 못합니다.
그러니, 꼭 블로그를 개설하시고 사용해주세요.

에러가 발생시 다운받아 설치해주세요. ( 경로 바꾸시지 마시고 )

문의 - 네이트온(kyh3423a@naver.com) & 싸이월드(www.cyworld.com/57080859)
728x90

명인's 싸이월드 스크랩 올리기 Returns Ver 1.4

 

사용방법은 프로그램내에 [사용법] 버튼을 클릭하시면 나옵니다.


싸이월드 스크랩 올리기 Returns Ver 1.4 다운로드
로그인한 아이디에 [블로그]가 개설이 되어있지 않으면
프로그램을 정상적으로 사용하지 못합니다.
그러니, 꼭 블로그를 개설하시고 사용해주세요.

에러가 발생시 다운받아 설치해주세요. ( 경로 바꾸시지 마시고 )

문의 - 네이트온(kyh3423a@naver.com) & 싸이월드(www.cyworld.com/57080859)
728x90
명인's 싸이월드 스크랩 올리기 Returns Ver 1.3


사용방법은 프로그램내에 [사용법] 버튼을 클릭하시면 나옵니다.


싸이월드 스크랩 올리기 Returns Ver 1.3 다운로드
로그인한 아이디에 [블로그]가 개설이 되어있지 않으면
프로그램을 정상적으로 사용하지 못합니다.
그러니, 꼭 블로그를 개설하시고 사용해주세요.

에러가 발생시 다운받아 설치해주세요. ( 경로 바꾸시지 마시고 )

문의 - 네이트온(kyh3423a@naver.com) & 싸이월드(www.cyworld.com/57080859)
728x90

명인's 싸이월드 스크랩 올리기 Returns Ver 1.2


사용방법은 프로그램내에 [사용법] 버튼을 클릭하시면 나옵니다.

싸이월드 스크랩 올리기 Returns Ver 1.2 다운로드
로그인한 아이디에 [블로그]가 개설이 되어있지 않으면
프로그램을 정상적으로 사용하지 못합니다.
그러니, 꼭 블로그를 개설하시고 사용해주세요.

에러가 발생시 다운받아 설치해주세요. ( 경로 바꾸시지 마시고 )

문의 - 네이트온(kyh3423a@naver.com) & 싸이월드(www.cyworld.com/57080859)
728x90
명인's 싸이월드 스크랩 올리기 Returns Ver 1.1


사용방법은 프로그램내에 [사용법] 버튼을 클릭하시면 나옵니다.

싸이월드 스크랩 올리기 Returns Ver 1.1 다운로드
로그인한 아이디에 [블로그]가 개설이 되어있지 않으면
프로그램을 정상적으로 사용하지 못합니다.
그러니, 꼭 블로그를 개설하시고 사용해주세요.

에러가 발생시 다운받아 설치해주세요. ( 경로 바꾸시지 마시고 )

문의 - 네이트온(kyh3423a@naver.com) & 싸이월드(www.cyworld.com/57080859)
728x90

명인's 싸이월드 스크랩 올리기 Returns Ver 1.0


사용방법

명인's 싸이월드 스크랩 올리기 Returns Ver 1.0 사용방법

1. 로그인을 한다.
2. 싸이 고유번호와, 글 고유번호를 입력한다 ( 사진첩 )
3. 시작한다.

PS. 제 번호.못지워요.. 이점을 유의해주셈!
15초에 한번입니다.

다운로드
1차 수정
ps. 블로그 만드셔야 돌아갑니다 .
: 문의 :
네이트온: kyh3423a@naver.com
싸이월드 미니홈피 : www.cyworld.com/57080859

명인's 싸이월드 스크랩 올리기 Returns Ver 1.0 - 에러 해결파일
728x90











FlashWindow API는 작업표시줄에 있는 프로그램목록을 깜빡(?)이는 API이다.

 
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FlashWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

Private Sub Command1_Click()
FlashWindow FindWindow(vbNullString, "네이버 카페 채팅"), 1 '켜짐
FlashWindow FindWindow(vbNullString, "네이버 카페 채팅"), 0 '꺼짐
End Sub

예제파일없음
728x90








Sleep API는 프로그램자체를 일정시간 정지시키는 API이다.

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


Private Sub Timer1_Timer()
Sleep 1000
MsgBox "첫번째로나오고 3초 정지후 두번째 메세지"
Sleep 1000
MsgBox "두번째로나오고"
End Sub ' Ctrl + Pause Break 로 빠져나오시길..^^*

예제파일없음

+ Recent posts