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

コード: 全て選択

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(0, FindStringHistory, FindString) = -1 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