I Have 2 downloaded Products that support
excel
1) screen Caliper http://www.iconico.com/caliper/
SDK Download
http://www.iconico.com/caliper/SDKDemo.aspx
2)
Screen Protractor http://www.iconico.com/protractor/
SDK Download http://www.iconico.com/protractor/SDKDemo.aspx
To Load both Programs I Have written this
code and it loads Perfect
Private Sub Cmdload_Click()
Call Shell("C:\Program Files\screen
calipers 4.0\calipers")
Call Shell("C:\Program Files\screen
protractor 4.0\Protractor")
End Sub
On the screen Protractor
I Have a VBA form that pulls info form
Various sheets. In this Form I have a Label named ‘’LblPix’’ I would Like for
the SDK file to read ‘’LblPix’’ Total and automatically change the measurement
to that Value.
The Code in the SDK is
Private WithEvents CaliperApp As
Calipers.IconicoCalipers
Private CaliperUnits As
Calipers.IIconicoCalipersUnits
Private CaliperSkins As
Calipers.IIconicoCalipersSkins
Private Sub cmdConnect_Click()
CheckConnected
End Sub
Private Sub cmdDisconnect_Click()
Set CaliperSkins = Nothing
Set
CaliperUnits = Nothing
Set
CaliperApp = Nothing
Cells(6, 7).Value = "Not Connected"
End Sub
'Checks connection to the Caliper
Application, making a connection if needed
Private Function CheckConnected() As Boolean
If
(CaliperApp Is Nothing) Then
'Calipers not initialized
On Error GoTo AutomationError
Set CaliperApp = New Calipers.IconicoCalipers
Set CaliperSkins = CaliperApp.Skins
Set CaliperUnits = CaliperApp.Units
Cells(6, 7).Value = "Connected"
End
If
'Calipers might have previously been closed by the user, so we check if
we can access a property
On
Error GoTo CaliperError
Dim
strTemp As String
strTemp = CaliperApp.Measurement
CheckConnected = True
Exit Function
AutomationError:
MsgBox ("Could not connect to Screen Calipers - Please check that
you have the Calipers installed")
CheckConnected = False
Exit Function
CaliperError:
On
Error GoTo AutomationError
Set
CaliperSkins = Nothing
Set
CaliperUnits = Nothing
Set
CaliperApp = Nothing
'reset caliper
Set
CaliperApp = New Calipers.IconicoCalipers
Set
CaliperSkins = CaliperApp.Skins
Set
CaliperUnits = CaliperApp.Units
Cells(6, 7).Value = "Connected"
CheckConnected = True
Exit Function
End Function
Private Sub CaliperApp_OnUpdate()
On
Error Resume Next
Cells(10, 2).Value = CaliperApp.Measurement
Cells(12, 2).Value = CaliperApp.DisplayMeasurement
End Sub
Private Sub cmdSetMeasurement_Click()
If
CheckConnected() Then
CaliperApp.Measurement = Cells(10, 3).Value
CaliperApp.Repaint
End
If
End Sub
Private Sub cmdSetDisplayMeasurement_Click()
If
CheckConnected() Then
CaliperApp.DisplayMeasurement = Cells(12, 3).Value
CaliperApp.Repaint
End
If
End Sub
This works Independently But I can Not Get it
to load in my Form.
Screen Protractor
Here I Want the Value “Degrees” To Be put onto the same form. I have
Downloaded The SDK file but cant seem to get that to work at all.
In The form I have a Text Box named
TxtDir I want the “ Degrees” Value put
in the Txt Box Dir from the Protractor. This I don’t have the code for or have
any Idea how to even Start.
Please Help me with Both Codes.
Thanking you kindly
Courtney