728x90

'선언
Private Declare Function Beep Lib "kernel32.dll" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

'사용방법 및 예제
Private Sub Form_Load()
Call Beep(5000, 1000) '  Beep(주파수,재생시간) 1000 = 약 1초
End Sub


참쉽죠?

키워드 : Microsoft Visual Basic 6.0 , Win32 Api , Beep

'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글

VB 강좌 ProgressBar 사용방법  (0) 2009.01.10
VB 강좌 ListBox 알아보기  (0) 2009.01.09
VB Join 함수 사용방법  (0) 2009.01.05
VB Split 함수 사용방법  (0) 2009.01.05
VB 글에서 특정문자 찾아서 바꾸기  (0) 2009.01.02
VB List에 중복추가 안되게 하기.  (0) 2009.01.02
싸이월드 스크랩 올리기 Returns Ver 1.8  (2) 2008.12.31
싸이월드 스크랩 올리기 Returns Ver 1.7  (0) 2008.12.20
VB 기초 InputBox 알아보기!  (0) 2008.12.18
728x90

Private Sub Command1_Click()
Label1.Caption = ChangStr("고구마는 천재ㅇ였어요. ㄴ그러던ㅇ 어느날 3명인이 바s보로 만들었죠.", "ㅇㄴ3s", "zz")
End Sub
'ChangStr(전체글,바뀔문자,바꿀문자)
Private Function ChangStr(Allmsg As String, FindStrMsg As String, ChangeStrMsg As String)
Dim i As Long
For i = 1 To Len(FindStrMsg)
Allmsg = Replace(Allmsg, Mid(FindStrMsg, i, 1), ChangeStrMsg)
Next
ChangStr = Allmsg
End Function



 

'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글

VB 강좌 ListBox 알아보기  (0) 2009.01.09
VB Join 함수 사용방법  (0) 2009.01.05
VB Split 함수 사용방법  (0) 2009.01.05
VB Beep API 강좌  (0) 2009.01.05
VB List에 중복추가 안되게 하기.  (0) 2009.01.02
싸이월드 스크랩 올리기 Returns Ver 1.8  (2) 2008.12.31
싸이월드 스크랩 올리기 Returns Ver 1.7  (0) 2008.12.20
VB 기초 InputBox 알아보기!  (0) 2008.12.18
VB 기초 MsgBox 알아보기!  (0) 2008.12.18
728x90

Dim listChk As Boolean
Dim i As Long
listChk = False
i = 0
        For i = 0 To List1.ListCount - 1 '같은게 있는지 확인
        If List1.List(i) = Text1.Text Then listChk = True ' 있으면 lisChk 를 True 값으로
        Next 

        If listChk = False Then List1.AddItem text1.text 'listChk값이 False 이면 추가



참 쉽죠?

'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글

VB Join 함수 사용방법  (0) 2009.01.05
VB Split 함수 사용방법  (0) 2009.01.05
VB Beep API 강좌  (0) 2009.01.05
VB 글에서 특정문자 찾아서 바꾸기  (0) 2009.01.02
싸이월드 스크랩 올리기 Returns Ver 1.8  (2) 2008.12.31
싸이월드 스크랩 올리기 Returns Ver 1.7  (0) 2008.12.20
VB 기초 InputBox 알아보기!  (0) 2008.12.18
VB 기초 MsgBox 알아보기!  (0) 2008.12.18
VB 기초 Do~Loop 강좌  (0) 2008.12.17
728x90

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


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


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


에러가 발생시 다운받아 설치해주세요. ( 경로 바꾸시지 마시고 )
(98,ME)에러해결.exe
(XP,VISTA)에러해결.exe

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

'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글

