'スクリーン座標x,yで示されるオブジェクトウインドウ内の位置の色を取得します Dim instance As ClientHwnd Dim x As Integer Dim y As Integer Dim returnValue As Integer 'Overloads returnValue = instance.GetColor(x, y)
'スクリーン座標System.Drawing.Point構造体で示されるオブジェクトウインドウ内の位置の色を取得します Dim instance As ClientHwnd Dim p As System.Drawing.Point Dim returnValue As Integer 'Overloads returnValue = instance.GetColor(p)
'ClientHwndクラス GetColorメソッド Imports System.Windows.Forms Public Class AddIn Private chw As ClientHwnd Public Sub New() chw = New ClientHwnd() Dim result As Integer = chw.GetColor(100,50) If result <> -1 Then MessageBox.Show("&H" & result.ToString("X6")) Else MessageBox.Show("取得できませんでした") End If End Sub End Class
'ClientHwndクラス GetColorメソッド 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.GetColor(p) If result <> -1 Then MessageBox.Show("&H" & result.ToString("X6")) Else MessageBox.Show("取得できませんでした") End If End Sub End Class
このページのQRコード
便利ウェブサイト
便利 Android アプリ
便利 iOS(iPhone,iPad) アプリ