영어청취와 사업아이디어, 컴퓨터무료강의가 있는 곳

오늘은 MsgBox에 대해서 보다 심도있는 내용을 올려봅니다.
결과를 먼저 볼까요?

폼 1개, Button1, button2, Text1 박스 한 개를 이용해서 만들어 보았습니다.
각각의 Button컨트롤을 누르면 메시지 박스가 뜨도록 처리하였는데요.

먼저 Button1을 누르면
코드는
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim msg, button, title '메시지 박스 인수들에 넣어줄 변수 선언
        msg = "첫번째 테스트입니다. 줄을 바꿔볼까요?" & Chr(10) & "줄이 바뀌었네!!"
        button = vbYesNoCancel + vbInformation
        title = "메시지박스 첫번째 테스트"
        MsgBox(msg, button, title)

End Sub

두번째 버튼을 클릭하면

코드는
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim msg, button, title, response
        msg = "두번째 테스트입니다." & Chr(10) & "프로그래밍 배우기가 쉬운가요?
                   아니면 어려운가요?"
        button = vbYesNo + vbInformation
        title = "메시지박스 두번째 테스트"

        response = MsgBox(msg, button, title) '메시지 박스에서 버튼클릭결과를 받기 위함

        '메시지박스 결과에 따른 후속처리 요청하는 부분
        '이런 식으로 메시지 박스 선택한 것에 따라 DB에 데이터를 저장,삭제,조회 등
        '원하는 작업을 처리할 수 있도록 한다.
        If response = MsgBoxResult.Yes Then
            TextBox1.Text = "프로그래밍 고수가 될 소질이 있으시군요."
        Else
            TextBox1.Text = "열심히 하다보면 고수가 될 수 있을 겁니다."
        End If
End Sub

그냥 봐서는 모르겠지요.
자세히 알아 볼까요?

MsgBox 함수 정의
Public Function MsgBox( _

   ByVal Prompt As Object, _

   Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _

   Optional ByVal Title As Object = Nothing _

) As MsgBoxResult

Buttons 인수에 사용되는 상수

Title 인수는 메시지 박스의 타이틀을 나타냄

MsgBox 결과 상수(vB6.0 과 비교하여)

마지막으로 Chr(10)은 무엇인지 궁금할텐데요. 줄바꾸기를 해주는 겁니다.
그럼 그림으로 이해를 해볼까요?

이해가 되시는지요? 시간나실 때 직접 위와 같은 코드를 입력해 보시고 상수들도 변경해서 해보시고 자신만의 처리루틴을 만들어서 메시지박스 결과에 따라서
후속 작업을 해보도록 하는 것은 어떨까요?
그럼 오늘은 이정도로 마치겠습니다.

벌써 4번째 시간이군요.

오늘은 유용하게 사용할 수 있는 리스트박스와 콤보박스를 이용해서 제가 작년에
다녀온 우한보기 프로그램을 간단히 만들어 보았습니다.

따라하다보면 기본적인 사용법을 쉽게 익힐 수 있을 겁니다.
그럼 시작해 볼까요?

결과물을 먼저 볼까요?

1. 리스트박스에 선택했을 때 결과

2. 콤보박스에 선택했을 때의 결과

어떤 가요?  너무 쉬운가요?
이제 세부적인 부분을 한 번 알아 봅니다.

사용된 폼 컨트롤 속성정보

자 이제 코드를 입력해 볼까요?

먼저 리스트박스와 콤보박스에 선택할 수 있는 아이템을 등록해야 되겠지요.?
이것은 Form1_Load 이벤트에서 해주면 됩니다.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '폼이 로드될 때 리스트박스와 콤보박스 초기화
        '리스트박스에 아이템 정의
        ListBox1.Items.Add("호텔방")
        ListBox1.Items.Add("호텔 앞 전경")
        ListBox1.Items.Add("호텔 옆 전경")
        ListBox1.Items.Add("버스타는 곳")

        '콤보박스에 아이템 정의
        ComboBox1.Items.Add("고금대에서")
        ComboBox1.Items.Add("손문 동상")
        ComboBox1.Items.Add("장강 제 1철교 위에서")
        ComboBox1.Items.Add("황학루")

        '폼의 구분을 위해 폼에 추가했던 Label2, Labe3를 실행시보여주지 않기
        Label2.Visible = False
        Label3.Visible = False

