Color Mixer Part 3
Color Mixer Part 3
Add Openfiledialog1
OpenFileDialog1.ShowDialog()
'Display the dialog box to the user, call the ShowDialog() method.
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
'dynamically load the images use Image class with FromFile() method.
End Sub
Run Time
Project\new Item
Note
Now you should back to From1 using solution
End Sub
MessageBox.Show("Operation Canceled")
End If
End Sub
Try
Dim r_color As Color Dim picture_b As New Bitmap(PictureBox1.Image) r_color = picture_b.GetPixel(TextBox1.Text, TextBox2.Text) MsgBox("Alpha Value" & r_color.A & "Red Value: " & r_color.R & " Green Value: " & r_color.G & " Blue Value " & r_color.B) Catch ex As Exception
MsgBox(ex.Message)
End Try End Sub
Run Time
with-vbnet-2010.html
Electro-Team
[email protected]