비베로 제어판 각 화면 호출

출처: http://cafe.naver.com/walnuts/50

'VB의 Shell함수를 하용하여 윈도우의 DLL을 직접실행하여 윈도우의 제어판을 호출할수
'할수있다
'먼저 폼하나를 만들고 거기에 listbox를 하나 추가한다음
'아래의 소스를 작성하여 실행하여 본다

[CODE]Option Explicit Private Sub Form_Load() List1.AddItem " 시스탬등록정보" List1.AddItem " 새하드웨어 추가 마법사" List1.AddItem " 프린터추가 마법사" List1.AddItem " 프로그램 추가/삭제 마법사" List1.AddItem " 윈도우 설치 마법사" List1.AddItem " 시동디스크작성 마법사 " List1.AddItem " 날짜/시간" List1.AddItem " 표준시간" List1.AddItem " DISPLAY 정보" List1.AddItem " 화면보호기" List1.AddItem " 화면배색" List1.AddItem " 화면설정" List1.AddItem " 마우스등록정보" List1.AddItem " 키보드등록정보" List1.AddItem " 프린터 폴더" List1.AddItem " 폰트 폴더" List1.AddItem " 모뎀설치 마법사" List1.AddItem " 오디오" List1.AddItem " 비디오" List1.AddItem " 미디" List1.AddItem " CD" List1.AddItem " 멀티미디어 고급" List1.AddItem " 소리 설정" List1.AddItem " 네트워크 구성" List1.AddItem " 프로그램 연결" List1.AddItem " 암호변경" List1.AddItem " 국가별 설정" List1.AddItem " 국가별 설정 숫자" List1.AddItem " 국가별 설정 통화" List1.AddItem " 국가별 설정 시간" List1.AddItem " 국가별 설정 날짜" End Sub Private Sub List1_DblClick() Select Case List1.ListIndex Case 0 ' 제어판폴더를 연다.. Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @0", vbNormalFocus Case 1 ' 새 하드웨어 추가마법사 원도우를 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus Case 2 ' 프린터 추가마법사 원도우를 띄운다.. Shell "rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter", vbNormalFocus Case 3 ' 프로그램 추가/삭제 등록정보원도우에서 설치/삭제 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", vbNormalFocus Case 4 ' 프로그램 추가/삭제 등록정보원도우에서 Windows설치 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2", vbNormalFocus Case 5 ' 프로그램 추가/삭제 등록정보원도우에서 시동디스크 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3", vbNormalFocus Case 6 ' 날짜/시간 등록정보원도우에서 날짜및 시간 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,2", vbNormalFocus Case 7 ' 날짜/시간 등록정보원도우에서 표준 시간 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1", vbNormalFocus Case 8 ' 디스플레이등록정보에서 배경화면원도우를 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus Case 9 ' 디스플레이등록정보에서 화면보호기원도우를 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus Case 10 ' 디스플레이등록정보에서 화면배색원도우를 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus Case 11 ' 디스플레이등록정보에서 설정원도우를 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus Case 12 ' 마우스 등록정보 원도우에서 단추 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus Case 13 ' 키보드 등록정보 원도우에서 속도 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus Case 14 ' 프린터 폴더를 연다.. Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus Case 15 ' 폰트 폴더를 연다. Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus Case 16 ' 새 모뎀설치 원도우를 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL modem.cpl,,add", vbNormalFocus Case 17 ' 멀티미디어 등록 정보 원도우에서 오디오 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0", vbNormalFocus Case 18 ' 멀티미디어 등록 정보 원도우에서 비디오 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1", vbNormalFocus Case 19 ' 멀티미디어 등록 정보 원도우에서 MIDI tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2", vbNormalFocus Case 20 ' 멀티미디어 등록 정보 원도우에서 CD 음악 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3", vbNormalFocus Case 21 ' 멀티미디어 등록 정보 원도우에서 고급 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4", vbNormalFocus Case 22 ' 소리 등록 정보 원도우를 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", vbNormalFocus Case 23 ' 네트워크 원도우에서 네트워크 구성 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus Case 24 ' 연결 프로그램찾기 원도우를 띄운다.. Shell "rundll32.exe shell32.dll,OpenAs_RunDLL readme.tdt", vbNormalFocus Case 25 ' 암호등록정보 원도우에서 암호변경 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL password.cpl", vbNormalFocus Case 26 ' 국가별 설정 등록정보에서 국가별 설정 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", vbNormalFocus Case 27 ' 국가별 설정 등록정보에서 숫자 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1", vbNormalFocus Case 28 ' 국가별 설정 등록정보에서 통화 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2", vbNormalFocus Case 29 ' 국가별 설정 등록정보에서 시간 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3", vbNormalFocus Case 30 ' 국가별 설정 등록정보에서 날짜 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4", vbNormalFocus Case 31 ' 시스템 등록 정보 원도우에서 일반 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", vbNormalFocus Case 32 ' 시스템 등록 정보 원도우에서 장치관리자 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1", vbNormalFocus Case 33 ' 시스템 등록 정보 원도우에서 하드웨어 구성파일 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2", vbNormalFocus Case 34 ' 시스템 등록 정보 원도우에서 성능 tab을 띄운다.. Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3", vbNormalFocus End Select End Sub[/CODE]