WEBカメラを使用しVBで静止画を取得
３．２ サンプルグラバによる静止画取得
VB2008で自動変換でうまく動きました。
使用していたWEBカメラのドライバーは以下にありました。
These are CIF drivers from Sakar:
http://www.sakar.com/images/resources/download-driver/cifA.zip
ドット毎の色情報を取り出すプログラム
http://oshiete.goo.ne.jp/qa/5618696.html
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For x As Integer = 0 To PictureBox1.Width - 1
For y As Integer = 0 To PictureBox1.Height - 1
Dim color As Color = New Bitmap(PictureBox1.Image, PictureBox1.Size).GetPixel(x, y)
Debug.Print("X=" + Str(x) + " Y=" + Str(y) + ":" + Str(color.R) + " " + Str(color.G) + " " + Str(color.B))
Next
Next
End Sub
End Class
