大きな画像からRGB値を抽出するには？ (ID:140883)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Win32API GetPixel関数の方でまずは試してみました。 Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Sub mopen_Click() Set File1 = CreateObject("mscomdlg.commondialog") File1.Filter = "画像(*.bmp)|*.bmp" File1.ShowOpen Picture1.Picture = LoadPicture(File1.FileName) test = Picture1.hdc End Sub Private Sub Command1_Click() A = GetPixel(test, 1000, 1000) Text1.SelText = A End Sub としましたが動作しませんでした。 A = GetPixel(test, 100, 100) とすると動作してくれるのですが・・・。 何か定義が間違っているのでしょうか？