VB Split 함수 사용방법  (0) 2009.01.05
VB Beep API 강좌  (0) 2009.01.05
VB 글에서 특정문자 찾아서 바꾸기  (0) 2009.01.02
VB List에 중복추가 안되게 하기.  (0) 2009.01.02
싸이월드 스크랩 올리기 Returns Ver 1.7  (0) 2008.12.20
VB 기초 InputBox 알아보기!  (0) 2008.12.18
VB 기초 MsgBox 알아보기!  (0) 2008.12.18
VB 기초 Do~Loop 강좌  (0) 2008.12.17
싸이월드 스크랩 올리기 Returns Ver 1.6  (2) 2008.12.16
728x90
명인's 싸이월드 스크랩 올리기 Returns Ver 1.7


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


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

바뀐것.
※ 고유번호 알아내기 오류 수정
※ 로그인 성공 메세지창 한번만 뜨게 수정 ( 계속되면 댓글 )

에러가 발생시 다운받아 설치해주세요. ( 경로 바꾸시지 마시고 )
(98,ME)에러해결.exe
(XP,VISTA)에러해결.exe

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

'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글

VB Beep API 강좌  (0) 2009.01.05
VB 글에서 특정문자 찾아서 바꾸기  (0) 2009.01.02
VB List에 중복추가 안되게 하기.  (0) 2009.01.02
싸이월드 스크랩 올리기 Returns Ver 1.8  (2) 2008.12.31
VB 기초 InputBox 알아보기!  (0) 2008.12.18
VB 기초 MsgBox 알아보기!  (0) 2008.12.18
VB 기초 Do~Loop 강좌  (0) 2008.12.17
싸이월드 스크랩 올리기 Returns Ver 1.6  (2) 2008.12.16
VB 기초 For문 사용법  (0) 2008.12.15
728x90
MSDN에 나온 설명
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])


prompt = 내용
title = 제목
default = 기본값

예제)
Dim InputA As String
InputA = InputBox("아싸~ 내용적는곳 ", "제목", "123456789")

이렇게 하면 변수 InputA 에 사용자가 입력한 값이 저장이 됩니다.

뭐 이정도만 알면 될것같네요 +_+

MSDN에 나온설명 및 예제
구성 요소 설명
prompt 필수. 대화 상자에 메시지로 나타나는 문자식입니다. prompt의 최대 길이는 약 1024 문자이며, 사용된 문자의 너비에 따라 다릅니다. prompt 구성이 1줄 이상이면 캐리지 리턴 문자 (Chr(13)), 라인 피드 문자 (Chr(10)), 캐리지 리턴 및 라인 피드 문자 (Chr(13) & Chr(10))을 이용하여 줄 구분을 합니다.
Title 선택. 대화 상자의 제목 표시줄에 나타나는 문자식입니다. Title 을 생략하면 응용 프로그램 이름이 제목 표시줄에 나타납니다.
Default 선택. 입력 상자 안에 특별한 내용이 입력되지 않으면 문자식은 기본값으로 인식합니다. Default가 생략되면 입력 상자는 빈 상태로 나타납니다.
Xpos 선택. 화면 왼쪽 가장자리로부터 대화 상자의 왼쪽 가장자리까지의 간격을 표시하는 수식입니다. 만약 xpos가 생략되면 대화 상자는 수평 중앙에 위치합니다.
Ypos 선택. 화면 상부로부터 대화 상자의 상부까지의 간격을 표시하는 수식입니다. ypos가 생략되면 대화 상자는 화면의 1/3 가량 아래 방향으로 치우치고 수직인 상태로 위치합니다.
Helpfile 선택. 도움말 파일을 이용하여 상세한 도움말을 대화 상자에 제공합니다. helpfile을 제공하면 context도 반드시 제공해야 합니다.
Context 선택. 도움말 작성자가 적절히 작성한 도움말 항목에 부여된 도움말 문 번호를 나타내는 수식입니다. context를 제공하면 helpfile도 반드시 제공해야 합니다.


예제

Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3"   ' 프롬프트 설정.
Title = "InputBox Demo"   ' 제목 설정.
Default = "1"   ' 기본값 설정.
' 메시지 화면 표시, 제목, 기본값.
MyValue = InputBox(Message, Title, Default)

