I'm ALIVE

툴 박스를 이용한 UI의 생산성을 높여줄 수 있는 기발한 아이디가 돋보인다.

WPF, Winform, ASP.net까지 기본적으로 요구되는 다양한 UI ControlSet들을 몇번의 조작으로 손쉽게 완성한다.

게다가 Blend까지 지원하는 제품을 선보일 예정이라니... 놀랍다.
데모 Video clip만으로 신선하다.

시간을 갖고 좀 가지고 놀아 볼만한 가치가 있어 보인다. 와우~

http://machine.nukeation.com/default.aspx

(MDI Childform contains AxWebBrowser control can not be focused(activated) when this control is selected.)

비따 회원의 질문 중에 흥미로운 것이 있어 옮겨 본다.
윈폼 개발 중 WebBrowser 컨트롤을 사용할 경우 부득 WebBrowser Control 대신 기존 방식처럼 AxWebBrowser컨트롤(AxImp를 통한 RCW 생성을 통해)을 만들어 사용하게 된다.

이 경우 해당 폼이 MDI Child로 사용될 경우, MDI Form 내부에서 해당 웹브라우저 컨트롤을 사용자가 클릭했음에도 불구하고 타이틀바를 클릭하지 않는 이상 폼이 활성화 되지 않는 황당한 경우가 발생한다. 아마도 제대로 웹브라우저 RCW 코드에서 메세지 처리를 완벽하게 못 만들어 내는 것 같다.

Reflector로 까 봐야 자세히 알겠지만, 귀찮아서 생략한다. 대신 직감으로 WM_MOUSEACTIVATE 메세지를 가로채 해당 이벤트에서 컨트롤이 담겨진 폼을 찾아 Focus 받도록 메서드 날려준다.

소스는 초 간단. RCW - AxWebBrowser 컨트롤을 상속받아 WndProc 메서드를 재정의 해 준다.

Public Class AxFocusedBrowser
    Inherits AxSHDocVw.AxWebBrowser

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = &H21 Then 'WM_MOUSEACTIVATE 
            Dim parentObject As Object = Me.Parent
            Do While Not (TypeOf parentObject Is System.Windows.Forms.Form)
                parentObject = parentObject.Parent
            Loop
            parentObject.Focus()
        End If
        MyBase.WndProc(m)
    End Sub
End Class

아.. 깔끔한 VB 코드.. 난 이 Object 타입에 아무렇지 않게 메서드와 프로퍼티를 지정해 줄 수 있는 융통성이 좋다.
Dynamic VB!

(Moving focus to next cell when 'Enter' key is pressed in DataGridView)

비따 회원 중 한분이 DataGridView에서 데이터를 편집시 Enter Key를 입력하면 왜 다음 셀로 이동하지 않고 다음 행으로 옮겨 가는지, 여간 불편하지 않다라는 질문을 해 왔다.

왜 DataGridView에서는 Enter키를 입력하면 다음 행의 셀로 이동하는 것일까?
해답을 찾기 위해 일단 Reflector를 통해 DataGridView에서 EnterKey가 입력될 때 수행하는 동작이 들어있는 DataGridView의 ProcessEnterKey 를 열어 보았다.

<SecurityPermission(SecurityAction.LinkDemand, Flags:=SecurityPermissionFlag.UnmanagedCode)> _
Protected Function ProcessEnterKey(ByVal keyData As Keys) As Boolean
    Dim moved As Boolean = False
    Dim flag2 As Boolean = True
    Dim flag3 As Boolean = True
    If ((keyData And Keys.Control) = Keys.None) Then
        flag3 = False
        keyData = (keyData And Not Keys.Shift)
        flag2 = Me.ProcessDownKeyInternal(keyData, moved)
    End If
    If Not moved Then
        Dim dataGridViewCurrentCell As DataGridViewCell = Nothing
        If (Me.EditMode = DataGridViewEditMode.EditOnEnter) Then
            If (Me.ptCurrentCell.X <> -1) Then
                dataGridViewCurrentCell = Me.CurrentCellInternal
                Dim args As DataGridViewDataErrorEventArgs = _ 
                  Me.CommitEdit((dataGridViewCurrentCell), _ 
                  (DataGridViewDataErrorContexts.Commit Or _ 
                  DataGridViewDataErrorContexts.Parsing), _ 
                  DataGridViewValidateCellInternal.WhenChanged, _ 
                  False, False, False, False, False)
                If ((Not args Is Nothing) AndAlso args.ThrowException) Then
                    Throw args.Exception
                End If
            End If
        Else
            Me.EndEdit((DataGridViewDataErrorContexts.Commit Or 
            DataGridViewDataErrorContexts.Parsing), _
            DataGridViewValidateCellInternal.WhenChanged, False, False, _       
            False, False, False, True, True, True)
        End If
        If (Not flag3 OrElse Not Me.IsCurrentRowDirty) Then
            Return flag2
        End If
        dataGridViewCurrentCell = Nothing
        Dim x As Integer = Me.ptCurrentCell.X
        Dim y As Integer = Me.ptCurrentCell.Y
        If Me.IsInnerCellOutOfBounds(x, y) Then
            Return flag2
        End If
        If Me.OnRowValidating((dataGridViewCurrentCell), x, y) Then
            Return flag2
        End If
        If Me.IsInnerCellOutOfBounds(x, y) Then
            Return flag2
        End If
        Me.OnRowValidated((dataGridViewCurrentCell), x, y)
    End If
    Return flag2
