ab.com コミュニティ

Dim hEdit[1] As HWND
Dim lpStr[1] As LPSTR
Dim nLength[1] As Long
Dim i As Long

	hEdit[0]=GetDlgItem(hMainWnd,EditBox1)

	nLength[0]=GetWindowTextLength(hEdit[0])+1
	lpStr[0]=malloc(nLength[0])
	lpStr[0][GetWindowText(hEdit[0],lpStr[0],nLength[0])]=0

	hEdit[1]=GetDlgItem(hMainWnd,EditBox2)

	nLength[1]=GetWindowTextLength(hEdit[1])+1
	lpStr[1]=malloc(nLength[1])
	lpStr[1][GetWindowText(hEdit[1],lpStr[1],nLength[1])]=0

	i=InStr(1,lpStr[0],lpStr[1])-1
	If i=>0 Then
		SendMessage(hEdit[0],EM_SETSEL,i,i+nLength[1]-1))
	End If

Dim Count=0 As Long

Sub FindStr_CommandButton1_Click()
	Dim FindString As String
	Dim buffer As String
	Dim MOJISU As Long
	Dim nPos As Long
	Dim length As Long
	
	buffer=GetDlgItemTextStr(hMainWnd,EditBox1)
	FindString=GetDlgItemTextStr(hFindStr,ComboBox1)

	nPos=InStr(Count+1,buffer,FindString)-1

	If nPos<0 Then
		MessageBox(hFindStr,"指定された文字列はありません","エラー",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