fc2ブログ

買い検索画面

買い検索画面のHTMLソース(一部を抜粋)は以下のようになっています。
スポンサーリンク
<html>
<head></head>
<body>
<form name="OrdJpStkSearchForm" method="post" action="xxx">
銘柄コード・銘柄名
<input type="text" name="dscrCdNm" value="">
<input type="image" name="" src="/image/btn-form-search-01.gif" />
</form>
</body>
</html>
このようなHTMLのとき、買い検索画面クラスは以下のようになります。
Public Class LongBuySearch
Inherits AbstructOrderFrame

Sub New(ByVal screen As AbstructRakutenWebLoginSession)
MyBase.new(DirectCast(screen, AbstructWebScreen))
End Sub

Function GoOrder(ByVal dt As IDayTrade) As LongBuyOrder
Try
FocusMainFrame()
_ie.TypeValue("dscrCdNm", CStr(dt.company_id))
_ie.ClickSubmit(0)
Return New LongBuyOrder(Me, dt)
Catch e As Exception
DispatchException(e, "買い注文検索")
End Try

Throw New WebScreenException("買い注文検索")
End Function
End Class
LongBuySearchクラスは、AbstructOrderFrameクラスを継承しています。GoOrderメソッドで、注文検索を行っています。テキストフィールドdscrCdNmに銘柄コードを入力し、Submitしています。
スポンサーリンク
<<トップ画面 | ホーム | 買い注文画面>>
コメント(0)
コメントの投稿
トラックバック(0)