Dim
opjInput As IWInput
Set objInput = new WInputClass()
Dim
opjResult As IWResult
Set objResult = new
WResultClass()
Dim Hwnd As integer
Hwnd =
0
Dim x1 As integer
X1 = 0
Dim
x2 As integer
X2 = 0
Dim y1 As integer
y1
= 0
Dim y2 As integer
Y2 = 0
Dim
ContextWordsLeft As integer
ContextWordsLeft = 0
Dim
ContextWordsRight As integer
ContextWordsRight = 0
‘Set
this values
...
opjInput.Hwnd = hwnd;
opjInput.StartX
= x1;
opjInput.StartY = y1;
opjInput.EndX
= x2;
opjInput.EndY = y2;
opjInput.ContextWordsLeft
= ContextWordsLeft;
opjInput.ContextWordsRight =
ContextWordsRight;
On Error GoTo Catch
opjResult
= capture.Capture(opjInput);
Catch:
MsgBox(...);
Exit
Sub;
|
|