Hi
Ich hab 2 pictureboxen, in einer ist ein bild und in der anderen ist nichts.
Wenn ich nun in der picbox1 herumfahre, soll in der picbox2 immer die farbe sein die da grad mit der maus angepointet wird.
Das womit ichs grad probier:
Danke und mfg
Ich hab 2 pictureboxen, in einer ist ein bild und in der anderen ist nichts.
Wenn ich nun in der picbox1 herumfahre, soll in der picbox2 immer die farbe sein die da grad mit der maus angepointet wird.
Das womit ichs grad probier:
Quellcode
- Dim hover as Boolean = False
- Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
- hover = True
- End Sub
- Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
- hover = False
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Me.Text = MousePosition.X - Me.Location.X - 6 & " " & MousePosition.Y - Me.Location.Y - 29
- If hover = True Then
- Try
- Dim dd As New Bitmap(PictureBox1.Image)
- Dim MyColor As Color = dd.GetPixel(MousePosition.X - Me.Location.X - 6, MousePosition.Y - Me.Location.Y - 29)
- PictureBox2.BackColor = MyColor
- Catch ex As Exception
- End Try
- End If
- End Sub
Danke und mfg
Wer Rechtschreibfehler findet darf sie behalten