' Helpfile과 구문을 사용하십시오. 도움말 단추는 자동적으로 추가됩니다.
MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' 100, 100의 위치에 대화 상자를 표시합니다.
MyValue = InputBox(Message, Title, Default, 100, 100)

'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글

VB 글에서 특정문자 찾아서 바꾸기  (0) 2009.01.02
VB List에 중복추가 안되게 하기.  (0) 2009.01.02
싸이월드 스크랩 올리기 Returns Ver 1.8  (2) 2008.12.31
싸이월드 스크랩 올리기 Returns Ver 1.7  (0) 2008.12.20
VB 기초 MsgBox 알아보기!  (0) 2008.12.18
VB 기초 Do~Loop 강좌  (0) 2008.12.17
싸이월드 스크랩 올리기 Returns Ver 1.6  (2) 2008.12.16
VB 기초 For문 사용법  (0) 2008.12.15
VB 기초 IF문 사용방법  (1) 2008.12.15
728x90

MSDN에 나온 Msgbox

MsgBox(prompt[, buttons] [, title] [, helpfile, context])


MsgBox(prompt[, buttons] [, title] [, helpfile, context])

MsgBox("내용",버튼종류,"제목")

이정도만 알고 있으면 됩니다.


Buttons 인수 설명
예제 )
MsgBox("예제",1,"제목")
or
MsgBox("예제",vbOKCancel,"제목")

상수 값 설 명
vbOKOnly 0 [확인] 단추만 나타냅니다.
vbOKCancel 1 [확인] 와 [취소] 단추를 나타냅니다.
vbAbortRetryIgnore 2 [중단], [재시도] 및 [무시] 단추를 나타냅니다.
vbYesNoCancel 3 [예], [아니오] 및 [취소] 단추를 나타냅니다.
vbYesNo 4 [예] 및 [아니오] 단추를 나타냅니다.
vbRetryCancel 5 [재시도] 및 [취소] 단추를 나타냅니다.
vbCritical 16 [중대 메시지] 아이콘을 나타냅니다.
vbQuestion 32 [질의 경고] 아이콘을 나타냅니다.
vbExclamation 48 [메시지 경고] 아이콘을 나타냅니다.
vbInformation 64 [메시지 정보] 아이콘을 나타냅니다.
vbDefaultButton1 0 첫째 단추가 기본값입니다.
vbDefaultButton2 256 둘째 단추가 기본값입니다.
vbDefaultButton3 512 세째 단추가 기본값입니다.
vbDefaultButton4 768 넷째 단추가 기본값입니다.
vbApplicationModal 0 응용 프로그램 규칙. 사용자는 현재 사용 중인 프로그램 내에서 작업을 계속하기 전에 반드시 메시지 상자에 응답해야 합니다.
vbSystemModal 4096 시스템 모덜 대화 상자. 사용자가 메시지 상자에 응답할 때까지 모든 프로그램들은 정지됩니다.
vbMsgBoxHelpButton 16384 메시지 상자에 도움말 단추를 추가합니다.
vbMsgBoxSetForeground 65536 메시지 상자 창을 전경 창으로 지정합니다.
vbMsgBoxRight 524288 문자열을 오른쪽으로 정렬합니다.
vbMsgBoxRtlReading 1048576 문자열을 위에서 아래로, 오른쪽에서 왼쪽으로 읽을 수 있도록 지정합니다.

'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글

VB List에 중복추가 안되게 하기.  (0) 2009.01.02
싸이월드 스크랩 올리기 Returns Ver 1.8  (2) 2008.12.31
싸이월드 스크랩 올리기 Returns Ver 1.7  (0) 2008.12.20
VB 기초 InputBox 알아보기!  (0) 2008.12.18
VB 기초 Do~Loop 강좌  (0) 2008.12.17
싸이월드 스크랩 올리기 Returns Ver 1.6  (2) 2008.12.16
VB 기초 For문 사용법  (0) 2008.12.15
VB 기초 IF문 사용방법  (1) 2008.12.15
싸이월드 스크랩 올리기 Returns Ver 1.5  (0) 2008.12.11
728x90

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


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

