누워서 코딩하는 개발자

아래소스는 사용자가 주민번호를 입력할때 생일이 자동으로 입력되도록 해주라는 요구사항이였는데 아래와 같이 만들면 되겠다. 포커스를 이해하자.

Private Sub Jumin_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles mskJumin.LostFocus
    Dim strSex As String
    Dim strBirth As String

    strSex = Mid(mskJumin.CtlText, 8, 1)
    Select Case strSex
        Case "1", "3"
            cboSex.SelectedIndex = 1
        Case "2", "4"
            cboSex.SelectedIndex = 2
    End Select

    If mskJumin.CtlText <> "" Then '주민번호 자동생성
        mskBirth.CtlText = Format(Val("19" + MSVB.Left(mskJumin.CtlText, 6)), "####-##-##")
    End If
End Sub

VB로 실무를 하다보면 사용자 요구사항 중에 빈번하게 나오는 요구사항들은 편리성인데 그중 하나가 파일을 저장할때 다이얼로그 박스가 나오면서 파일명이 기입되게 하는 부분인데 무심코 만든 코딩보다는 신경써서 만들어 놓아야 할것이다. 아래는 해당코드인데 자신에 맡게 변경해서 사용하면 된다.

    Private Sub SaveFile()

        SaveFileDialog1.Title = "TEST"
        SaveFileDialog1.DefaultExt = "xls"
        SaveFileDialog1.Filter = "Excel Files|*.xls|All Files|*.*"
        SaveFileDialog1.FilterIndex = 1
        SaveFileDialog1.FileName = Format(Now(), "yyyyMMdd") + "_" + "Titel명"
        SaveFileDialog1.ShowDialog()

        If SaveFileDialog1.FileName = "" Then Exit Sub

        Dim strExt As String
        strExt = System.IO.Path.GetExtension(SaveFileDialog1.FileName)
        strExt = strExt.ToUpper()

        If strExt = ".XLS" Then
            파일저장 함수 호출
        End If

    End Sub

p.s 모든 언어가 마찬가지 겠지만 이런 섬세한 부분까지 챙겨준다면 사용자는 프로그램을 만들어준 개발자를 계속 찾을것이다.

Dim RS As Recordset

RS = TBOpen(strQUERY, True)

If Not RS.EOF Then
    Try
        Dim img As Object = RS.Fields("IMG").Value
        If img Is Nothing Then
   
        ElseIf IsDBNull(img) Then
            .Cells(35, 14).CellType = Nothing
        Else
            Dim strm As System.IO.Stream = New System.IO.MemoryStream(CType(img, Byte()))
            Dim img1 As Bitmap = New Bitmap(strm)
            Dim imgType As New FarPoint.Win.Spread.CellType.GeneralCellType
            imgType.BackgroundImage = New FarPoint.Win.Picture(img1, FarPoint.Win.RenderStyle.Stretch, Color.White, FarPoint.Win.HorizontalAlignment.Center, FarPoint.Win.VerticalAlignment.Center)  ' img1  'New Picture(Image.FromStream(s))
            .Cells(35, 14).CellType = imgType
        End If
   
    Catch ex As Exception
   
    End Try

End If

밑줄그은 부분이 중요하다. 스트림으로 저장된 데이터를 이미지 타입인 비트맵으로 변환하는 과정이므로 유심히 보고 실행해 보자.

여러분께 다시 한번 당부드릴 것은 만약 해도해도 이해가 안 되는 부분이 있으면 그냥 흘려버리고 다음 내용으로 넘어가라는 것입니다.

하지만 현재 실무에 있는 많은 개발자 분들도 이렇게 공부했으며, 이렇게 함으로써 포기하지 않고 계속 공부해 나갈 수 있는 것입니다.

이해가 안됐던 부분은 해당 분야에 익숙해지고, 뒤에 나오는 부분을 섭렵하다 보면 저절로 이해가 되는 경우가 다반사 입니다.

필자가 우려하는 것은 여러분이 나무에 붙은 잎의 잎맥과 솜털이 보이지 않는다고 해서 전체적인 숲을 보는 것을 포기하는 것입니다.

만약 여러분이 이 책이 이끌어 주는 대로 끈기를 가지고 공부하여 이 책을 마스터하게 되면 여러분은 최소한 ASP.NET 2.0의 전체적인 숲을

볼 수 있으며 중급으로 나아가기 위한 초석을 마련할 수 있을 것입니다.