ab.com コミュニティ

コード: 全て選択

Sub FindStr_CommandButton1_Click()
    Dim FindString As String                '検索文字列
    Dim buffer As String                    'EditBox1の文字列
    Dim nPos As Long
    Dim Length As Long                        '

    '検索文字列を取得
    FindString=GetDlgItemTextStr(hFindStr,ComboBox1)

    'EditBox1の文字列を取得
    buffer=GetDlgItemTextStr(hMainWnd,EditBox1)

    If InStr(1, FindStringHistory, FindString) = 0 Then
        '検索履歴バッファに検索文字列が無かった時
        Dim lpstrKeyName[255] As Byte            '気にしなくて良い
    
        '検索文字列をINIファイルに追加
        WritePrivateProfileString("FindString", "NumOfFindString", Str$(NowFindStringNum), ".\findstr.ini")
        wsprintf(lpstrKeyName, "FindString(%d)", NowFindStringNum)
        WritePrivateProfileString("FindString", lpstrKeyName, StrPtr(FindString), ".\findstr.ini")
        NowFindStringNum++
                
        '検索履歴バッファに検索文字列を追加
        FindStringHistory = FindStringHistory + Ex"\r\n" + FindString
    End If

    '検索文字列をEditBox1の内容から検索
    nPos = InStr(Count+1, buffer, FindString)-1

    If nPos < 0 Then
        MessageBox(hFindStr, "指定された文字列はありません", NULL, MB_OK)
        Count=0
        Exit Sub
    End If

    '検索文字列を選択してその位置までスクロールさせる
    Length=nPos + Len(FindString)
    Count=Length
    SendMessage(GetDlgItem(hMainWnd,EditBox1), EM_SETSEL, nPos,Length)
    SendMessage(GetDlgItem(hMainWnd,EditBox1), EM_SCROLLCARET, 0, 0)
    SetFocus(GetDlgItem(hMainWnd, EditBox1))
End Sub