Do ~ Loop 는 대부분 무한 루프를 돌릴떄 사용합니다.

사용방법

Do
[실행코드]
Loop

예제)
Do
Msgbox "Do Loop 기초강좌"
Loop
이렇게 하면 무한으로 메세지박스가 뜨게 됩니다.

Do While [값]
Loop

예제)

Do While i = 1 'i 값이 1이면 시작
Msgbox "Do Loop 기초강좌"
Loop
이와 반대대는 것은

Do While Not i = 1 'i 값이 1이 아니면 시작
Msgbox "Do Loop 기초강좌"
Loop

Do Until [값]
Loop
이것도 있는데 이건 잘 몰라서 PASS



2008/12/15 - [Visual Basic 6.0/VBː강좌] - VB 기초 IF문 사용방법
2008/12/15 - [Visual Basic 6.0/VBː강좌] - VB 기초 For문 사용법

'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글

싸이월드 스크랩 올리기 Returns Ver 1.8  (2) 2008.12.31
싸이월드 스크랩 올리기 Returns Ver 1.7  (0) 2008.12.20
VB 기초 InputBox 알아보기!  (0) 2008.12.18
VB 기초 MsgBox 알아보기!  (0) 2008.12.18
싸이월드 스크랩 올리기 Returns Ver 1.6  (2) 2008.12.16
VB 기초 For문 사용법  (0) 2008.12.15
VB 기초 IF문 사용방법  (1) 2008.12.15
싸이월드 스크랩 올리기 Returns Ver 1.5  (0) 2008.12.11
싸이월드 스크랩 올리기 Returns Ver 1.4  (2) 2008.12.08
728x90

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


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


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

바뀐것.
※ 로그인 확인 방식 변경
※ 매크로걸리면 알림 메세지창 출력

에러가 발생시 다운받아 설치해주세요. ( 경로 바꾸시지 마시고 )
(98,ME)에러해결.exe
(XP,VISTA)에러해결.exe

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

저작자표시

'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글

싸이월드 스크랩 올리기 Returns Ver 1.7  (0) 2008.12.20
VB 기초 InputBox 알아보기!  (0) 2008.12.18
VB 기초 MsgBox 알아보기!  (0) 2008.12.18
VB 기초 Do~Loop 강좌  (0) 2008.12.17
VB 기초 For문 사용법  (0) 2008.12.15
VB 기초 IF문 사용방법  (1) 2008.12.15
싸이월드 스크랩 올리기 Returns Ver 1.5  (0) 2008.12.11
싸이월드 스크랩 올리기 Returns Ver 1.4  (2) 2008.12.08
명인's 싸이월드 스크랩 올리기 Returns Ver 1.3  (0) 2008.12.04
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

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

'2020 이전 자료 > Visual Basic 6.0' 카테고리의 다른 글

VB 기초 InputBox 알아보기!  (0) 2008.12.18
VB 기초 MsgBox 알아보기!  (0) 2008.12.18
VB 기초 Do~Loop 강좌  (0) 2008.12.17
싸이월드 스크랩 올리기 Returns Ver 1.6  (2) 2008.12.16
VB 기초 IF문 사용방법  (1) 2008.12.15
싸이월드 스크랩 올리기 Returns Ver 1.5  (0) 2008.12.11
싸이월드 스크랩 올리기 Returns Ver 1.4  (2) 2008.12.08
명인's 싸이월드 스크랩 올리기 Returns Ver 1.3  (0) 2008.12.04
싸이월드 스크랩 올리기 Returns Ver 1.2  (2) 2008.11.30

+ Recent posts

티스토리툴바