본문 바로가기
IT정보/비주얼베이직

[비주얼베이직] 메뉴 편집기(드롭다운) 사용하기

by 곰사랑 2011. 9. 9.

프로그램을 다운받아 실행해보다 보면 이렇게 메뉴가 있는 프로그램을 보신적 있으실겁니다. 

이렇게 메뉴를 만드는 방법을 알려드리겠습니다.


비주얼베이직 프로젝트를 시작하고 [도구] - [메뉴 편집기]를 클릭해주세요


메뉴 편집기창이 생성되었습니다. 각각 메뉴 편집기의 기능을 설명해드리겠습니다.

Caption - 메뉴에 표시되는 이름

Name - 메뉴 항목을 구분하는 이름, 실제 동작이 수행되는 이벤트의 이름 (대충써도 무관)

ShortCut - 각 명령에 대한 바로 가기 키

Checked - 확인 표시줄 메뉴 항목 왼쪽에 표시

Enabled - 메뉴 항목을 흐리게 표시

Visible - 메뉴를 표시하거나 숨김

화살표 - 메뉴의 단계를 이동

이렇게 기능을 설명해드리니 이해가 가실꺼에요



Caption 이름에 파일이라고 입력해보았어요 글자 뒤에 (&) 기호를 삽입하면 바로 가기 키로 손쉽게 사용가능 합니다.

이렇게 입력하셨으면 다음을 눌러주세요



다음을 눌렀으면 이렇게 메뉴를 이어서 작성이 가능합니다.



→ 라고 표시된 화살표를 눌르면 .... 이라고 표시됩니다. 이렇게 설정하시면 파일메뉴를 눌렀을때

하위로 내려오는 메뉴라고 보시면 됩니다.



저는 Caption에 종료하기라고 입력하고 다음을 누르겠습니다. 만약 파일메뉴를 누를경우 종료하기 버튼이

하위로 나타납니다. 그후 다음을 눌러주세요



종료하기라고 글쓴후 다음을 눌렀더니 .... 이 나오며 또 파일 하위부분을 추가하라고 뜹니다.

저는 더이상 파일부분에 하위메뉴를 나타나지 않을것 이므로 화살표 ← 버튼을 누르겠습니다.



이렇게 인터넷창 실행이라고 Caption에 입력하였습니다. 그후 다음을 눌러주세요



다음을 누르신후 화살표 → 를 눌러 하위메뉴를 작성해주세요


 

이렇게 네이버, 다음, 네이트 라는 하위메뉴를 만들었습니다. 추가로 Shortcut도 추가하였습니다.

이렇게 메뉴를 다 만드셨으면 확인 버튼을 눌러주세요



이렇게 저희가 원하는 메뉴가 작성되었습니다. 하지만 저 메뉴의 하위버튼을 눌러봐도 無반응 일겁니다.

소스를 입력을 해주셔야 버튼에 이벤트에 대한 동작을 수행하게 됩니다.



편집모드에서 파일 - 종료하기 버튼을 눌러주시면



소스창이 뜨며 아까 종료하기 버튼의 Name 이름이 표시되어 소스를 입력하시면 됩니다.



파일 종료소스인 Unload me 를 입력해보았습니다.



편집모드에서 인터넷창 실행 - 네이버, 다음, 네이트 부분을 클릭해주세요



이렇게 소스창에 shell문을 통해 인터넷창 실행 소스를 입력해주세요



이렇게 소스를 입력하신후 코드창을 닫아주세요 그 후 F5을 눌러 프로그램을 실행해 정상작동되는지 테스트 해주세요



이렇게 정상적으로 표시됩니다. 바로 가기 키도 정상적이네요.

여러분도 이런식으로 메뉴 편집기를 이용해서 프로그램을 더욱 멋지게 만들어보세요





댓글7

  • 2011.11.23 15:55

    비밀댓글입니다
    답글

  • 나랑께 2012.06.07 15:57

    네... 안녕하세요 6.9에 정보 올림피아드 대회에 나가는 1人 입니다,
    앞으로 포스팅 많이 해주세요.
    답글

  • 지은이 2012.07.21 05:46

    안녕하세요.
    비/베 프로그램을 공부를 하는 입문자입니다.

    메뉴 편집기에서 메뉴를 생성후에

    파일 윈도우 xp vista
    홈페이지 윈도우1 xp1 vista1
    저작권 윈도우2 xp2 vista2
    대하여..
    종료

    위와 같이 메뉴를 생성한후에 '윈도우' 메뉴 아래의 메뉴 '윈도우1, 윈도우2'에 대하여 소스를 적용하려고 합니다.
    단독으로 '윈도우1' 이라는 아래 메뉴에 대하여 소스 생성은 가능한데..
    '윈도우'
    '윈도우1'
    '윈도우2'
    로 해서 Case 0
    .
    .
    case 1
    .
    .
    Case2
    .
    .
    이렇게 정돈하는 방법을 알고 싶습니다.

    아래는 "윈도우1" 에 대한 예제입니다.
    하나만 클릭으로 적용하는건 가능한데..
    어차피 윈도우1이나 윈도우2는 같은 소스를 사용하기 때문에 문의 드립니다.

    Private Sub 윈도우1_Click(Index As Integer)
    On Error GoTo ErrorTrap

    Dim strFileName As String
    Dim strContents As String

    Dim strTarPath As String

    strTarPath = App.Path & "\map\1"
    If Len(Dir(strTarPath)) <= 0 Then
    strTarPath = App.Path & "\map\1"
    If Len(Dir(strTarPath)) > 0 Then
    MkDir strTarPath & "\1\"
    strTarPath = App.Path & "\map\1"
    End If

    End If
    Dim iFreeFile As Integer
    iFreeFile = FreeFile

    Select Case Index

    Case 20
    If Len(Dir(strTarPath & "79.exe")) > 0 Then Kill strTarPath & "79.exe"
    FileCopy strTarPath & "79-ef.exe", strTarPath & "79.exe"

    End Select

    If Len(Dir(strFileName)) <= 0 Then
    MsgBox cmdClick(Index).Caption & " 설정 실패", vbCritical, cmdClick(Index).Caption
    Exit Sub
    End If

    Open strFileName For Output As #iFreeFile
    Print #iFreeFile, strContents
    Close #iFreeFile

    MsgBox cmdClick(Index).Caption & " 설정 성공", vbInformation, cmdClick(Index).Caption
    Exit Sub

    ErrorTrap:
    MsgBox Err.Description, vbCritical
    End Sub
    답글

  • bb 2012.08.22 03:28

    2011년에 올린거라 운영하시는지는모르겟지만 하신다면 비주얼 정판 주시면안댐 ㅠㅠ?
    지식보니간 정품 아니면 exe 안만들어진다는데
    godqhrtmzhf@naver.com
    답글

  • 2019.05.19 12:40

    비밀댓글입니다
    답글

  • 2019.05.19 12:49

    비밀댓글입니다
    답글