언어 [VB] [CD-ROM] CD-ROM 열고 닫기
2005.08.21 10:41
1. 모듈에 다음과 같은 API Function을 선언합니다
Declare Function mciSendString Lib "winmm.dll"
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
위의 코드에서 에러가 발생할 경우 winmm.dll 이 없어서 입니다.
그럴경우 winmm.dll 을 윈도우디렉토리밑에 시스템디렉토리에 복사
를 하셔야
합니다.
2. 폼을 하나 추가시킨후 폼에 두개의 CommandButton 을 올려놓습니
다.
그리고 각각의 CommandButton 에 다음과 같이 코딩하십시요.
Private Sub Command1_Click()
Dim lngReturn As Long
Dim strReturn As Long
' CD ROM 을 OPEN 한다
lngReturn = mciSendString("set CDAudio door open",
strReturn, 127, 0)
End Sub
Private Sub Command1_Click()
Dim lngReturn As Long
Dim strReturn As Long
' CD ROM 을 CLOSE 한다
lngReturn = mciSendString("set CDAudio door closed",
strReturn, 127, 0)
End Sub
3. 위와 같이 코딩을 한후 실행을 하고 CommandButton1 을 클릭하면
CD ROM 이 열리고 다시 CommandButton2 를 클릭하면 CD ROM 이
닫히는 것을
볼수 있을 것입니다.
Declare Function mciSendString Lib "winmm.dll"
Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
위의 코드에서 에러가 발생할 경우 winmm.dll 이 없어서 입니다.
그럴경우 winmm.dll 을 윈도우디렉토리밑에 시스템디렉토리에 복사
를 하셔야
합니다.
2. 폼을 하나 추가시킨후 폼에 두개의 CommandButton 을 올려놓습니
다.
그리고 각각의 CommandButton 에 다음과 같이 코딩하십시요.
Private Sub Command1_Click()
Dim lngReturn As Long
Dim strReturn As Long
' CD ROM 을 OPEN 한다
lngReturn = mciSendString("set CDAudio door open",
strReturn, 127, 0)
End Sub
Private Sub Command1_Click()
Dim lngReturn As Long
Dim strReturn As Long
' CD ROM 을 CLOSE 한다
lngReturn = mciSendString("set CDAudio door closed",
strReturn, 127, 0)
End Sub
3. 위와 같이 코딩을 한후 실행을 하고 CommandButton1 을 클릭하면
CD ROM 이 열리고 다시 CommandButton2 를 클릭하면 CD ROM 이
닫히는 것을
볼수 있을 것입니다.
댓글 0
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 31 | MSN 주소를 알려주세요. [3] | MrGeek | 2006.09.16 | 85 |
| 30 | [소스첨부] 인자값 변경. | 청연 | 2006.09.14 | 59 |
| 29 | 주석제거 프로그램 (수정) | 청연 | 2006.09.13 | 128 |
| 28 | ★C언어 처음 하시는분들 보세요.. [3] | 청연 | 2006.09.13 | 202 |
| 27 |
2. Direct로 그림그리기!
[1]  | 케이코냥이 | 2006.09.03 | 166 |
| 26 | 한국 위키백과를 추천합니다. | MrGeek | 2006.09.01 | 84 |
| 25 |
1. DirectX 8.0 sdk 해보기.
| 케이코냥이 | 2006.08.28 | 154 |
| 24 | C#.NET 유용한 포인터 사용법(1) - 스택기반의 배열 | 괴짜인간 | 2006.08.14 | 124 |
| 23 | VB/VC 키코드 리스트 [1] | 알닭 | 2006.04.23 | 202 |
| 22 | [울스M프로젝트?!-┏]Html 기초부터 탄탄히 ! -4- [2] | 울스M | 2006.02.08 | 215 |
| 21 | [울스M프로젝트?!-┏]Html 기초부터 탄탄히 ! -3- [2] | 울스M | 2006.02.08 | 160 |
| 20 | [울스M프로젝트?!-┏]Html 기초부터 탄탄히 ! -2- [5] | 울스M | 2006.02.08 | 173 |
| 19 | [울스M프로젝트?!-┏]Html 기초부터 탄탄히 ! -1- [2] | 울스M | 2006.02.08 | 558 |
| 18 | [비법은 아니지만] 비주얼 베이직에 이스터 에그 발견! [1] | StartCraft | 2006.02.06 | 287 |
| 17 | 질문이요. [2] | 블랙호크 | 2006.01.06 | 125 |
| 16 | 비트맵&브레인스토밍&프로그래밍의 도(道) [1] | 성령의분노 | 2006.01.04 | 307 |
| 15 | 자료구조 (3) - 링크리스트 [3] | 성령의분노 | 2006.01.01 | 209 |
| 14 | 자료구조 (2) - Queue[민프레스 강의정리] [1] | 성령의분노 | 2005.12.31 | 150 |
| 13 | 자료구조 (1) - Stack [민프레스 강의정리] | 성령의분노 | 2005.12.30 | 321 |
| » | [VB] [CD-ROM] CD-ROM 열고 닫기 | StartCraft | 2005.08.21 | 351 |