프로그램을 다운받아 실행해보다 보면 이렇게 메뉴가 있는 프로그램을 보신적 있으실겁니다.
이렇게 메뉴를 만드는 방법을 알려드리겠습니다.
비주얼베이직 프로젝트를 시작하고 [도구] - [메뉴 편집기]를 클릭해주세요
Caption - 메뉴에 표시되는 이름
Name - 메뉴 항목을 구분하는 이름, 실제 동작이 수행되는 이벤트의 이름 (대충써도 무관)
ShortCut - 각 명령에 대한 바로 가기 키
Checked - 확인 표시줄 메뉴 항목 왼쪽에 표시
Enabled - 메뉴 항목을 흐리게 표시
Visible - 메뉴를 표시하거나 숨김
화살표 - 메뉴의 단계를 이동
Name - 메뉴 항목을 구분하는 이름, 실제 동작이 수행되는 이벤트의 이름 (대충써도 무관)
ShortCut - 각 명령에 대한 바로 가기 키
Checked - 확인 표시줄 메뉴 항목 왼쪽에 표시
Enabled - 메뉴 항목을 흐리게 표시
Visible - 메뉴를 표시하거나 숨김
화살표 - 메뉴의 단계를 이동
이렇게 기능을 설명해드리니 이해가 가실꺼에요
이렇게 입력하셨으면 다음을 눌러주세요
하위로 내려오는 메뉴라고 보시면 됩니다.
하위로 나타납니다. 그후 다음을 눌러주세요
저는 더이상 파일부분에 하위메뉴를 나타나지 않을것 이므로 화살표 ← 버튼을 누르겠습니다.
이렇게 메뉴를 다 만드셨으면 확인 버튼을 눌러주세요
소스를 입력을 해주셔야 버튼에 이벤트에 대한 동작을 수행하게 됩니다.
여러분도 이런식으로 메뉴 편집기를 이용해서 프로그램을 더욱 멋지게 만들어보세요
'IT정보 > 비주얼베이직' 카테고리의 다른 글
[비주얼베이직] 메뉴 편집기(드롭다운) 사용하기 (7) | 2011.09.09 |
---|---|
[비주얼베이직] 리스트뷰(Listview) 사용하기 - (2) (4) | 2011.08.17 |
[비주얼베이직] 리스트뷰(Listview) 사용하기 - (1) (3) | 2011.08.17 |
[비주얼베이직] 트레이 사용하기 (10) | 2011.08.12 |
[비주얼베이직] 비밀번호 필터링, 패스워드 감추기 (7) | 2011.08.08 |
[비주얼베이직] 파일 관련 컨트롤 사용하기 (12) | 2011.08.01 |
비밀댓글입니다
답글
센드메일 질문 안받습니다.
네... 안녕하세요 6.9에 정보 올림피아드 대회에 나가는 1人 입니다,
앞으로 포스팅 많이 해주세요.
답글
안녕하세요.
비/베 프로그램을 공부를 하는 입문자입니다.
메뉴 편집기에서 메뉴를 생성후에
파일 윈도우 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
답글
2011년에 올린거라 운영하시는지는모르겟지만 하신다면 비주얼 정판 주시면안댐 ㅠㅠ?
지식보니간 정품 아니면 exe 안만들어진다는데
godqhrtmzhf@naver.com
답글
비밀댓글입니다
답글
비밀댓글입니다
답글