Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
教えてください!!
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=79#CommentId526
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
葉月
 (社会人)
投稿日時
2008/10/29 06:16:49
サンプルコードを書きました。
pictureboxとlabel3つを用意してください。
>>>サンプルコード
Public Class Form1
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim bmpSample As Bitmap = PictureBox1.Image
If bmpSample IsNot Nothing Then
Label1.Text = bmpSample.GetPixel(e.X, e.Y).ToString
End If
Label2.Text = e.X.ToString
Label3.Text = e.Y.ToString
End Sub
End Class
>>>補足
①pictureBox1のImageには、使用する画像のパスを指定してください。
②ラベルは以下の用途に使っています。
label1 RGB
label2 X座標
label3 Y座標