this is what i need and its recking my head ive tried numerous different ways but cant get it to work
w=white pixel
b=black pixel
wwwwwbbbwwwbbwwbw=row of pixels in image in a picture box
for that line i need a text box to display
6,8
12,13
16,16
any help would be great
this is the code i am trying to use
Private Sub Command3_Click()
Dim i As Long, Colr As Long
Dim count1 As Long
Pic.ScaleMode = vbPixels
Colr = vbBlack
For i = 0 To Pic.ScaleWidth - 1
If Pic.Point(i, 190) = Colr Then
Pic.PSet (i, 190), &HFFC0&
count1 = count1 + 1...
this is what i want to do
1.check each individual pixel in a certain row
2.if the pixel is vbwhite check next pixel
3.if the pixel is vbblack display the position in a textbox
4.when the pixel returns to vbwhite display the position in the textbox
5.when the pixel returns to vbblack again...
i would like to be able to have the absolute or point position of a pixel that matches a certain condition appear in a text box
ie. check each pixel in a specific row of an image in a picturebox and if a pixel matches the condition i am looking for display its position
in the textbox
how would i set a flag to be edge triggered ie
when the condition is false the flag remains at 0 ,when the condition is true the flag is set to 1 and a task is carried out and the flag remains at 1 but when the condition changes back to false 0 the same task carried out when the flag was set is...
i was domnloading some sample music and a norton antivirus warning appeared on screen saying id picked up a virus, anyone got any links for free antivirus software to get rid of this virus(cant remember the virus name} or any ideas on how to solve my problem.sorry if i got the wrong part of the...
i used hpetias code and it is quicker thanks .the problem with thread222-1078537 was that it didnt do what i was looking for it only converted to grayscale
thanks for the ideas guys but i did a bit of research and came up with this code from another guy.i put it in a command button and it works well .its also fairly easy to follow and doesnt need the original grayscale image to work
Private Sub Command1_Click()
Dim x As Long
Dim y As Long
Dim...
sorry to anyone who looked at my last thread it was all over the place
this i hope is more straight forward
I have a simple program to convert an image in a picture box into as grayscale image ,from what i have been told it is possible to then change that image in to a black and white image with...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.