티스토링

//실시간 검색

Private Sub FpS123_EditModeOn(sender As Object, e As EventArgs) Handles FpS123.EditModeOn

        Dim KeyPressHandler As KeyEventHandler = AddressOf FpS123_KeyUp

        AddHandler FpS123.EditingControl.KeyUp, KeyPressHandler

        With FpS123.ActiveSheet

            FpS123.Sheets(0).SetText(0, 1, .GetText(.ActiveRowIndex, .ActiveColumnIndex))

            'MessageBox.Show(.GetText(.ActiveRowIndex, .ActiveColumnIndex))

            ' Call test(.GetText(.ActiveRowIndex, .ActiveColumnIndex))

        End With

    End Sub

    Private Sub FpS123_EditModeOff(sender As Object, e As EventArgs) Handles FpS123.EditModeOff

        Dim edit_text

        Dim KeyPressHandler As KeyEventHandler = AddressOf FpS123_KeyUp

        RemoveHandler FpS123.EditingControl.KeyUp, KeyPressHandler

        edit_text = Split(sender.AccessibleDescription, ",")

        With FpS123.ActiveSheet

            FpS123.Sheets(0).SetText(0, 1, .GetText(.ActiveRowIndex, .ActiveColumnIndex))

            'MessageBox.Show(.GetText(.ActiveRowIndex, .ActiveColumnIndex))

            ' Call test(.GetText(.ActiveRowIndex, .ActiveColumnIndex))

        End With

    End Sub

    Private Sub FpS123_KeyUp(sender As Object, e As KeyEventArgs) Handles FpS123.KeyUp, FpS123.KeyDown

        If sender.ToString = "FarPoint.Win.Spread.CellType.GeneralEditor" Then

            'FarPoint.Win.Spread.CellType.GeneralEditor

            If e.KeyCode = Keys.Escape Then Exit Sub

            If e.KeyCode = Keys.Enter Then Exit Sub

            If e.KeyCode = Keys.Delete Then

                With FpS123.ActiveSheet

                    Select Case MsgBox("선택된 부분을 삭제하시겠습니까?", MsgBoxStyle.YesNo, "caption")

                        Case MsgBoxResult.Yes

                            ' MessageBox.Show("Yes button")

                            FpS123.Sheets(0).Rows.Remove(.ActiveRowIndex, 1)

                            sang_sprR = sang_sprR - 1

                        Case MsgBoxResult.No

                            'MessageBox.Show("NO button")

                    End Select

                End With

                Exit Sub

            End If

            Dim test_text As String

            test_text = sender.FormatText

            FpS123.Sheets(0).SetText(0, 2, test_text)

        End If

    End Sub

1. 호출하는 페이지 

<script>

//오늘 하루 이창 열지 않음 을 위한 쿠키값

var cookie = "<?=$_COOKIE['popup_1']?>";

$(document).ready(function() { 

//쿠키값이 done이 아니면 팝업창 엶

if (cookie != "done")

{

popup();

}

});

function popup()

{

var winWidth = 600;

var winHeight = 700;

var winPosLeft = 2300;

var winPosTop = 100;

//팝업창

window.open('popup.html','','scrollbars=yes,width='+winWidth+', height='+winHeight+', top='+winPosTop+', left='+winPosLeft+'');

}

</script>

Private Sub FpS스프레드이름_EditModeOff(sender As Object, e As EventArgs) Handles FpS스프레드이름.EditModeOff
        With FpS스프레드이름.ActiveSheet
            MessageBox.Show(.GetText(.ActiveRowIndex, .ActiveColumnIndex))
        End With
    End Sub

스프레드시트안에 선택된 셀안에 텍스트를 자연스럽게 가져옴 ㅋㅋ