Pixel in Picurebox

[Mister master]

Hi, hier bin wiedermal ich.

Also, wie arbeite ich mit Pixeln in einer Picturebox? Ich meine so: in eine Textbox gebe ich eine x koordinate und in einer anderen eine y koordinate ein. Das Pixel mit dieser Koordinatewird dann schwarz eingefärbt. Wie geht das?

 

[DrSoong]

So:

Private Sub Command1_Click()
 Picture1.PSet (Val(Text1.Text), Val(Text2.Text)), 0 '0 ist schwarz
End Sub
Private Sub Text1_Change()
 'Nur Abfragen, um keine Werte außerhalb der Box zu bekommen, entweder löschen oder deine Maximalwerte einsetzen
 If Text1.Text < 0 Then Text1.Text = 0
 If Text1.Text > 709 Then Text1.Text = 709
End Sub
Private Sub Text2_Change()
 'Nur Abfragen, um keine Werte außerhalb der Box zu bekommen, entweder löschen oder deine Maximalwerte einsetzen
 If Text2.Text < 0 Then Text2.Text = 0
 If Text2.Text > 605 Then Text2.Text = 605
End Sub

Sieh dir auch die Hilfe zu PSet an.


Der Doc!