「Result」の検索結果
「Tips」
から
次の単語がハイライトされています :
Function IsSelected() As Boolean Dim _Begin As Integer Dim _End As Integer AzukiControl.Document.GetSelection(_Begin, _End) If _Begin = _End Then Return True Else Return False End If End Function
Dim _SearchResult As Sgry.Azuki.SearchResult
Dim _LineIndex As Integer
Dim _ColumnIndex As Integer
_SearchResult = AzukiControl.Document.FindNext("げしょげしょ", AzukiControl.Document.CaretIndex)
AzukiControl.Document.GetLineColumnIndexFromCharIndex(_SearchResult.End, _LineIndex, _ColumnIndex)
AzukiControl.Document.SetCaretIndex(_LineIndex, _ColumnIndex)