|
| | | Forum Newbie
Group: Forum Members
Last Login: 11/4/2008 3:13:46 PM
Posts: 8, Visits: 14 |
| | I'm sorry, i'm not increase it. I just not tell completely and specifics. I search on vbforums, but i can't found any thread that same or similar with my problem. Could you tell me which thread link on vbforums that same with my problem ? Please, help me...  THanks. GBU. |
| |
| | | 
Forum God
Group: Forum Members
Last Login: Today @ 11:19:17 AM
Posts: 1,795, Visits: 4,572 |
| Takeshi (10/8/2008)
Could you tell me which thread link on vbforums that same with my problem ?I just did a quick search for picture color getpixel because getpixel is the API call. It came back with 57 topics. Image color getpixel came back with 41. I would also recommend you do a search on PSC. 
Keith http://www.martin2k.co.uk/forums/index.php?act=idx I've been programming with VB for 14 years. Started with VB4 16bit Pro, VB5 Pro, VB6 Pro/Enterprise and now VB3 Pro. But I'm no expert, I'm still learning. |
| |
| | | Forum Guru
Group: Forum Members
Last Login: 7/23/2010 8:17:22 PM
Posts: 169, Visits: 778 |
| Dim PathTOPic As String
Dim MyColor As Long, R As Integer, G As Integer, B As Integer, Temp As Long Me.Visible = True
DoEvents
PathTOPic = "C:\z\pb\1.jpg"
Picture1.Picture = LoadPicture(PathTOPic)
Picture1.AutoRedraw = True
MyColor = Picture1.Point(10, 10)
Debug.Print MyColor
Temp = MyColor Mod 65536
MyColor = MyColor - Temp
B = MyColor / 65536
MyColor = Temp
Temp = MyColor Mod 256
MyColor = MyColor - Temp
G = MyColor / 256
R = Temp
Debug.Print R, G, B
Debug.Print RGB(R, G, B)
However you will have to change the PathTOPic to your path to a picture. Good Luck |
| |
|
|