ClientHwndクラス ImageAllSearchClientメソッド
オブジェクトウインドウ内を検索して、色を示す2次元配列とマッチした全てのオブジェクトウインドウ座標値をPoint構造体の配列で返します。
見つからない場合は長さ0のPoint構造体配列を返します。
2次元配列について:
4x3ピクセル画像の配列を示します。サイトロジーは画像から配列に変換する機能を有しています。
1行目の色が左から連続していると、その連続数分検索速度は速くなります。
'赤赤赤赤
'青青白白
'緑緑緑白

Dim pixAry As Integer(,) = New Integer(,) { _
	  {&H0000FF,&H0000FF,&H0000FF,&H0000FF} _
	, {&HFF0000,&HFF0000,&HFFFFFF,&HFFFFFF} _
	, {&H00FF00,&H00FF00,&H00FF00,&HFFFFFF} _
}
使用法
'オブジェクトウインドウ内を検索して、
'色を示す2次元配列とマッチした全てのオブジェクトウインドウ座標値をPoint構造体の配列で返します
Dim instance As ClientHwnd
Dim pixAry As Integer(,)
Dim returnValue As System.Drawing.Point()

'Overloads
returnValue = instance.ImageAllSearchClient(pixAry)
'オブジェクトウインドウ内の指定した四方の幅を除く範囲を検索して
'色を示す2次元配列とマッチした全てのオブジェクトウインドウ座標値をPoint構造体の配列で返します
Dim instance As ClientHwnd
Dim pixAry As Integer(,)
Dim ofsLeft As Integer
Dim ofsTop As Integer
Dim ofsRight As Integer
Dim ofsBottom As Integer
Dim returnValue As System.Drawing.Point()

'Overloads
returnValue _
 = instance.ImageAllSearchClient(pixAry, ofsLeft, ofsTop, ofsRight, ofsBottom)
使用例
'ClientHwndクラス ImageAllSearchClientメソッド

Imports System.Windows.Forms
Imports System.Drawing

Public Class AddIn

	Private chw As ClientHwnd

	Public Sub New()
		chw = New ClientHwnd()
	End Sub

	Public Sub AddIn_Start()
		Dim pixAry As Integer(,) = New Integer(,) { _
			  {&H0000FF,&H0000FF,&H0000FF,&H0000FF} _
			, {&HFF0000,&HFF0000,&HFFFFFF,&HFFFFFF} _
			, {&H00FF00,&H00FF00,&H00FF00,&HFFFFFF} _
		}
		Dim result As Point() = chw.ImageAllSearchClient(pixAry)
		Dim msg As String = ""
		For Each p As Point In result
			msg &= "X:" & p.X.ToString & "Y:" & p.Y.ToString & ","
		Next
		MessageBox.Show("画像が見つかった位置:" & msg)
	End Sub

End Class
'ClientHwndクラス ImageAllSearchClientメソッド

Imports System.Windows.Forms
Imports System.Drawing

Public Class AddIn

	Private chw As ClientHwnd

	Public Sub New()
		chw = New ClientHwnd()
	End Sub

	Public Sub AddIn_Start()
		Dim pixAry As Integer(,) = New Integer(,) { _
			  {&H0000FF,&H0000FF,&H0000FF,&H0000FF} _
			, {&HFF0000,&HFF0000,&HFFFFFF,&HFFFFFF} _
			, {&H00FF00,&H00FF00,&H00FF00,&HFFFFFF} _
		}
		Dim result() As Point = chw.ImageAllSearchClient(pixAry,150,200,150,80)
		Dim msg As String = ""
		For Each p As Point In result
			msg &= "X:" & p.X.ToString & "Y:" & p.Y.ToString & ","
		Next
		MessageBox.Show("画像が見つかった位置:" & msg)
	End Sub

End Class
 
 
 
 
このサイトでお気付きの点がございましたら
ご連絡いただけますと幸いです。
Eメール(任意)
送信内容
 
便利サイト☟
top of page