Need help with VBA to detect color

[dribei16]

Hi,
I'm writing a VBA code in excel to retrieve data from Personal Communications. At some point I need to determine if a text in a defined Row and Col is of color white! Can anyone help me? I'm trying to use WaitForAttrib but I can't get it to work.
Sub Teste()
Dim autECLPSObj As Object

Set autECLPSObj = CreateObject("PCOMM.autECLPS")
autECLPSObj.SetConnectionByName ("A")

If autECLPSObj.WaitForAttrib(11, 18, "F", "3c", 3, 1000) Then
MsgBox "Attribute"
Else
MsgBox "Timeout Occurred"
End If
End Sub
Can anyone please help?

 

[Juan Pablo González]

According to this

http://publib.boulder.ibm.com/infoc...om.ibm.pcomm.doc/books/html/host_access08.htm

I would change the 3 (Field Plane) to 2 (Color Plane), but that's just a guess. I'm not sure what values can the WaitData or the MaskData accept though.

 

[dribei16]

I found this website too and I changed the plane too, but without understanding the hexadecimal values I can't get it to work. Thanks for trying tough!

 

[Jythier]

So, given that you've set up a connection to an AS400 PS called 'AS400'

Dim A as Byte
A = 2
Debug.print AS400.waitforattrib(row,col,A,,pcColorPlane,1)

Returns true if green, false if not.

A = 7 returns true if white, false if not.
Background color is also a consideration. You can find out the values from here:

http://publib.boulder.ibm.com/infoc...opic/com.ibm.pcomm.doc/books/pdf/pceclV56.pdf

Appendix B.

I really hope you've already solved this, if you have, let us know what you did! I found that there was some text on the screen that waas white that returned true for A=2 so be sure to test it thorougly before putting into use. I don't see why you couldn't use it as a check returning a value to see what color it is, or even searching the entire PS for a color and then returning the location it was found and grabbing the warehouse with a gettext.

My impression is there are very few people out there doing PCOMM programming, there are a couple resource guides and maybe one question post per question I've had, with spotty results on answers usually from people who say they don't use PCOMM.

Good luck!