: 말 그대로 값을 받아들이는
것이다. 문제지를 받으면 상단에 입력요구사항이 나온다. 그리고
[입력화면설계]라고 예시까지 들어준다. 그런데 그걸 보고도 못 짠다면
비베로 공부했다고 말할 수도 없을 것이다.
제품코드 :
판매수량 :
계획수량 :
입력 출력
위와 같은 유형의 폼으로 작성한다.
제품코드, 판매수량, 계획수량은 label로 짜고, 거기에 해당되는 값은 text 박스로
값을 받으면 된다. 그리고 코드, 수량을 모두 한번씩 입력할 때마다 입력버튼을
누른다. 출력시에는 출력버튼을 누른다. 입력과 출력은 command 버튼으로
작성한다. 이렇게 입력폼은 아주 쉽게 만들어진다.
출력폼 역시 그다지 어렵지가
않다.
출력은 입력을 완성하고 나서
입력 이벤트(command_click)에서 print라고 출력할 수 있는 이벤트를 작성해주면
form2에서 자동적으로(물론 코딩을 해야하지만)뜨기 때문이다. 여기서 우리는
출력폼을 print로 짜는
것과 ms flex Grid control
박스에 아주 깨끗하게 출력을 하는 것도 만들어보겠다.
출력은 입력폼에 있는 입력 이벤트에서
지정을 해준다.
입력 버튼은 자료를 모두 입력하고
나서 이 버튼을 눌러주면 자료들이 모두 기억 장소안에 들어가게 된다.
그렇게 차곡차곡 쌓인 자료는
출력버튼을 눌렸을 때 소트(오름차순)가 되면서 출력내용을 한꺼번에 보여주는
것이다.
어쨌든 지금은 ms flex Grid
control 와 print 둘 다 배워 보겠다. 다음에 마음에 드는것 하나만 선택해서
사용하도록!
먼저 입력문에 관한 것이다.
입력문은 아까 위에서 언급한 바가 있다. 여기서 참고로 제품코드가 들어갈
text박스를 입력 command 박스보다 먼저 만들어주어야 나중에 편리하다.
왜냐면 그렇게 해주면 커서가 text1번 박스에서 깜빡거리기 때문이다. 그럼
상세하게 입력이 이루어지는 과정을 작성해보자.
입력
코딩
'아래는 폼이 로드될 때 발생하는
이벤트 프로시저이다. text박스들의 글자를 모두 디폴트 하기 위해서는 text1.text의
속성(property)를 지워주면 되지만 깜빡 잊고 지우지 못했을 경우는 이렇게 적어줘도
된다. Private Sub Form1_Load() Text1.Text = " " Text2.Text
= " " Text3.Text = " " End Sub
그리고 나머지는 모두 입력박스(command박스)에서
작성해준다. Private Sub 입력_Click() '입력설계시 들어가는 처리조건및
오류체크 '출력문은 아래와 같이 코딩한다. 아주 많은 것 같지만 전혀 그렇지
않다. 천천히 하나하나 살펴보면서 이해를 하자.
outfrm.g.Rows = outfrm.g.Rows
+ 1 'rows는 세로열이다. Flex Grid(이하
FG)를 사용하여 작성할 때 사용되는데 FG에서는 ' ROW 가 하나도 만들어지지
않는다. 그래서 일단 ROW를 하나 만들고 들어간다. 'outfrm은 출력폼의 이름(name)이다.
.g는 결과값이 출력될 FG의 이름(name)이다.
n = outfrm.g.Rows - 1 'FG의
폼의 세로열을 하나 줄여준다. 그렇게 해야 제대로 나오기 때문이다. 안그러면
한칸씩 밀려서 나온다.
' 아래와 같이 입력을 한다.
outfrm.g.TextMatrix(n, 2) = sga outfrm.g.TextMatrix(n, 3) = dal
outfrm.g.TextMatrix(n, 4) = tgc outfrm.g.TextMatrix(n, 5) = idan
outfrm.g.Rows = 7 '위의 형식을 보면 두번째칸에 sga라는 것이 들어간다.
그리고 계속해서 옆으로 변수들 각각의 값을 입력해 주는 것을 알 수 있을 것이다.
'아래의 폼은 출력문이 열때
들어있어야 할 내용이다. '첫번째 칸의 세로줄에 아래와 같이 6줄을 입력한다.
'TextMatrix : 출력되는 곳(메트릭스)
For i = 1 To 6 For j =
2 To 5 outfrm.g.TextMatrix(i, j) = 0 Next j Next i
'마지막으로 입력한 내용을 FG에
텍스트박스의 내용을 출력시킨다. outfrm.f.Rows = outfrm.f.Rows + 1
m = outfrm.f.Rows - 1 outfrm.f.TextMatrix(m, 0) = Text1.Text outfrm.f.TextMatrix(m,
1) = Text2.Text outfrm.f.TextMatrix(m, 2) = Text3.Text outfrm.f.TextMatrix(m,
3) = Text4.Text f : 입력할 FG의 이름이다.
'입력문을 클릭하면 모든 자료가
들어가고 나서 다시 텍스트박스는 빈 것으로 돌아와야 한다. Text1.Text
= "" Text2.Text = "" Text3.Text = ""
Text4.Text = "" Text1.SetFocus '촛점은
TEXT1.로 맞춰진 상태이다.
End Sub 어떤가? 조금은
어렵겠죠? 하지만 손에 익히면 아주 쉽게 작성을 할 수 있다. 그럼 가장
중요한 FG를 만드는 것을 해보자.
FG는 컨트롤 박스에 있다. 물론
처음 열면 없다. 왜냐하면 이것은 조금 특별한 컨트롤 박스라서 구성요소에서
찾아서 등록을 시켜 주어야 한다. 컨트롤박스위에서 마우스 오른쪽 버튼을
클릭해보자.
아래와 같이 찾아서 체크를 해주고
확인버튼을 눌러준다.
그러면 컨트롤 메뉴에 노란색의 객체가 나온다
출력폼
위와같이 폼을 구성했다.
그런데 글은 어떻게 적을까. 물론 속성에서 써줍니다. 속성창을 보면
name , cols , fixed cols , fixed rows, formatstring 의 다섯가지만 바꿔주면
된다. name은 앞에서 봤듯이 g혹은 f 라고 했을때 outform.g.rows 와
같이 이름이 들어가게 된다. fixed cols 와 fixed rows는 모두 1로 해준다.
1로 해준것은 formatstring에서 ^사업부서명|^수주계획액|^수 주
액|^달 성 률|^최종계약차수|^인당수주액 와 같이 입력해주어야 하기
때문이다. ^(삿갓)표시는 가운데정렬을 뜻한다. formatstring이 총 6개이기
때문에 cols 에서는 6으로 지정해주면 된다.
이제 출력박스가 남았다.
앞전에 출력박스는 소트와 모든 작업 내용을 보여준다고 했다. 그럼 어떻게
구성되는지 알아보자.
'아래는 출력박스(command박스)에
들어갈 소트의 내용이다. '배열을 두개 사용했음을 알 수 있을 것이다.
Dim i, j As Integer Dim t As String Dim k As Integer Dim n As
Integer
n = outfrm.g.Rows - 1
For i = 1 To n - 1 For j = i + 1 To n If Val(Text3.Text) > Val(Text3.Text)
Then For k = 0 To 5 t = outfrm.g.TextMatrix(i, k) '2차원
배열이다. outfrm.g.TextMatrix(i, k) = outfrm.g.TextMatrix(j, k)
outfrm.g.TextMatrix(j, k) = t Next k End If Next j Next
i
'출력문에 모든것을 보여준다.(show)
참고로 숨기는 것은 hide이다. outfrm.Show
마지막으로 종료버튼이다. 종료버튼의
이벤트 프로시저를 end 주면 모든 폼이 닫히지만 Unload outfrm 해준다고
하면 outfrm만 닫히게 된다.
