I am getting a slew of errors in this module in regards to the frame not being supported in System.Windows.Form.HTMLDocument.
It would have been better to have rewritten the code from scratch looking that the max number of errors popping up but the powers that be are demanding a revision of the module. It is of course balking at the h.frames in each line as not beign supported by system.windows.forms.HtmlDocument. What can I replace this with that it might work so that I can transition from these errors to the next on the hit parade ?
Here is the code
It would have been better to have rewritten the code from scratch looking that the max number of errors popping up but the powers that be are demanding a revision of the module. It is of course balking at the h.frames in each line as not beign supported by system.windows.forms.HtmlDocument. What can I replace this with that it might work so that I can transition from these errors to the next on the hit parade ?
Here is the code
Code:
If h.frames.Length > 0 Then tWin = h.frames(1)
' Take the Initial Frame and Assign to HTMLWindow2
If tWin.document.All.Length > 0 Then
'TODO - replace function call
tWin = h.frames(0)
Dim oActionElem As HTMLInputElement
oActionElem = tWin.document.All(prmActionName, 0)
If Not oActionElem Is Nothing Then
oActionElem.Click()
End If
If h.frames.Length > 0 Then tWin = h.frames(1)
Dim osetValue As HTMLInputElement
osetValue = tWin.document.All(prmControlName, 0)
If Not osetValue Is Nothing Then
osetValue.Value = prmControlValue
End If
tWin = h.frames(0)
Dim oSubmitElem As HTMLInputElement
oSubmitElem = tWin.document.All("doapply", 0)
If Not oSubmitElem Is Nothing Then
oSubmitElem.Click()
tWin = Nothing
End If
End If
End If
End If