-
-
-
-
엔터키 사용할 때 다음으로 넘어가기
- 아래의 이벤트 프로시저는 키보드를
눌렀을 때이다.
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As
Integer)
'키보드의 엔터키를 누르면 text 박스 2번으로 가는 것이다.
If KeyCode = vbKeyReturn Then
Text2.SetFocus
End If
End Sub
-
-
메세지 박스 꾸미기
- '아래는 닫을지의 여부를 ok
와 cancel로 받는다.
'닫기의 디폴트는 ok로 가 있는다. ok를 클릭하면
문은 닫힌다.
If MsgBox("닫을까요?", vbOKCancel, "종료창")
= vbOK Then
end
End If
- '위와 같은 방법으로 예, 아니오를
써줄 수도 있다.
If MsgBox("닫을까요?", vbYesNo, "종료창")
= vbYes Then
end
End If
- '위의 두가지를 종합해서 예,
아니오, 취소를 만들어 보자
If MsgBox("strMessage", vbYesNoCancel)
= vbYes Then
end
End If
- if msgbox("메시지 박스"
,vbinformation, "안녕하세요~") then
end
end if
- 메시지 박스의 형식은 아래와
같이 한다.
msgbox(prompt, buttons, title, helpfile, contet)
-
- ** 아래와
같이 아주 다양한 것을 사용할 수 있다. **
- vbOKOnly :OK
button only.
VbOKCancel :
OK and Cancel buttons.
VbAbortRetryIgnore :Abort,
Retry, Ignore buttons.
VbYesNoCancel :Yes,
No, Cancel buttons.
VbYesNo :Yes
and No buttons.
VbRetryCancel :Retry
and Cancel buttons.
VbCritical :Critical
Message icon.
VbQuestion :Warning
Query icon.
VbExclamation :Warning
Message icon.
VbInformation :Information
Message icon.
VbdefaultButton1 :
첫 번째 버튼을 디폴트로 지정
VbdefaultButton2 :
두 번째 버튼을 디폴트로 지정
VbdefaultButton3 :
세 번째 버튼을 디폴트로 지정
VbdefaultButton4 :
네 번째 버튼을 디폴트로 지정
-
- ** 초기값은 아래와 같이 선언할 수 있다.
**
- vbOK :
OK 버튼을 눌렀을 경우
vbCancel :
Cancel 버튼을 눌렀을 경우
vbAbort :
Abort 버튼을 눌렀을 경우
vbRetry :
Retry 버튼을 눌렀을 경우
vbIgnore :
Ignore 버튼을 눌렀을 경우
vbYes :
Yes 버튼을 눌렀을 경우
vbNo :
No 버튼을 눌렀을 경우
-
- ** 다음은 코딩 예이다.**
- dim result as integer, a as integer, b as
integer
a = text2.text
b = text3.text
result = msgbox(text1.text,
a+b, text4.text)
if result = 1 then
label1.caption= "ok버튼"
Elseif result = 2 then
label1.caption= "cancel버튼"
Elseif
result = 3 then
label1.caption= "abort버튼"
Elseif result
= 4 then
label1.caption= "ready버튼"
Elseif result = 5
then
label1.caption= "ignore버튼"
Elseif result = 6 then
label1.caption= "no버튼"
end if
end sub
-
-
콤보박스
- : 드롭다운 리스트 목록 중에서 특정한 사항을
선택하는 기능을 한다.
private sub form_load()
combo1.additem "친구"
combo1.additem "우정"
combo1.additem "사랑"
combo1.additem "돈"
- private sub combo1_click()
label1.caption=combo1.text
& "을(를) 선택하였습니다."
label1.fontsize = 20
end
sub
-
-
리스트박스
- : 나열한 목록중에
하나 또는 여러개를 선택하는 기능을 한다.
private sub form_load()
list1.additem "친구"
list1.additem "우정"
list1.additem
"사랑"
list1.additem "돈"
end sub
- private sub list1_click()
label1.caption=list1.list(list1.listindex)
& "을(를) 선택하였습니다."
label1.fontsize = 20
end
sub
-
-
수평스크롤 바
- : 수평으로 범위를 나타냄
hscroll 의 속성창에서
크기를 min 0 max 100
- private sub hscroll1_change()
text1.text=
hscroll1.value
end sub
- 글자 크기 변화
private sub hscroll1_change()
text1.fontsize= hscroll1.value
end sub
-
-
수직스크롤 바
- : 수직으로 범위를 나타냄(상동)
