|
分類:[.NET 全般]
質問いたします。下記のプロシージャをWindows フォームでなくWebでも実現したいのですが、
Webのオブジェクトが参照できません。
ご教授お願いします。
'*-----------------------------------------------------------------------------
'* 名前 :gsubFrmClearSeek
'* 記述 :検索条件を消去します(テキストボックスのみです)。。
'* パラメータ
'* ・objFrm :フォーム
'* 戻り値 :無し
'* 作成者 :ひろのしま
'* 変更 :2007/05/15
'*-----------------------------------------------------------------------------
Public Sub gsubFrmClearSeek(ByVal objWebFrm As Form)
On Error GoTo Err_Trap
With objFrm
For gintCnt = 1 To .Controls.Count
If .Controls(gintCnt - 1).Name Like "txtSeek*" Or .Controls(gintCnt - 1).Name Like "cboSeek*" Or .Controls(gintCnt - 1).Name Like "chkSeek*" Then
.Controls(gintCnt - 1).Text = Nothing
End If
Next
End With
Exit_Trap:
Exit Sub
Err_Trap:
''''Call gsubDspMessByErrNumber(Err.Number, Err.Description)
GoTo Exit_Trap
End Sub
|