Yeni Kayıt
Konudaki Resimler
önceki
< Bu mesaj bu kişi tarafından değiştirildi sehlor -- 2 Aralık 2010; 1:07:19 > |
Hızlı 
Bildirim
VB'de PictureBox'ta RGB ve Koordinat öğrenme (2. sayfa)
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
GetPixel(x:=MousePosition.X, y:=MousePosition.Y))
Bu şekilde yazabildim anca ve yine başarılı olamadı maalesef. Tam çeviremedim VB diline. -
Private Sub pictureBox1_MouseMove(sender As Object, e As MouseEventArgs)
If pictureBox1.Image IsNot Nothing Then
lblInfo.Text = DirectCast(pictureBox1.Image, Bitmap).GetPixel(e.X, e.Y).ToString()
End If
End Sub
-
O kod sende çalışıyor galiba da buraya yazdın?
Dediğin gibi en baştan proje açtım. Tek bir picturebox ve tek bir label ekledim. Verdiğin kodu aynen yapıştırdım. Çalıştırmayı deneyince hata vermiyor ama sonucu da labelda göstermiyor bende. -
Public Class Form1
Private ny As Single
Private nx As Single
Dim coordinates As String
Dim colors As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim FName As String = Me.OpenFileDialog1.FileName
Me.TextBox1.Text = FName
Me.PictureBox1.ImageLocation = FName
End If
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim drawPoint As Point = New Point(0, 0)
drawPoint = New Point(e.X, e.Y)
nx = drawPoint.X
ny = drawPoint.Y
coordinates = "X ; Y : " + CStr(nx) + " ; " + CStr(ny)
Label1.Text = (coordinates)
Dim r, g, b As Single
Dim x, y As Integer
x = MousePosition.X
y = MousePosition.Y
r = CType(PictureBox1.Image, Bitmap).GetPixel(x, y).R
g = CType(PictureBox1.Image, Bitmap).GetPixel(x, y).G
b = CType(PictureBox1.Image, Bitmap).GetPixel(x, y).B
colors = "R ; G ; B : " + (CStr(r)) + " ; " + (CStr(g)) + " ; " + (CStr(b))
Label2.Text = (colors)
End Sub
End Class
Programı bu şekilde bitirmiştim. RGB değerlerini gösteriyordu ödevi bitirdiğimde ama artık göstermiyor? r,g,b için -NullReferenceException was unhandled- diye bir hata alıyorum sürekli. Label1.Text'ten sonrasını sildiğimde program çalışıyor sadece koordinat değerlerini göstererek, doğal olarak. Ama RGB değerleri uçmuş durumda.
Label1.Text'ten sonraki kısmı şu hale getirdiğimde de aynı sorunla karşı karşıya kaldım;
Dim x, y As Integer
x = MousePosition.X
y = MousePosition.Y
Using BMP As New Bitmap(PictureBox1.Image)
Dim aColor As Color = BMP.GetPixel(x, y)
Label2.Text = "R ; G ; B : " + aColor.R.ToString + " ; " + aColor.G.ToString + " ; " + aColor.B.ToString
End Using
İnat etti, ne yazarsam yazayım RGB değeri için, illa ki -NullReferenceException was unhandled, Nesne başvurusu bir nesnenin örneğine ayarlanmadı- hatasını veriyor.
-
SS halinde yazdığım kod ve aldığım hata;
< Bu mesaj bu kişi tarafından değiştirildi Ñolofinwë -- 4 Ocak 2011; 8:08:09 >
-
RGB kodları için çok teşekkürler!! :)
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
