ClientHwndクラス GetColorClientメソッド
オブジェクトウインドウ座標で示されるオブジェクトウインドウ内の位置の色を取得します。
色はInteger型数値で扱います。取得できなかった場合は-1が返ります。
赤色は &H0000FF(255) となります。青は&HFF0000(16711680) となります。アルファ値は扱いません。
HTML表記の赤は #FF0000 ですが、混同しない様ご注意ください。
使用法
'オブジェクトウインドウ座標x,yで示されるオブジェクトウインドウ内の位置の色を取得します
Dim instance As ClientHwnd
Dim x As Integer
Dim y As Integer
Dim returnValue As Integer

'Overloads
returnValue = instance.GetColorClient(x, y)
'オブジェクトウインドウ座標System.Drawing.Point構造体で示される
'オブジェクトウインドウ内の位置の色を取得します
Dim instance As ClientHwnd
Dim p As System.Drawing.Point
Dim returnValue As Integer

'Overloads
returnValue = instance.GetColorClient(p)
使用例
'ClientHwndクラス GetColorClientメソッド

Imports System.Windows.Forms

Public Class AddIn

	Private chw As ClientHwnd

	Public Sub New()
		chw = New ClientHwnd()
		Dim result As Integer = chw.GetColorClient(100,50)
		If result <> -1 Then
			MessageBox.Show("&H" & result.ToString("X6"))
		Else
			MessageBox.Show("取得できませんでした")
		End If
	End Sub

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

Imports System.Windows.Forms

Public Class AddIn

    Private chw As ClientHwnd

    Public Sub New()
        chw = New ClientHwnd()
		Dim p As System.Drawing.Point = New System.Drawing.Point(100,50)
		Dim result As Integer = chw.GetColorClient(p)
		If result <> -1 Then
			MessageBox.Show("&H" & result.ToString("X6"))
		Else
			MessageBox.Show("取得できませんでした")
		End If
    End Sub

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




top of page