Public Class NewFp Private V_enterToTab As Boolean = False Private V_DeleteKey As Boolean = False Private V_CurrentDel As Boolean = False Private V_FIRSTINDEX As Integer = 0 Private V_NextRowindex As Integer = -1 Private A_Ubound As New ArrayList Private V_SpaceEdit As Boolean = True Private V_sameRHeight As Boolean = True Private v_Checkbox_ColIndex As Int16 = -1 Private v_ACellposLabel As ToolStripStatusLabel = Nothing Private v_ACellImeLabel As ToolStripStatusLabel = Nothing Private v_AMessageLabel As ToolStripStatusLabel = Nothing Private v_AEditStatusLabel As ToolStripStatusLabel = Nothing Public 전줄값복사() As String Public 한글필드() As String Public 다음줄필드명 As String Public 기본스타일인덱스 As Short Private v_AAutoAddrowInLast As ToolStripButton = Nothing 'Private V_AButtonAdd As ToolStripButton = Nothing '//추가버튼 'Private v_AButtonInsert As ToolStripButton = Nothing '//삽입버튼 Public Event Arin_DataChanged(ByVal sender As Object, ByVal Status As String) '//미사용 Public Event Arin_AddRow(ByVal sender As Object, ByVal Status As String) '//미사용 Public Event Arin_InsertRow(ByVal sender As Object, ByVal Status As String) '//미사용 Public Event Arin_AddLog(ByVal sender As Object, ByVal msg As String) Public Event Arin_Before_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) '//키보드가 눌럿을떄 먼저 실행할 함수(뷰의 keydown은 나중에 일어난다) Public Event Arin_Before_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) ' _ ' Public Property AButtonAdd() As ToolStripButton ' Get ' Return Me.V_AButtonAdd ' End Get ' Set(ByVal value As ToolStripButton) ' Me.V_AButtonAdd = value ' End Set 'End Property _ Public Property AAutoAddrowInLast() As ToolStripButton Get Return Me.v_AAutoAddrowInLast End Get Set(ByVal value As ToolStripButton) Me.v_AAutoAddrowInLast = value End Set End Property Private Sub Disp_Msg(ByVal msgstr As String) If Not v_AMessageLabel Is Nothing Then v_AMessageLabel.Text = "[뷰메세지] : " & msgstr & Space(1) & Now.ToString v_AMessageLabel.ForeColor = Color.Green My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand) End If End Sub _ Public Property AEditStatusLabel() As ToolStripStatusLabel Get Return Me.v_AEditStatusLabel End Get Set(ByVal value As ToolStripStatusLabel) Me.v_AEditStatusLabel = value End Set End Property _ Public Property AMessageLabel() As ToolStripStatusLabel Get Return Me.v_AMessageLabel End Get Set(ByVal value As ToolStripStatusLabel) Me.v_AMessageLabel = value End Set End Property _ Public Property ACellposLabel() As ToolStripStatusLabel Get Return Me.v_ACellposLabel End Get Set(ByVal value As ToolStripStatusLabel) Me.v_ACellposLabel = value End Set End Property _ Public Property ACellImeLabel() As ToolStripStatusLabel Get Return Me.v_ACellImeLabel End Get Set(ByVal value As ToolStripStatusLabel) Me.v_ACellImeLabel = value End Set End Property _ Public Property ACheckBox_ColIndex() As Int16 Get Return v_Checkbox_ColIndex End Get Set(ByVal value As Int16) v_Checkbox_ColIndex = value End Set End Property _ Public Property ASameRowheight() As Boolean Get Return V_sameRHeight End Get Set(ByVal value As Boolean) V_sameRHeight = value End Set End Property _ Public Property AEditFromSpace() As Boolean Get Return V_SpaceEdit End Get Set(ByVal value As Boolean) V_SpaceEdit = value End Set End Property Public Sub ArinSearch() Dim Frow, Fcol As Integer Me.Search(Me.ActiveSheetIndex, InputBox("선택된 열에서 검색할 문자를 입력하세요.", "검색문자를 입력하세요"), False, False, False, True, True, False, False, 0, 0, Frow, Fcol) If Frow >= 0 AndAlso Fcol >= 0 Then '//검색됫다면 Me.ActiveSheet.SetActiveCell(Frow, Fcol) SendKeys.Send("{ENTER}") End If End Sub ''' ''' 중복검사루틴에서 사용하는 함수 ''' ''' ''' ''' ''' ''' Private Function DupCheckBool(ByVal num1 As Integer, ByVal num2 As Integer, ByVal Source As ArrayList) As Boolean If Source Is Nothing Then Return False If Source.IndexOf(num1) >= 0 Then Return True If Source.IndexOf(num2) >= 0 Then Return True Return False End Function ''' ''' 중복된 데이터를 검색합니다. startindex = 시작할 줄번호,endindex = 종료할 줄번호, source 검색원본의 열번호들, target 검색대상의 열번호들 ''' 검색완료후 전체 중복된 갯수를 리턴합니다. ''' ''' ''' ''' ''' ''' ''' Public Function ADupCheck(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal CheckValue As Boolean = True, Optional ByVal 설명열 As Short = -1, Optional ByVal 설명 As String = "", Optional ByVal PBar As ProgressBar = Nothing) As ArrayList '''''검색방법은 1번개체부터 마지막개체까지 풀루프를 돌면서 동일한 놈을 찾는다. Dim 원본, 대상 As String 'New System.Text.StringBuilder Dim DupList As New ArrayList Dim fcnt As Integer = 0 If Not PBar Is Nothing Then PBar.Value = StartIndex PBar.Minimum = StartIndex PBar.Maximum = EndIndex End If For A As Integer = StartIndex To EndIndex 'MsgBox(StartIndex & "/" & EndIndex) 원본 = "" For Each T As Short In Source 원본 &= Me.ActiveSheet.Cells(A, T).Value Next If 원본.ToString <> "" Then For B As Integer = StartIndex To EndIndex If A <> B AndAlso Not DupCheckBool(A, B, DupList) Then '//같은라인은 피하고 그렇지 않은 라인의 번호를 확인한다. 대상 = "" For Each T As Short In Tartger 대상 &= Me.ActiveSheet.Cells(B, T).Value Next 'MsgBox(원본 & "/" & 대상) If 원본.ToString = 대상.ToString Then 'MsgBox(원본) If DupList Is Nothing Then DupList = New ArrayList DupList.Add(A) DupList.Add(B) fcnt += 1 If CheckColnum > -1 Then Me.ActiveSheet.Cells(A, CheckColnum).Value = CheckValue Me.ActiveSheet.Cells(B, CheckColnum).Value = CheckValue End If If 설명열 > -1 Then Me.ActiveSheet.Cells(A, 설명열).Value &= "[" & A + 1 & "/" & B + 1 & "]" & 설명 '//설명하도록햇을시에 Me.ActiveSheet.Cells(B, 설명열).Value &= "[" & A + 1 & "/" & B + 1 & "]" & 설명 '//설명하도록햇을시에 End If End If End If Next End If If Not PBar Is Nothing Then If PBar.Value < PBar.Maximum Then PBar.Value += 1 Me.Invalidate() End If Next Return DupList 'NOTICE("[전주번호] 중복검사 완료(" & fcnt & "개의 데이터를 찾았습니다)", Me.lb_msg) End Function Public Function ADupCheck2(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal PBar As ProgressBar = Nothing) As Integer '''''검색방법은 1번개체부터 마지막개체까지 풀루프를 돌면서 동일한 놈을 찾는다. Dim 원본, 대상 As String 'New System.Text.StringBuilder Dim fcnt As Integer = 0 If Not PBar Is Nothing Then PBar.Value = StartIndex PBar.Minimum = StartIndex PBar.Maximum = EndIndex End If For A As Integer = StartIndex To EndIndex 원본 = "" For Each T As Short In Source 원본 &= Me.ActiveSheet.Cells(A, T).Value Next If 원본.Trim.ToString <> "" Then For B As Integer = StartIndex To EndIndex If A <> B Then '//같은라인은 피하고 그렇지 않은 라인의 번호를 확인한다. 대상 = "" For Each T As Short In Tartger 대상 &= Me.ActiveSheet.Cells(B, T).Value Next If 원본.Trim.ToString = 대상.Trim.ToString Then fcnt += 1 If CheckColnum > -1 Then Me.ActiveSheet.Cells(A, CheckColnum).Value = True Me.ActiveSheet.Cells(B, CheckColnum).Value = True End If End If End If Next End If If Not PBar Is Nothing Then If PBar.Value < PBar.Maximum Then PBar.Value += 1 Me.Invalidate() End If Next Return fcnt 'NOTICE("[전주번호] 중복검사 완료(" & fcnt & "개의 데이터를 찾았습니다)", Me.lb_msg) End Function ''' ''' 중복검사 같은줄 ''' ''' ''' ''' ''' ''' ''' ''' ''' ''' Public Function AdupCheckSR(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal PBar As ProgressBar = Nothing, Optional ByVal TrueDirection As Boolean = True) As Integer Dim 원본, 대상 As String 'New System.Text.StringBuilder Dim fcnt As Integer = 0 Dim Can As Boolean = False If Not PBar Is Nothing Then : PBar.Value = StartIndex : PBar.Minimum = StartIndex : PBar.Maximum = EndIndex : End If For A As Integer = StartIndex To EndIndex 원본 = "" : 대상 = "" Can = False For Each T As Short In Source 원본 &= Me.ActiveSheet.Cells(A, T).Value Next For Each T As Short In Tartger 대상 &= Me.ActiveSheet.Cells(A, T).Value Next If 원본.Trim.ToString <> "" Then If TrueDirection = True Then If 원본.Trim.ToString = 대상.Trim.ToString Then Can = True Else If 원본.Trim.ToString <> 대상.Trim.ToString Then Can = True End If If Can Then fcnt += 1 If CheckColnum > -1 Then Me.ActiveSheet.Cells(A, CheckColnum).Value = True End If End If If Not PBar Is Nothing Then If PBar.Value < PBar.Maximum Then PBar.Value += 1 Me.Invalidate() End If Next Return fcnt End Function ''' ''' 중복검사 같은줄 공란포함 ''' ''' ''' ''' ''' ''' ''' ''' ''' ''' Public Function ADupCheckSr_inBlank(ByVal StartIndex As Integer, ByVal EndIndex As Integer, ByVal Source() As Short, ByVal Tartger() As Short, Optional ByVal CheckColnum As Short = -1, Optional ByVal PBar As ProgressBar = Nothing, Optional ByVal TrueDirection As Boolean = True) As Integer Dim 원본, 대상 As String 'New System.Text.StringBuilder Dim fcnt As Integer = 0 Dim Can As Boolean = False If Not PBar Is Nothing Then : PBar.Value = StartIndex : PBar.Minimum = StartIndex : PBar.Maximum = EndIndex : End If For A As Integer = StartIndex To EndIndex 원본 = "" : 대상 = "" Can = False For Each T As Short In Source 원본 &= Me.ActiveSheet.Cells(A, T).Text Next For Each T As Short In Tartger 대상 &= Me.ActiveSheet.Cells(A, T).Text Next If TrueDirection = True Then If 원본.Trim.ToString = 대상.Trim.ToString Then Can = True Else If 원본.Trim.ToString <> 대상.Trim.ToString Then Can = True End If If Can Then fcnt += 1 If CheckColnum > -1 Then Me.ActiveSheet.Cells(A, CheckColnum).Value = True End If If Not PBar Is Nothing Then If PBar.Value < PBar.Maximum Then PBar.Value += 1 Me.Invalidate() End If Next Return fcnt End Function ''' ''' 현재위치 위에 새로운 행을 추가합니다(바운드 적용됨) ''' ''' Public Sub AInsertNewRow() If Not Me.Focused Then Me.Focus() Me.ActiveSheet.Rows.Add(Me.ActiveSheet.ActiveRowIndex, 1) Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex, Me.AFirstColumn_Index) End Sub ''' ''' 마지막에 새로운 행을 추가합니다(바운드 적용됨) ''' ''' Public Sub AAddNewRow() If Not Me.Focused Then Me.Focus() 'Me.ActiveSheet.RowCount += 1 Me.ActiveSheet.Rows.Add(Me.ActiveSheet.RowCount, 1) Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.RowCount, Me.AFirstColumn_Index) SendKeys.Send("{UP}") SendKeys.Send("{DOWN}") End Sub ''' ''' 마지막에 새로운 행을 추가합니다.(바운드적용안됨) ''' ''' Public Sub AAddNewRowU() If Not Me.Focused Then Me.Focus() Dim Idx As Integer Me.ActiveSheet.AddUnboundRows(Me.ActiveSheet.RowCount, 1) Idx = Me.ActiveSheet.RowCount - 1 Me.ActiveSheet.Rows(Idx).Tag = "UNBOUND" Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.RowCount, AFirstColumn_Index) SendKeys.Send("{ENTER}") End Sub _ Public Property ANextRow_ColIndex() As Integer Get Return V_NextRowindex End Get Set(ByVal value As Integer) V_NextRowindex = value End Set End Property _ Public Property AFirstColumn_Index() As Integer Get Return V_FIRSTINDEX End Get Set(ByVal value As Integer) V_FIRSTINDEX = value End Set End Property _ Public Property ADeleteCell() As Boolean Get Return V_CurrentDel End Get Set(ByVal value As Boolean) V_CurrentDel = value End Set End Property _ Public Property ADeleteRow() As Boolean Get Return V_DeleteKey End Get Set(ByVal value As Boolean) V_DeleteKey = value End Set End Property ''' ''' 커서를 다음셀로 이동 (문제가 좀 있다 열너비 0인것들에대해서 ''' ''' Public Sub ANext_Cell() '//커서를 다음셀로 이동한다. 다음셀의 너비가 0이거나 tabstop 이 false 이면 그 다음으로 이동한다. Dim index As Integer = 0 Start: index += 1 If Me.ActiveColumnindex + index >= Me.ActiveSheet.Columns.Count Then RaiseEvent Arin_AddLog(Me, "[ANEXT_CELL] 다음열번호가 마지막열이므로 리턴(현재열번호/전체카운트:" & Me.ActiveColumnindex + index & "/" & Me.ActiveSheet.Columns.Count) If Me.ActiveRowindex = Me.ActiveSheet.RowCount - 1 Then '//마지막줄에걸렷으면 추가 If Not Me.v_AAutoAddrowInLast Is Nothing Then v_AAutoAddrowInLast.PerformClick() RaiseEvent Arin_AddLog(Me, "[ANEXT_CELL] 다음열번호가 마지막열이므로 한줄추가해야겠다.(현재열번호/전체카운트:" & Me.ActiveColumnindex + index & "/" & Me.ActiveSheet.Columns.Count) Else RaiseEvent Arin_AddLog(Me, "[ANEXT_CELL] 다음열번호가 마지막열이므로 다음줄로가야할경우같다(현재열번호/전체카운트:" & Me.ActiveColumnindex + index & "/" & Me.ActiveSheet.Columns.Count) Me.ANEXT_ROW() End If Return '//마지막열이라면 그냥 리턴 End If If Me.ActiveSheet.Columns(Me.ActiveColumnindex + index).Width = 0 Or Me.ActiveSheet.Columns(Me.ActiveColumnindex + index).TabStop = False Then GoTo Start End If SendKeys.Send(vbTab) 'Me.ActiveSheet.SetActiveCell(Me.ActiveRowindex, Me.ActiveColumnindex + index) 'If Me.ActiveSheet.ActiveRowIndex <> Me.ActiveSheet.RowCount - 1 Then '//마지막줄이 아니면 ' If Me.ActiveSheet.ActiveColumnIndex = Me.ANextRow_ColIndex OrElse Me.ActiveSheet.ActiveColumnIndex = Me.ActiveSheet.ColumnCount - 1 Then '/마지막열이면 다음줄 첨으로 이동 ' 'SendKeys.Send("{TAB}") ' MsgBox(Me.ActiveSheet.ActiveColumnIndex & "/" & Me.AFirstColumn_Index) ' Me.ActiveSheet.ActiveRowIndex += 1 ' Me.ActiveSheet.ActiveColumnIndex = V_FIRSTINDEX '//첫인덱스로 옴긴다.기본값은 0이다. ' 'Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex + 1, V_FIRSTINDEX) ' Else ' 'SendKeys.Send("{TAB}") ' 'Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex + 1) ' 'Me.ActiveSheet.IsSelected(Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex + 1) ' 'ME.ActiveSheet.SEL ' If Me.ActiveSheet.Columns(Me.ActiveColumnindex + 1).Width = 0 Or Then ' GoTo Start ' Else ' Me.ActiveSheet.ActiveColumnIndex += 1 ' End If ' End If 'Else '//마지막줄일때 ' If Me.ActiveSheet.ActiveColumnIndex = Me.ANextRow_ColIndex OrElse Me.ActiveSheet.ActiveColumnIndex <> Me.ActiveSheet.ColumnCount - 1 Then '/마지막열이면 다음줄 첨으로 이동 ' 'Me.ActiveSheet.ActiveRowIndex += 1 ' If Not Me.AAutoAddrowInLast Is Nothing Then ' Me.AAutoAddrowInLast.PerformClick() ' End If ' Else ' If Me.ActiveSheet.Columns(Me.ActiveColumnindex + 1).Width = 0 Then ' GoTo Start ' Else ' Me.ActiveSheet.ActiveColumnIndex += 1 ' End If ' End If Dim Ee As New FarPoint.Win.Spread.EnterCellEventArgs(Nothing, Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex) NewFp_EnterCell(Nothing, Ee) '//이후에 엔터셀이 발생하지않으므로 발생시켜준다. 'End If End Sub ''' ''' 커서를 이전셀로 이동 ''' ''' Public Sub APrev_Cell() If Me.ActiveSheet.ActiveRowIndex <> 0 Then '//첫줄이 아니면 If Me.ActiveSheet.ActiveColumnIndex = 0 Then '/첫열이면 이전줄 첨으로 이동 'SendKeys.Send("{TAB}") Me.ActiveSheet.ActiveRowIndex -= 1 Me.ActiveSheet.ActiveColumnIndex = V_FIRSTINDEX '//첫인덱스로 옴긴다.기본값은 0이다. 'Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex + 1, V_FIRSTINDEX) Else 'SendKeys.Send("{TAB}") 'Me.ActiveSheet.SetActiveCell(Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex + 1) 'Me.ActiveSheet.IsSelected(Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex + 1) 'ME.ActiveSheet.SEL Me.ActiveSheet.ActiveColumnIndex -= 1 End If Else If Me.ActiveSheet.ActiveColumnIndex <> 0 Then '/첫열이 아니면 'Me.ActiveSheet.ActiveRowIndex += 1 Me.ActiveSheet.ActiveColumnIndex -= 1 '//첫인덱스로 옴긴다.기본값은 0이다. End If End If End Sub ''' ''' 커서를 다음줄로 이동 ''' ''' Public Sub ANEXT_ROW() If Me.ActiveSheet.ActiveRowIndex <> (Me.ActiveSheet.RowCount - 1) Then '//마지막줄이 아니면 Me.ActiveSheet.ActiveRowIndex += 1 Me.ActiveSheet.ActiveColumnIndex = V_FIRSTINDEX '//첫인덱스로 옴긴다.기본값은 0이다. End If Dim Ee As New FarPoint.Win.Spread.EnterCellEventArgs(Nothing, Me.ActiveSheet.ActiveRowIndex, Me.ActiveSheet.ActiveColumnIndex) NewFp_EnterCell(Nothing, Ee) '//이후에 엔터셀이 발생하지않으므로 발생시켜준다. End Sub ''' ''' 커서를 이전줄로 이동 ''' ''' Public Sub APrev_ROW() If Me.ActiveSheet.ActiveRowIndex <> 0 Then '//첫줄이 아니면 Me.ActiveSheet.ActiveRowIndex -= 1 Me.ActiveSheet.ActiveColumnIndex = V_FIRSTINDEX '//첫인덱스로 옴긴다.기본값은 0이다. End If End Sub ''' ''' 선택줄번호에의하거나 입력한 열번호에 True 값을 전달합니다.(체크박스 체크용도) ''' ''' ''' Public Sub ASelect(Optional ByVal Columnindex As Int16 = -1) Dim sheet As FarPoint.Win.Spread.SheetView = Me.ActiveSheet If Columnindex = -1 AndAlso Me.ACheckBox_ColIndex <> -1 Then Columnindex = Me.ACheckBox_ColIndex '//지정된열제목이 잇는지 sheet.AutoFilterReset(Columnindex) For i As Integer = 0 To sheet.RowCount - 1 sheet.Cells(i, Columnindex).Value = True Next End Sub ''' ''' 선택줄번호에의하거나 입력된 열번호에 FALSE 값을 전달합니다..(체크박스 해제용도) ''' ''' ''' Public Sub AUnselect(Optional ByVal index As Int16 = -1) Dim sheet As FarPoint.Win.Spread.SheetView = Me.ActiveSheet If index = -1 AndAlso Me.ACheckBox_ColIndex <> -1 Then index = Me.ACheckBox_ColIndex '//지정된열제목이 잇는지 sheet.AutoFilterReset(index) For i As Integer = 0 To sheet.RowCount - 1 sheet.Cells(i, index).Value = False Next End Sub ''' ''' checkbox_colindex에의하거나 입력된 열번호를 가지고 선택반전 시킵니다.(체크박스 반전) ''' ''' ''' Public Sub AReverse(Optional ByVal index As Int16 = -1) Dim sheet As FarPoint.Win.Spread.SheetView = Me.ActiveSheet If index = -1 AndAlso Me.ACheckBox_ColIndex <> -1 Then index = ACheckBox_ColIndex '//지정된열제목이 잇는지 sheet.AutoFilterReset(index) For i As Integer = 0 To sheet.RowCount - 1 sheet.Cells(i, index).Value = IIf(sheet.Cells(i, index).Value = True, False, True) Next End Sub ''' ''' 입력된 줄번호와 태그=데이터필드 가 일치하는 셀을 반환합니다. ''' ''' ''' ''' ''' ''' Public Function Cells(ByVal index As Integer, ByVal Tag As Object, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell Dim RetVal As FarPoint.Win.Spread.Cell = Nothing If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns If SC.DataField.ToUpper = Tag.ToString.ToUpper Then RetVal = Me.Sheets(Sheetindex).Cells(index, SC.Index) Exit For End If Next If RetVal Is Nothing Then MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") End If Return RetVal End Function ''' ''' 현재선택된 줄의 열번호에해당하는 셀을 반환합니다. ''' ''' ''' ''' ''' Public Function Cells(ByVal Columnindex As Integer, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell Dim RetVal As FarPoint.Win.Spread.Cell = Nothing If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex Return Me.Sheets(Sheetindex).Cells(Me.ActiveSheet.ActiveRowIndex, Columnindex) Return RetVal End Function ''' ''' 현재선택된 셀을 반환합니다 ''' ''' ''' Public Function Cells() As FarPoint.Win.Spread.Cell Dim RetVal As FarPoint.Win.Spread.Cell = Nothing Return Me.ActiveSheet.Cells(Me.ActiveRowindex, Me.ActiveColumnindex) Return RetVal End Function ''' ''' 전줄의 현재열위치 셀을 반환 ''' ''' ''' ''' Public Function CellsPR(Optional ByVal FirstrowValueisNothing As Boolean = False) As FarPoint.Win.Spread.Cell If FirstrowValueisNothing AndAlso Me.ActiveRowindex = 0 Then Return Nothing If Me.ActiveRowindex = 0 Then If FirstrowValueisNothing Then Return Nothing Else Return Me.ActiveSheet.ActiveCell End If Else Return Me.ActiveSheet.Cells(Me.ActiveRowindex - 1, Me.ActiveColumnindex) End If End Function ''' ''' 앞셀을 반환 ''' ''' ''' ''' Public Function CellsPC(Optional ByVal FirstColValueisNothing As Boolean = False) As FarPoint.Win.Spread.Cell If FirstColValueisNothing AndAlso Me.ActiveColumnindex = 0 Then Return Nothing If Me.ActiveColumnindex = 0 Then If FirstColValueisNothing Then Return Nothing Else Return Me.ActiveSheet.ActiveCell End If Else Return Me.ActiveSheet.Cells(Me.ActiveRowindex, Me.ActiveColumnindex - 1) End If End Function ''' ''' 입력된 태그와 데이터필드가 일치하는 셀을 반환합니다.(줄번호는 현재줄) ''' ''' ''' ''' ''' Public Function Cells(ByVal Tag As Object, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell Dim RetVal As FarPoint.Win.Spread.Cell = Nothing If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns If SC.DataField.ToUpper = Tag.ToString.ToUpper Then RetVal = Me.Sheets(Sheetindex).Cells(Me.ActiveRowindex, SC.Index) Exit For End If Next If RetVal Is Nothing Then MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") End If Return RetVal End Function ''' ''' 입력된 태그와 데이터필드가 일치하는 셀을 반환합니다.(줄번호는 전줄) ''' ''' ''' ''' ''' Public Function CellsR(ByVal Tag As Object, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell Dim RetVal As FarPoint.Win.Spread.Cell = Nothing Dim Rindex As Integer = Me.ActiveSheet.ActiveRowIndex : If Rindex > 0 Then Rindex -= 1 If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns If SC.DataField.ToUpper = Tag.ToString.ToUpper Then RetVal = Me.Sheets(Sheetindex).Cells(Rindex, SC.Index) Exit For End If Next If RetVal Is Nothing Then MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") End If Return RetVal End Function ''' ''' 입력된태그(태그는 레이블명)와 일치하는 셀을 반환합니다.(줄번호는 현재줄) ''' ''' ''' ''' ''' Public Function Cells2(ByVal Tag As String, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell Dim RetVal As FarPoint.Win.Spread.Cell = Nothing If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns If SC.Label.ToUpper = Tag.ToString.ToUpper Then RetVal = Me.Sheets(Sheetindex).Cells(Me.ActiveRowindex, SC.Index) Exit For End If Next If RetVal Is Nothing Then MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") End If Return RetVal End Function ''' ''' 입력된태그(태그는 레이블명)와 일치하는 열을 반환합니다.(줄번호는 현재줄) ''' ''' ''' ''' ''' Public Function Column2(ByVal Tag As String, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Column Dim RetVal As FarPoint.Win.Spread.Column = Nothing If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns If SC.Label.ToUpper = Tag.ToString.ToUpper Then Return SC End If Next MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function column2") Return Nothing End Function ''' ''' 필드레이블과 일치하는 열의 위치를 반환합니다. ''' ''' ''' ''' ''' Public Function ColIndex2(ByVal Tag As String, Optional ByVal Sheetindex As Integer = -1) As Integer Dim RetVal As Integer = -1 If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns If SC.Label.ToUpper = Tag.ToString.ToUpper Then RetVal = SC.Index Exit For End If Next If RetVal = -1 Then MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") End If Return RetVal End Function ''' ''' 열의 데이터필드와 일치하는열 번호를 반환 ''' ''' ''' ''' ''' Public Function ColIndex(ByVal DataField As String, Optional ByVal Sheetindex As Integer = -1) As Integer Dim RetVal As Integer = -1 If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns If SC.DataField.ToUpper = DataField.ToString.ToUpper Then RetVal = SC.Index Exit For End If Next If RetVal = -1 Then MsgBox("Can't Find column [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") End If Return RetVal End Function ''' ''' 입력된태그(레이블명)와 일치하는 셀을 반환합니다. ''' ''' ''' ''' ''' ''' Public Function Cells2(ByVal RowIndex As Integer, ByVal Tag As String, Optional ByVal Sheetindex As Integer = -1) As FarPoint.Win.Spread.Cell Dim RetVal As FarPoint.Win.Spread.Cell = Nothing If Sheetindex = -1 Then Sheetindex = Me.ActiveSheetIndex For Each SC As FarPoint.Win.Spread.Column In Me.Sheets(Sheetindex).Columns If SC.Label.ToUpper = Tag.ToString.ToUpper Then RetVal = Me.Sheets(Sheetindex).Cells(RowIndex, SC.Index) Exit For End If Next If RetVal Is Nothing Then MsgBox("Can't Find column Label [" & Tag.ToString & "]", MsgBoxStyle.Critical, "Farpoint function Cells") End If Return RetVal End Function ''' ''' 전줄을 반환합니다 ''' ''' ''' Public Function GetProw() As FarPoint.Win.Spread.Row If Me.ActiveSheet.ActiveRowIndex = 0 Then Return Me.ActiveSheet.ActiveRow Return Me.ActiveSheet.Rows(Me.ActiveSheet.ActiveRowIndex - 1) End Function ''' ''' 활성화된 열제목줄을 반환합니다. ''' ''' ''' Public Function ActiveColumn() As FarPoint.Win.Spread.Column Return Me.ActiveSheet.Columns(Me.ActiveColumnindex) End Function ''' ''' 활성화된 줄번호를 반환 ''' ''' ''' Public Function ActiveRowindex() As Integer Return Me.ActiveSheet.ActiveRowIndex End Function ''' ''' 활성화된 열버호를 반환 ''' ''' ''' Public Function ActiveColumnindex() As Integer Return Me.ActiveSheet.ActiveColumnIndex End Function Public Sub AViewSetting_Load(ByVal 전줄값복사 As String, ByVal 한글필드 As String, ByVal 다음줄열이름 As String, Optional ByVal Tag As String = "", Optional ByVal FN As String = "") '//파라미터는 기본값이다 ini파일에 존재하지않았을경우 사용한다. Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & FN & "spread.INI") Dim a As New tinyIni(File.FullName) If a.Exist = False Then Me.AViewSetting_Save(전줄값복사, 한글필드, 다음줄열이름, Tag, FN) Dim 전줄, 한글, 다음줄 As String Dim v기본스타일인덱스 As Short 전줄 = a.Read(Me.Parent.Name & "-" & (Me.Name & Tag), "prerowcopy", 전줄값복사) 한글 = a.Read(Me.Parent.Name & "-" & (Me.Name & Tag), "hangulfield", 한글필드) 다음줄 = a.Read(Me.Parent.Name & "-" & (Me.Name & Tag), "nextcolumn", 다음줄열이름) v기본스타일인덱스 = a.Read(Me.Parent.Name & "-" & (Me.Name & Tag), "defstyleindex", 0) Me.전줄값복사 = 전줄.Split(",") Me.한글필드 = 한글.Split(",") Me.다음줄필드명 = 다음줄 Me.기본스타일인덱스 = v기본스타일인덱스 End Sub Public Sub AViewSetting_Save(ByVal 전줄값복사 As String, ByVal 한글필드 As String, ByVal 다음줄열이름 As String, ByVal 기본스타일인덱스 As Short, Optional ByVal Tag As String = "", Optional ByVal FN As String = "") '//파라미터는 기본값이다 ini파일에 존재하지않았을경우 사용한다. Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & FN & "spread.INI") Dim a As New tinyIni(File.FullName) If a.Exist = False Then a.Create() a.Write(Me.Parent.Name & "-" & (Me.Name & Tag), "prerowcopy", 전줄값복사) a.Write(Me.Parent.Name & "-" & (Me.Name & Tag), "hangulfield", 한글필드) a.Write(Me.Parent.Name & "-" & (Me.Name & Tag), "nextcolumn", 다음줄열이름) a.Write(Me.Parent.Name & "-" & (Me.Name & Tag), "defstyleindex", 기본스타일인덱스) End Sub ''' ''' 뷰의 열너비,열이름(옵션),줌팩터등을 저장합니다. ''' ''' ''' Public Sub ASetting_Save(Optional ByVal ColName As Boolean = True, Optional ByVal Tag As String = "", Optional ByVal FN As String = "") ColSize_Save(Tag, FN) If ColName Then ColName_Save(Tag, FN) CurrentState_Save(Tag, FN) AZOOM_Save(Tag, FN) End Sub ''' ''' 뷰의 열너비,열이름(옵션),줌팩터등을 불러옵니다 ''' ''' ''' Public Sub ASetting_Load(Optional ByVal ColName As Boolean = True, Optional ByVal Tag As String = "", Optional ByVal FN As String = "") ColSize_Load(Tag, FN) If ColName Then ColName_Load(Tag, FN) CurrentState_Load(Tag, FN) AZOOM_LOAD(Tag, FN) End Sub ''' ''' 현재 열너비를 Spread.ini 파일에 저장합니다. ''' ''' Public Sub AZOOM_Save(ByVal tag As String, ByVal fn As String) Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) Dim a As New tinyIni(File.FullName) a.Write(Me.Parent.Name & "-" & (Me.Name & tag), "ZOOM", Me.ActiveSheet.ZoomFactor) End Sub ''' ''' 현재 열너비를 Spread.ini 파일로 부터 불러옵니다. ''' ''' Public Sub AZOOM_LOAD(ByVal tag As String, ByVal fn As String) Dim FILEname As String = My.Application.Info.DirectoryPath & "\" & fn & "spread.INI" If Not System.IO.File.Exists(FILEname) Then MsgBox("열너비 파일이 존재하지 않습니다", MsgBoxStyle.Critical, "열너비설정-오류") ColSize_Save(tag, fn) Return End If 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) Dim a As New tinyIni(FILEname) Me.ActiveSheet.ZoomFactor = a.Read(Me.Parent.Name & "-" & (Me.Name & tag), "ZOOM", 1) End Sub ''' ''' 현재 열너비를 Spread.ini 파일에 저장합니다. ''' ''' Public Sub ColSize_Save(ByVal tag As String, ByVal fn As String) Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) Dim a As New tinyIni(File.FullName) For Each z As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns a.Write(Me.Parent.Name & "-" & (Me.Name & tag), "COLSIZE" & z.Index.ToString, z.Width) Next End Sub ''' ''' 현재 열너비를 Spread.ini 파일로 부터 불러옵니다. ''' ''' Public Sub ColSize_Load(ByVal tag As String, ByVal fn As String) Dim FILEname As String = My.Application.Info.DirectoryPath & "\" & fn & "spread.INI" If Not System.IO.File.Exists(FILEname) Then MsgBox("열너비 파일이 존재하지 않습니다", MsgBoxStyle.Critical, "열너비설정-오류") ColSize_Save(tag, fn) Return End If 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) Dim a As New tinyIni(FILEname) For Each col As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns 'MsgBox(COL.Index) 'a.Write(Me.Parent.Name, "COLSIZE" & COL.Index.ToString, File, COL.Width) Try col.Width = a.Read(Me.Parent.Name & "-" & (Me.Name & tag), "COLSIZE" & col.Index.ToString) Catch ex As Exception '//없을경우에는 에러를 내므로 그냥 나간다 End Try Next End Sub Public Sub ColName_Load(ByVal tag As String, ByVal fn As String) Dim FILEname As String = My.Application.Info.DirectoryPath & "\" & fn & "spread.INI" If Not System.IO.File.Exists(FILEname) Then MsgBox("열너비 파일이 존재하지 않습니다", MsgBoxStyle.Critical, "열너비설정-오류") ColSize_Save(tag, fn) Return End If 'MsgBox("PARENT" & Me.Parent.Name.ToString & "/" & Me.Parent.Text) Dim a As New tinyIni(FILEname) For Each col As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns 'MsgBox(COL.Index) 'a.Write(Me.Parent.Name, "COLSIZE" & COL.Index.ToString, File, COL.Width) Try col.Label = a.Read(Me.Parent.Name & "-" & Me.Name & tag, "COLNAME" & col.Index.ToString).ToString.Trim(Chr(0)) Catch ex As Exception '//없을경우에는 에러를 내므로 그냥 나간다 End Try Next End Sub Public Sub ColName_Save(ByVal tag As String, ByVal fn As String) Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) Dim a As New tinyIni(File.FullName) For Each z As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns a.Write(Me.Parent.Name & "-" & Me.Name & tag, "COLNAME" & z.Index.ToString, z.Label) Next End Sub ''' ''' [보충요망] :줄높이를 저장 ''' ''' Public Sub CurrentState_Save(ByVal tag As String, ByVal fn As String) Dim File As New System.IO.FileInfo(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") If System.IO.Directory.Exists(File.DirectoryName) = False Then System.IO.Directory.CreateDirectory(File.DirectoryName) Dim a As New tinyIni(File.FullName) a.Write(Me.Parent.Name & "-" & Me.Name & tag, "RowHeight", Me.ActiveSheet.Rows.Default.Height) '//고정문자 저장 End Sub ''' ''' [보충요망] :줄높이를 불러온다.(spre.ini) ''' ''' Public Sub CurrentState_Load(ByVal tag As String, ByVal fn As String) Dim a As New tinyIni(My.Application.Info.DirectoryPath & "\" & fn & "spread.INI") If Not a.Exist Then MsgBox("열너비 파일이 존재하지 않습니다", MsgBoxStyle.Critical, "열너비설정-오류") CurrentState_Save(tag, fn) a = Nothing Return End If '//파일이 존재할때 불러온다. Me.ActiveSheet.Rows.Default.Height = a.Read(Me.Parent.Name & "-" & Me.Name & tag, "RowHeight", 20) '//고정문자를 가져옵니다. a = Nothing End Sub Private Sub Delete_itm(Optional ByVal rowindex As Integer = -1, Optional ByVal prompt As Boolean = True) Dim Commit As Boolean = True Dim A As New System.Text.StringBuilder("경고 : 데이터 삭제를 선택했습니다") A.AppendLine() A.AppendLine("현재 선택된 줄이 삭제됩니다") A.AppendLine("계속하시겠습니까?") If prompt Then If MsgBox(A.ToString, MsgBoxStyle.Critical + MsgBoxStyle.OkCancel, "선택줄 삭제") <> MsgBoxResult.Ok Then Commit = False End If If Not Commit Then Return '//명령프롬프트에서 취소를 선택햇을시에는 빠져나간다. Me.ActiveSheet.ActiveRow.Remove() End Sub Private Sub NewFp_Change(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.ChangeEventArgs) Handles Me.Change If e.Column = Me.ACheckBox_ColIndex AndAlso Me.ActiveSheet.Cells(e.Row, Me.ACheckBox_ColIndex).Value = True Then '//선택 Me.ActiveSheet.Rows(e.Row).BackColor = Color.LightGreen Else Me.ActiveSheet.Rows(e.Row).BackColor = Color.White End If End Sub Private Sub NewFp_EditModeOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.EditModeOff RaiseEvent Arin_Before_EditModeOff(sender, e) '//원래뷰가 after 발생이므로 before 발생용 이벤트하나 맹글어준다. If Not Me.v_AEditStatusLabel Is Nothing Then '//라벨이 되어있다면 Me.v_AEditStatusLabel.Text = "[이동]" Me.v_AEditStatusLabel.ForeColor = Color.Black End If '//빠져나올때 이 셀번호가 종료열번호라면 다음줄로 넘긴다 If (Me.ANextRow_ColIndex = Me.ActiveSheet.ActiveColumnIndex) OrElse (Me.ActiveSheet.ActiveColumnIndex = (Me.ActiveSheet.ColumnCount - 1)) Then '//다음줄로가아햘 경우라면 RaiseEvent Arin_AddLog(Me, "editmode off and next_row") Me.ANEXT_ROW() Else RaiseEvent Arin_AddLog(Me, "editmode off nextcell") Me.ANext_Cell() End If End Sub Private Sub NewFp_EditModeOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.EditModeOn RaiseEvent Arin_AddLog(Me, "editmode on") If Not Me.v_AEditStatusLabel Is Nothing Then '//라벨이 되어있다면 Me.v_AEditStatusLabel.Text = "[편집]" Me.v_AEditStatusLabel.ForeColor = Color.Red End If End Sub Private Sub NewFp_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Enter End Sub ''' ''' 셀에 진입햇을시의 프로시져. ''' ''' ''' ''' Private Sub NewFp_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles Me.EnterCell If Not Me.v_ACellposLabel Is Nothing Then Me.v_ACellposLabel.Text = "[" & Me.ActiveSheet.ActiveRowIndex + 1 & ":" & Me.ActiveSheet.ActiveColumnIndex & "/" & Me.ActiveSheet.RowCount & "]" End If ' Me.Text = Me.view1.한글필드.GetUpperBound(0) & "/" & Array.IndexOf(Me.view1.한글필드, .ActiveColumn.Label) If Not Me.한글필드 Is Nothing AndAlso Me.한글필드.GetUpperBound(0) >= 0 Then If Array.IndexOf(Me.한글필드, Me.ActiveColumn.Label) >= 0 Then Me.ImeMode = System.Windows.Forms.ImeMode.Hangul Else If Not Me.ActiveColumn.Tag Is Nothing Then If Array.IndexOf(Me.한글필드, Me.ActiveColumn.Tag) >= 0 Then Me.ImeMode = System.Windows.Forms.ImeMode.Hangul Else Me.ImeMode = System.Windows.Forms.ImeMode.Alpha End If Else If Not Me.ActiveColumn.DataField Is Nothing Then If Array.IndexOf(Me.한글필드, Me.ActiveColumn.DataField) >= 0 Then Me.ImeMode = System.Windows.Forms.ImeMode.Hangul Else Me.ImeMode = System.Windows.Forms.ImeMode.Alpha End If Else Me.ImeMode = System.Windows.Forms.ImeMode.Alpha End If End If End If End If 'If Not Me.v_ACellImeLabel Is Nothing Then--이부분은 Imemodechange 이벤트로 대체됫다 ' If Me.ImeMode = Windows.Forms.ImeMode.Hangul Then ' 'MsgBox("한글이다") ' Me.v_ACellImeLabel.Text = ("[한글]") ' Me.v_ACellImeLabel.ForeColor = Color.Blue ' Else ' ' MsgBox("일반으로변경") ' Me.v_ACellImeLabel.Text = ("[일반]") ' Me.v_ACellImeLabel.ForeColor = Color.Black ' End If 'End If End Sub Private Sub NewFp_ImeModeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ImeModeChanged If Not Me.v_ACellImeLabel Is Nothing Then If Me.ImeMode = System.Windows.Forms.ImeMode.Hangul Then Me.v_ACellImeLabel.Text = ("[한글]") Me.v_ACellImeLabel.ForeColor = Color.Blue Else Me.v_ACellImeLabel.Text = ("[일반]") Me.v_ACellImeLabel.ForeColor = Color.Black End If End If End Sub ''' ''' 엔터키를 누르면 다음셀로이동하는 키맵을 설정합니다. ''' ''' Public Sub AEnterToNextItem(Optional ByVal EditOff As Boolean = True) Dim im As New FarPoint.Win.Spread.InputMap If EditOff Then im = Me.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused) im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumn) End If im = Me.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenFocused) im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.MoveToNextColumn) '//자동줄넘김은 사용하지않는다. 'im.Put(New FarPoint.Win.Spread.Keystroke(Keys.Enter, Keys.None), FarPoint.Win.Spread.SpreadActions.) End Sub ''' ''' keydown 이벤트가 뷰내에서 처리될때 먼저 발생하는 이벤트 ''' ''' Overridable Sub Pre_KeyDown() End Sub ''' ''' 뷰에서 키보드가 눌렷을대의 반응 ''' ''' ''' ''' Private Sub CustFP_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown RaiseEvent Arin_AddLog(Me, "keydown 발생 코드=" & e.KeyCode & "현재줄번호 : " & _ Me.ActiveSheet.ActiveRowIndex & " 현재열번호:" & Me.ActiveSheet.ActiveColumnIndex & " 다음줄로이동할열번호:" & Me.ANextRow_ColIndex) RaiseEvent Arin_Before_KeyDown(sender, e) : RaiseEvent Arin_AddLog(Me, "Before Keydown 이벤트를 발생시켰습니다.") Select Case e.KeyCode Case Keys.Enter e.SuppressKeyPress = False e.Handled = True If e.Control Then '//윗줄값을복사 RaiseEvent Arin_AddLog(Me, "keydown control 에의해 윗줄 복사") Me.Cells.Value = Me.CellsPR.Value '//복사하고 그자리에 멈춘다. Else '//빈줄일때 상위값 복사하는루틴이 원ㄹ ㅐview 에 잇었으나 해당 keydown 이벤트가 이곳보다 나중에 일어나기떄문에 '//사용할수가없게되었다. If Me.ActiveSheet.ActiveRowIndex = Me.ActiveSheet.RowCount - 1 Then '//마지막줄일경우 RaiseEvent Arin_AddLog(Me, "keydown 마지막줄진입 기록된다음열번호/현재열번호/전체열번호 " & Me.ANextRow_ColIndex & "/" & Me.ActiveSheet.ActiveColumnIndex & _ "/" & Me.ActiveSheet.ColumnCount - 1) If (Me.ANextRow_ColIndex = Me.ActiveSheet.ActiveColumnIndex) OrElse (Me.ActiveSheet.ActiveColumnIndex = (Me.ActiveSheet.ColumnCount - 1)) Then '//다음줄로가아햘 경우라면 RaiseEvent Arin_AddLog(Me, "keydown 마지막줄이며 한줄생성해야함 " & Me.ANextRow_ColIndex & "/" & Me.ActiveSheet.ActiveColumnIndex & _ "마지막열번호 = " & Me.ActiveSheet.ColumnCount - 1) If Not Me.v_AAutoAddrowInLast Is Nothing Then Me.v_AAutoAddrowInLast.PerformClick() End If Else '//마지막줄이고 다음줄이아니면 다음셀로이동 RaiseEvent Arin_AddLog(Me, "keydown 마지막줄이나 다음셀로 감") Me.ANext_Cell() End If Else '//마지막줄이아니고 마지막열이면 다음줄로 'MsgBox(Me.ANextRow_ColIndex & "/" & Me.ActiveSheet.ActiveColumnIndex) If (Me.ANextRow_ColIndex = Me.ActiveSheet.ActiveColumnIndex) OrElse (Me.ActiveSheet.ActiveColumnIndex = (Me.ActiveSheet.ColumnCount - 1)) Then '//다음줄로가아햘 경우라면 RaiseEvent Arin_AddLog(Me, "keydown 마지막줄이아니며 다음줄로" & Me.ANextRow_ColIndex & "/" & Me.ActiveSheet.ActiveColumnIndex) Me.ANEXT_ROW() Else RaiseEvent Arin_AddLog(Me, "keydown 마지막줄이아니며 다음셀로") Me.ANext_Cell() End If End If 'MsgBox("한줄넘기고 마지막완료단ㄷ게") End If 'If Not Me.v_AAutoAddrowInLast Is Nothing Then ' If Me.ActiveSheet.ActiveRowIndex = Me.ActiveSheet.RowCount - 1 Then '//마지막줄에 ' If Me.ANextRow_ColIndex = Me.ActiveSheet.ActiveColumnIndex Then '//다음줄로가아햘 경우라면 ' e.Handled = True ' Me.v_AAutoAddrowInLast.PerformClick() ' ElseIf Me.ActiveSheet.ActiveColumnIndex = Me.ActiveSheet.ColumnCount - 1 Then '//마지막열이라면 ' e.Handled = True ' Me.v_AAutoAddrowInLast.PerformClick() ' End If ' End If 'End If Case Keys.Delete If e.Shift Then '//쉬프트가 눌러져잇을경우 If Me.V_DeleteKey Then Delete_itm(, True) e.Handled = True Else If Me.V_CurrentDel Then If Not Me.ActiveSheet.ActiveCell.Locked AndAlso Not Me.ActiveSheet.ActiveColumn.Locked Then Me.ActiveSheet.ActiveCell.ResetValue() Else Me.Disp_Msg("현재 셀은 잠겨있으므로 값을 삭제할 수 없습니다") End If 'Me.OnEditModeOff(Nothing) e.Handled = True End If End If Case Keys.Space '//편집모드 If Me.V_SpaceEdit Then EditMode = True e.Handled = True Case Keys.F1 Case Keys.F2 Case Keys.F3 Case Keys.F4 Case Keys.F5 Case Keys.F6 Case Keys.F7 Case Keys.F8 Case Keys.F9 Case Keys.F10 Case Keys.F11 Case Keys.F12 Case 18 '//왼쪽ALT e.SuppressKeyPress = False e.Handled = True Case Else '//그외다른게입력되어있을경우에는 editmode 에 들어가게되므로 한글처리를 위해 바로 에디트모드로 들어오게한다. '//숫자가입력되면 넘어가버리므로 If e.KeyCode >= Keys.NumPad0 AndAlso e.KeyCode <= Keys.NumPad9 Then '//우측숫자패트 ElseIf e.KeyCode >= Keys.D0 AndAlso e.KeyCode <= Keys.D9 Then '//일반숫자패드 Else If Not e.Alt AndAlso Not e.Control AndAlso Me.ImeMode = System.Windows.Forms.ImeMode.Hangul Then EditMode = True End If End If End Select End Sub ''' ''' 뷰의 줄 높이 변경되었을때의 반응 ''' ''' ''' ''' Private Sub CustFP_RowHeightChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.RowHeightChangedEventArgs) Handles Me.RowHeightChanged If Me.V_sameRHeight Then Dim Row As FarPoint.Win.Spread.RowHeightChangeExtents = e.RowList(0) Me.ActiveSheet.Rows.Default.Height = Me.ActiveSheet.Rows(Row.FirstRow).Height End If End Sub Public Sub Excel_Save(ByVal Filename As String, Optional ByVal INitdir As String = vbNullString, Optional ByVal Asfilter As Boolean = False) If Me.ActiveSheet.Rows.Count <= 0 Then MsgBox("내보내기할 목록이 존재하지 않습니다", MsgBoxStyle.Critical, "확인") Exit Sub End If Try Dim A As New SaveFileDialog A.InitialDirectory = IIf(INitdir = vbNullString, My.Application.Info.DirectoryPath, INitdir) A.Filter = "엑셀 워크시트파일|*.XLS" A.FileName = Filename If A.ShowDialog = System.Windows.Forms.DialogResult.OK Then ' Me.prb1.Style = ProgressBarStyle.Marquee If Not Asfilter Then Me.SaveExcel(A.FileName, FarPoint.Excel.ExcelSaveFlags.SaveBothCustomRowAndColumnHeaders) Else Me.SaveExcel(A.FileName, FarPoint.Excel.ExcelSaveFlags.SaveAsFiltered) End If End If Catch ex As Exception MsgBox("내보내기실패" & vbCrLf & ex.ToString, MsgBoxStyle.Critical, "확인") End Try End Sub ''' ''' 싱글로우형식을때 표시하고자하는 DatarowView 를 보내주면 셀의 TAG를 맞춰서 표시합니다. ''' ''' ''' Public Sub ASingleRow_Viewer(ByVal Drv As DataRowView, ByVal StartRange As Point, ByVal EndRange As Point) For i As Integer = StartRange.Y To EndRange.Y '//범위행 For j As Integer = StartRange.X To EndRange.X '//범위열 If Not Me.ActiveSheet.Cells(i, j).Tag Is Nothing Then Me.ActiveSheet.Cells(i, j).Text = Drv(Me.ActiveSheet.Cells(i, j).Tag.ToString) End If Next Next End Sub ''' ''' 싱글로우형식을때 표시하고자하는 DatarowView 를 보내주면 셀의 TAG를 맞춰서 표시합니다. ''' ''' ''' Public Sub ASingleRow_Viewer(ByVal Drv As DataRowView) For Each RW As FarPoint.Win.Spread.Row In Me.ActiveSheet.Rows For Each CL As FarPoint.Win.Spread.Column In Me.ActiveSheet.Columns If Not Me.ActiveSheet.Cells(RW.Index, CL.Index).Tag Is Nothing Then If Drv(Me.ActiveSheet.Cells(RW.Index, CL.Index).Tag.ToString) Is DBNull.Value Then Me.ActiveSheet.Cells(RW.Index, CL.Index).Value = "" Else Me.ActiveSheet.Cells(RW.Index, CL.Index).Value = Drv(Me.ActiveSheet.Cells(RW.Index, CL.Index).Tag.ToString) End If End If Next Next End Sub ''' ''' 싱글로우형식을 사용할때 스프레드값을 데이터테이블에 보낸다. ''' ''' ''' Public Sub ASingleRow_Writer(ByRef Drv As DataRowView) If Not Me.ActiveSheet.ActiveCell.Tag Is Nothing Then 'MsgBox(Me.ActiveSheet.ActiveCell.Text) Drv(Me.ActiveSheet.ActiveCell.Tag.ToString) = Me.ActiveSheet.ActiveCell.Value End If End Sub Public Sub New() ' 이 호출은 Windows Form 디자이너에 필요합니다. InitializeComponent() ' InitializeComponent() 호출 뒤에 초기화 코드를 추가하십시오. End Sub Protected Overrides Sub Finalize() MyBase.Finalize() End Sub End Class