End Function

다른 코딩들은 잘 분석해 보시고~ 여기서 붉은 색으로 표시되어 있는 부분을 살펴보면 짐작할 수 있듯 알아서~ 다음 행으로 CurrentCell을 이동시키는 코드가 들어있다.

이를 가로채기 위해서 일단 ProcessCmdKey 메서드를 Override 하기로 한다. ProcessCmdKey가 뭐냐구?
ProcessCmdKey 메서드란 컨트롤에서 명령키를 처리하기 위해 메세지를 전처리하는 동안 발생하는 메서드이다.(말이 어렵나? 나도 설명하기 어려워서 MSDN의 설명을 그대로 차용했다) 예기인 즉슨 컨트롤에 키가 입력되면 먼저 가로챌 수 있는 곳이라 생각하면 되겠다.

또 하나 처리해 줘야 할 메서드는 ProcessDataGridViewKey 이다. 해당 메서드는 DataGridView컨트롤에서 이동을 위한 키 입력시 입력된 키를 가로챌 수 있는 부분이다. 이 역시 앞서 설명한 ProceddCmdKey와 동일한 메서드이나, DataGridView에 특화된 메서드라 생각하자.

이 두개의 메서드에서 EnterKey가 입력으로 들어오면 기존에 정의된 ProcessDownKeyInternal 을 호출되기 때문에, EnterKey를 Right키로 가로채 바꿔치기를 하면 된다.

Public Class MyDataGridView
    Inherits System.Windows.Forms.DataGridView 

    Private isAutoCellMoved As Boolean = False
    Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, _                                                 
                                                ByVal keyData As System.Windows.Forms.Keys) As Boolean
        If (Me.CurrentCell.ColumnIndex <> Me.ColumnCount - 1) AndAlso (keyData = Keys.Enter) Then
            Return Me.ProcessRightKey(keyData)
        End If
        Try
            Return MyBase.ProcessCmdKey(msg, keyData)
        Finally
            If keyData = Keys.Enter Then
                If Me.Rows.Count <> Me.CurrentCell.RowIndex + 1 Then
                    Me.CurrentCell = Me(0, Me.CurrentCell.RowIndex + 1)
                    isAutoCellMoved = True
                End If
            End If
        End Try
    End Function 

    Protected Overrides Function ProcessDataGridViewKey(ByVal e As System.Windows.Forms.KeyEventArgs) As Boolean
        If isAutoCellMoved Then
            isAutoCellMoved = Not isAutoCellMoved
            Return True
        End If 

        If (Me.CurrentCell.ColumnIndex <> Me.ColumnCount - 1) AndAlso (e.KeyData = Keys.Enter) Then
            Return Me.ProcessRightKey(e.KeyData)
        End If
        Return MyBase.ProcessDataGridViewKey(e)
    End Function 

위의 코드를 잘 보면, EnterKey가 입력될 시, ProcessRightKey를 호출하여 마치 Right 키를 누른 것 처럼 메세지를 넘겨 버리는 것을 알 수 있다.
하지만 무작정 Enter를 친다고 Right Key가 눌려진 것 처럼만 한다면 어떻게 될까?

맨 마지막 컬럼에서 EnterKey를 치게 되면 원래 ProcessRightKey의 기본 행태인 다음 행의 동일한 컬럼으로 포커스가 이동되고 만다.
하지만 원래 우리가 원하는 것은 맨 마지막 컬럼까지 포커스가 이동했다면, 다음번 EnterKey에는 그 다음 행의 첫번째 컬럼으로 가는 것이 보기도 좋고,
기본적으로 어플리케이션 사용자들이 그리드에서 다수의 데이터를 입력하고자 할때 편의를 제공해 줄 수 있을 것이다.

그래서 일반적은 경우에는 ProcessRightKey를 호출하지만, CurrentCell이 마지막 컬럼에 위치하고 있을 경우에는 직접 CurrentCell을 다음 행의 첫번째
컬럼으로 이동시키게 하는 코드를 추가했다. 또 하나 CurrentCell이 맨 마지막 행, 마지막 컬럼에 위치하고 있다면? 그냥 둔다

개발자들의 취향에 맞게 고쳐쓰면 될 듯 싶다.

상용 컴퍼넌트를 구매하지 않고 기본 컨트를을 통하여 우리의 입맛에 맞게 바꾸기 위해 이러저러한 궁리와 코딩을 하다보면, 컴퍼넌트 가격이 참 저렴하다라는 생각이 든다.

비싼 개발자들의 인건비를 100만원정도 하는 상용컨트롤 구매와 맞 바꾸려 하다니 -.-
개발자는 자고로 비지니스로직 구현에만 전념할 수 있도록 하면 되거늘... 

여전히 시장선 개발자의 인건비가 X 값이다

에휴우....