Post has been Discarded
Not yet a member? No problem!
Sign-up just takes a second.
Forgot your password?
Recover it now.
Already signed up?
Log in now.
Forgot your password?
Recover it now.
Not yet a member? No problem!
Sign-up just takes a second.
Remember your password?
Log in now.
4 Comments
ChaosEnginesays...Why do people do this? It's a terrible way to create a coding tutorial.
You can't easily search it, you can't copy the code.
Tell me one way that a video would be better than an article for the same thing.
NoBodysays...Private Sub pbxPalette_MouseMove(sender As Object, e As MouseEventArgs) Handles pbxPalette.MouseMove
On Error Resume Next
Dim img As Bitmap
img = Me.pbxPalette.BackgroundImage
Dim iY, iX
iX = (MousePosition.X - Me.Left - Me.pbxPalette.Left) * (img.Width / Me.pbxPalette.Width)
iY = (MousePosition.Y - Me.Top - Me.pbxPalette.Top) * (img.Height / Me.pbxPalette.Height)
Me.pbxColor.BackColor = img.GetPixel(iX, iY)
End Sub
Private Sub pbxPalette_Click(sender As Object, e As EventArgs) Handles pbxPalette.Click
Me.pbxSelectedColor.BackColor = Me.pbxColor.BackColor
End Sub
eric3579says...*discard
siftbotsays...Discarding this post - discard requested by member eric3579.
Discuss...
Enable JavaScript to submit a comment.