End Sub

다음으로 리스트박스나 콤보박스에서 해당 아이템을 선택하면 픽쳐박스에 보여주도록 하는 부분은 어떻게 하면 될까요?
이것은 ListBox1_SelectedIndexChanged(블라블라), ComboBox1_SelectedIndexChanged(블라블라) 이벤트에서 해주면 됩니다.

- 리스트 박스관련
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        '리스트박스에서 선택된 것에 따라서 PictureBox2에 그림을 보여주기
        Select Case ListBox1.SelectedIndex
            Case 0
                PictureBox1.Image = System.Drawing.Image.FromFile _
                  ("E:\티스토리\무료강좌 및 교육\비주얼 베이직2008\강좌 4 리스트박스와 콤보박스
                    \4성호텔부근\호텔방.jpg")
                MsgBox("호텔방을 선택하셨네요. 4성급 호텔인데 좀 후지죠?")
            Case 1
                PictureBox1.Image = System.Drawing.Image.FromFile _
                  ("E:\티스토리\무료강좌 및 교육\비주얼 베이직2008\강좌 4 리스트박스와 콤보박스
                   \4성호텔부근\호텔앞 전경.jpg")
                MsgBox("호텔앞 전경을 선택하셨네요. 호텔 앞이 좀 시골틱합니다.")
            Case 2
                PictureBox1.Image = System.Drawing.Image.FromFile _
                  ("E:\티스토리\무료강좌 및 교육\비주얼 베이직2008\강좌 4 리스트박스와 콤보박스
                    \4성호텔부근\호텔옆 전경.jpg")
                MsgBox("호텔 옆 전경을 선택하셨네요. 호텔방에서 바라본 전경입니다. 여행사의 상술
                             에 속지말자.")
            Case 3
                PictureBox1.Image = System.Drawing.Image.FromFile _
                  ("E:\티스토리\무료강좌 및 교육\비주얼 베이직2008\강좌 4 리스트박스와 콤보박스
                    \4성호텔부근\버스타는 곳.jpg")
                MsgBox("버스타는 곳을 선택하셨군요. 버스비는 1위안, 2위안 2가지 입니다.^^")
        End Select

    End Sub

- 콤보박스관련
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        '콤보박스에서 선택된 것에 따라서 PictureBox2에 그림을 보여주기
        Select Case ComboBox1.SelectedIndex
            Case 0
                PictureBox2.Image = System.Drawing.Image.FromFile _
                  ("E:\티스토리\무료강좌 및 교육\비주얼 베이직2008\강좌 4 리스트박스와 콤보박스
                    \관광지\고금대에서.jpg")
                MsgBox("고금대에서를 선택하셨네요. 고금대는 우정과 관련된 역사적인 곳임")
            Case 1
                PictureBox2.Image = System.Drawing.Image.FromFile _
                  ("E:\티스토리\무료강좌 및 교육\비주얼 베이직2008\강좌 4 리스트박스와 콤보박스
                    \관광지\손문동상.jpg")
                MsgBox("손문동상을 선택하셨네요.손문은 쑨원이라고도 불리는데 중국의 국부이죠")
            Case 2
                PictureBox2.Image = System.Drawing.Image.FromFile _
                  ("E:\티스토리\무료강좌 및 교육\비주얼 베이직2008\강좌 4 리스트박스와 콤보박스
                    \관광지\장강제1철교위에서.jpg")
                MsgBox("장강제1철교위에서를 선택하셨네요. 1킬로미터가 넘는 긴다리입니다.")
            Case 3
                PictureBox2.Image = System.Drawing.Image.FromFile _
                  ("E:\티스토리\무료강좌 및 교육\비주얼 베이직2008\강좌 4 리스트박스와 콤보박스
                    \관광지\황학루.jpg")
                MsgBox("황학루를 선택하셨네요. 황학루, 후베이박물관과 함께 우한의 대표적인 명소지
                              요")
        End Select
End Sub

마지막으로 버튼 컨트롤에서 MsqBox의 조금더 발전된 기능을 넣은 부분
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MsgBox("본 프로그램이 유용하셨는지요? 유용하셨으면 격려차원에서 댓글도 남겨주시면 감사
                      하겠습니다.", MsgBoxStyle.YesNo)

        '프로그램 끝내기
        End
End Sub

이부분 출력 결과를 보면

이상으로 오늘의 강좌를 마칩니다.
열심히 하나 하나 익히셔서 좋은 프로그램 많이 만들어주세요.

참고로 Form1.vb 파일을 첨부합니다. 참고하세요.^^;;


궁금하신 사항이 있으시면 댓글이나 이메일로 문의를 주세요. 그럼 이만 마칩니다.

VS2008을 설치하고 MSSQL 2005 Express가 설치되었는데 어떻게 VB에서 DB를 컨트롤 할 수 있을까 고민하다가 찾은 것을 올립니다. 혹시라도 제 글에 부족한 부분이나 잘못된 부분이 있다면 댓글을 남겨주셔서 다른 분들과 제가 한 수 배울 수 있는 좋은 기회가 되길 기대해 봅니다.

컴퓨터에 설치된 Microsoft SQL Server 2005에 들어가시면 달랑 Configuration Tools만 있습니다.

Configuration Tools

여기서 SQL Server Configuration Manager를 선택


처음에는 SQL Server(SQLEXRPRESS)는 State가 Running 상태이지만 SQL Server Brower는 Stopped 상태이다.

SQL Server Browser 속성에서 Start Mode를 Stopped를 클릭하여 Automatic으로 변경하면 앞서 Configuration Manager에 Running으로 변경된다.

자 이제 비주얼 스튜디오 2008을 시작해서 새 프로젝트를 열어보자.

첫 번째를 선택하고 OK를 누른다.
Server Explore가 안보일 경우는 View메뉴에서 선택하거나 (Ctrl + ALT + S) 를 눌러서 보여주면 된다.

그 다음 Data Connection에 오른쪽 마우스 클릭 Add Connection…을 선택하면




































여기서 Data Source: Change를 선택하면

원하는 DATA의 유형을 변경하여 선택한다.

다음은 DATABASE를 만들어 보자.

이상으로 DB연결 관련한 부분들을 알아 보았고 최종적으로 아래와 같은 화면을 만날 수
있다.

MSSQL 2000의 EM(Enterprise Manager)가 포함된 것처럼 보인다
이상으로 Visual Studio 2008의 VB환경 DB연결의 한 부분을 알아보았다.
오늘도 프로그래밍에 밤샘을 하는 분들이 보신다면 너무 건강해치는 수준까지는 하시지
말길..

물론 직장에 따라 다르겠지만 제 경험상 아무리 열심히 밤샘을 하고 노력해도 그에 따른 보상보다는 잘하면 밥값은 하네 정도니까…  남는 건 몸이 망가진 씁쓸한 때가 있었습니다.

프로그램을 접은지 오랜만에 노트북도 구매한 겸 vista에 프로그램 환경을 구축해 보았는데
vista에는 visual studio 2005를 설치하다가 충돌이 생겨 설치가 안되어 2008을 깔아
visual Basic으로 간단한 예제를 하나 만들어서 환경이 어떻게 되는지 보았다.

[참고] visual studio 2005 설치하다 마지막 실패했을 때 순서대로 제거해줘야 할 프로그램 리스트

Visual Studio 2008 설치

여기서 나는 Visual Basic Development Settings 선택하고 Start Visual Studio 클릭


File메뉴에서 New Project를 선택하기 전에 Tools->Options를 클릭하여
프로젝트 저장 디렉토리 변경


여기서 Projects and Solutions 선택하여 저장할 디렉토리를 변경해준다.

이제 새로운 프로젝트를  눌러서 레이블 하나 만든 Test 파일을 만들어보면

예전의 Visual Basic 5, 6 환경에서 짠 경험이 있다면 쉽게 이해할 수 있는 환경처럼 보여졌다.
F5를 눌러 실행해보니 친근한 결과를 얻을 수 있었다.

이상으로 Visual Studio 2008을 설치해 보았다. (다시 삽질를 한번 해볼까? ^^;;)